Next Program Repair Shop 59

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}'`;
     $let2 = grep { localtime((stat $_)[9]) =~ /Sep 11.*2001$/ } 
                glob("$ld/$ssn.o*");

Next Copyright © 2006 M. J. Dominus