On Friday 26 Mar 2010 20:51:17 John W. Krahn wrote:
> jet speed wrote:
> > Hi,
>
> Hello,
>
> > I have a simple code below,
> >
> > ###################################
> > #!/usr/bin/perl
> >
> > use strict;
> > use warnings;
> >
> > my @list =( '/usr/data/logs' , '/usr/data1/logs');
> > foreach (@list)
> > {
> > print "$_ \n";
> >
> > system "(/usr/bin/find "$_" -mtime 3 -print -exec ls '{}' \;)";
> > }
> > ################################################
> >
> > I am not sure how to get the $_ value inside the system command, any tips
> > would be most helpful.
>
> The escape \ in front of the semicolon is being interpolated away by
> perl before the shell sees it so you need to escape it:
>
> system "(/usr/bin/find "$_" -mtime 3 -print -exec ls '{}' \\\;)";
>
1. This is invalid Perl code - you cannot do "String"$_"OtherString".
2. \\\; has one redundant \ - you can use "\\;" inside a double quoted string
instead.
> Or you need to bypass the shell altogether:
>
> system '/usr/bin/find', $_, '-mtime', 3, '-print', '-exec', 'ls', '{}',
> ';';
>
>
> (You do realize that "-print" and "exec ls {} \;" do the same thing?)
>
>
>
> John
--
-----------------------------------------------------------------
Shlomi Fish http://www.shlomifish.org/
"Humanity" - Parody of Modern Life - http://shlom.in/humanity
Deletionists delete Wikipedia articles that they consider lame.
Chuck Norris deletes deletionists whom he considers lame.
Please reply to list if it's a mailing list post - http://shlom.in/reply .
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
