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
Comment Threads
No responses to comments.
About blogs.perl.org
blogs.perl.org is a common blogging platform for the Perl community. Written in Perl and offering the modern features you’ve come to expect in blog platforms, the site is run by Dave Cross and Aaron Crane, with a design donated by Six Apart, Ltd.