awk - to -- PERL

Shell Programming and Scripting
1

DEAR ALL,

i am using following command to fetch some records from more then 50000 files... command is taking more time ....

can i have perl command for the same...( i am New to perl )

awk -F "|" '{ if($4==3244898 && $5==5000185) print $66}' *.DATA
2 
perl -F[\|] -lane 'print $F[65] if ($F[3]==3244898 and $F[4]==5000185)' *.DATA

tyler_durden

3

With 50,000 files and a minimum of 66 fields, you might want to think about optimization. Perl running the same algorithm as awk will not be faster, and may be slower. However, with Perl, you would be able to change how the files are processed and may be able to speed it up.

How big are the files? How many fields? How often is the print statement triggered?