macromedia wrote:
Hello,
Hello,
I have the following find/grep line running just fine from a telnet
prompt on the server. I'm trying to include this line into a web app
using CFEXECUTE (ColdFusion) but can't get it to work. I know that a
compiled perl script would work since I'm already using some previously
written ones.
How could I do the following in Perl? I'm searing the directory
d:\mywork and all sub-directories within for all the files with a .txt
file extension and within those files for the match of "000;"
find D:\mywork -name '*.txt' -exec grep '000;' '{}' \; -print"
perl -MFile::Find -e"
find( sub {
/\.txt$/
and open( IN, '<', $_ )
and ( @res = grep /000;/, <IN> )
and print @res, qq($File::Find::name\n)
}, 'D:/mywork' )
"
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
