Process arguments and open source file
[ Previous: Prepare indices ]
[ Top: LPML alpha ]
[ Next: Clean up afterwards ]
Finally, now that we have the good stuff out of the way, we're ready to talk about how we
open our input file. The scan and weave steps expect input in the INPUT file handle.
|
if (@ARGV != 1) {
print STDERR "Usage: $0 <filename>\n";
exit 1;
}
open INPUT, $ARGV[0] or die "Can't open file '$ARGV[0]'\n";
$format_html = $ARGV[0];
$format_html =~ s/\.xml$/_format.html/i;
$index_html = $ARGV[0];
$index_html =~ s/\.xml$/_index.html/i;
|
And after all is said and done, we'll want to clean all this up, too.
|
Add the following to "Clean up afterwards"
close INPUT;
|
[ Previous: Prepare indices ]
[ Top: lpml alpha ]
[ Next: Clean up afterwards ]
This code and documentation are released under the terms of the GNU license. They are
copyright (c) 2000-2006, Vivtek. All rights reserved except those explicitly
granted under the terms of the GNU license.
|