Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
print "$0 started at " . (localtime) . "\n";
processFiles(@ARGV);
print "$0 finished at " . (localtime) . "\n";
  2. or download this
    [racket@ibmlap perl]$ ./dirrecur .
./dirrecur started at Thu Mar 23 20:37:53 2006
...
Files: dirrecur
Files: testfunc
./dirrecur finished at Thu Mar 23 20:37:53 2006