Unit test: programlisting.003
1@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
5@rem ';
# Compress mail...
require 'n:/home/nwalsh/lib/cygnus.pl';
10require 'timelocal.pl';
use Cwd;
select (STDERR); $| = 1;
select (STDOUT); $| = 1;
15
@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
$dir = shift @DIRS;
opendir (DIR, $dir);
20 while ($fname = readdir(DIR)) {
$file = "$dir/$fname";
next if ! -d $file;
next if $fname =~ /^\.\.?$/;
25 print "$file\n";
push (@DIRS, $file);
&compress ($file);
}
}
30
exit;