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; |
Add the following to "Clean up afterwards"close INPUT; |
This code and documentation are released under the terms of the GNU license. They are additionally copyright (c) 2000, Vivtek. All rights reserved except those explicitly granted under the terms of the GNU license. |