Michael Li tag:blogs.perl.org,2009-11-03:/users/michael_li//953 2011-09-28T08:46:25Z A blog about the Perl programming language Movable Type Pro 4.38 find and exec tag:blogs.perl.org,2011:/users/michael_li//953.2230 2011-09-28T08:40:31Z 2011-09-28T08:46:25Z 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... 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

]]> cmd to compare contents of two directories tag:blogs.perl.org,2011:/users/michael_li//953.2161 2011-09-02T04:35:20Z 2011-09-02T04:38:00Z diff -qr dir1 dir2... Michael Li diff -qr dir1 dir2

]]> How to remove a carriage return (\r\n) tag:blogs.perl.org,2011:/users/michael_li//953.2091 2011-08-15T10:39:13Z 2011-08-15T10:40:15Z use strict; use warnings; { 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 =~ s/\r|\n//g; print "[$str]"; }... Michael Li use strict;
use warnings;

{
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 =~ s/\r|\n//g;
print "[$str]";
}

]]> Check Eclipse Hot keys tag:blogs.perl.org,2011:/users/michael_li//953.2090 2011-08-15T07:45:27Z 2011-08-15T07:51:23Z open Eclipse press Control-Shift-L. Alt-left arrow: Go back in navigation history. Alt-right arrow: Go forward.... Michael Li open Eclipse press Control-Shift-L.

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

]]> MySQL DATE_SUB() tag:blogs.perl.org,2011:/users/michael_li//953.2084 2011-08-12T08:48:39Z 2011-08-12T08:49:35Z SELECT OrderId,DATE_SUB(OrderDate,INTERVAL 2 DAY) AS OrderPayDate FROM Orders... Michael Li SELECT OrderId,DATE_SUB(OrderDate,INTERVAL 2 DAY) AS OrderPayDate
FROM Orders

]]> use variable from other module tag:blogs.perl.org,2011:/users/michael_li//953.2083 2011-08-12T07:37:53Z 2011-08-12T07:43:38Z 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... 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

]]>