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';
10 |require '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;