Unnecessary Shell Calls

     Subject: pipe to nawk within perl?
     Message-ID: <30d612e5.0110121606.17c983e9@posting.google.com>

     $let2 = `ls -l $ld/$ssn.o* | grep '$date2grep' | nawk '{print $9}'`;

• Again, this didn't work

• I suggest:

     $let2 = grep { localtime((stat $_)[9]) =~ /Sep 11.*2001$/ } 
                glob("$ld/$ssn.o*");

Next

Copyright © 2006 M. J. Dominus