Unit Test: extensions.001
$Id$
NormanWalsh
ndw@nwalsh.com
Callouts using programlistingco. The following program
listing should be decorated with callout bullets:
@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';
# Compress mail...
require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;
select (STDERR); $| = 1;
select (STDOUT); $| = 1;
@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
$dir = shift @DIRS;
opendir (DIR, $dir);
while ($fname = readdir(DIR)) {
$file = "$dir/$fname";
next if ! -d $file;
next if $fname =~ /^\.\.?$/;
print "$file\n";
push (@DIRS, $file);
&compress ($file);
}
}
exit;
The prologue handles embedding a Perl script in a DOS batch file.
The goto statement, interpreted by the DOS batch
file interpreter, skips over the body of the Perl script.
The require statement sources in external program
fragments.
The use statement is similar, but has additional
utility. It is a Perl5 function. (Note that this callout area specifies
both a line and a column.)
This is a user subroutine call.