Michael Li

• About: I blog about Perl.

Recent Actions

• Posted find and exec to Michael Li

  first we can use find's exec opiton

  find . -name CVS -exec ls -dl {} \;

  also we can use shell

  for i in `find . -name CVS` ; do echo -n $i," "; done

  change ls, echo to whatever suits you, like rm -rf
  

• Posted cmd to compare contents of two directories to Michael Li

  diff -qr dir1 dir2

• Posted How to remove a carriage return (\r\n) to Michael Li

  use strict;
  

  {
  my $str = "abcd\r\n";
  $str =~ s/\r|\n//g;
  print "[$str]";
  }

  {
  my $str = "abcd\n";
  $str =~ s/\r|\n//g;
  print "[$str]";
  }

  {
  my $str = "abcd\r";
  $str =…

• Posted Check Eclipse Hot keys to Michael Li

  open Eclipse press Control-Shift-L.

  Alt-left arrow: Go back in navigation history.
  Alt-right arrow: Go forward.

• Posted MySQL DATE_SUB() to Michael Li

  SELECT OrderId,DATE_SUB(OrderDate,INTERVAL 2 DAY) AS OrderPayDate
  FROM Orders

• Posted use variable from other module to Michael Li

  In module bait we have

  our %IMAGEPADV = (
  'SxRT-5.1' => [ qw(sol_sparc sol_x64) ],
  'LxRT-5.1' => [qw(rhel5_x86_64 sles10_x86_64 sles11_x86_64)],
  ...
  );

  In my own module use this to access %IMAGEPADV

  %bait::IMAGEPADV
  

Recent Actions from Michael Li

Comment Threads

No responses to comments.

Responses to Comments from Michael Li