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;