| Description: |
For one of our projects we need tool for ascii2html conversion. I've done one because found only comercial solution for Windows platform. |
#!/usr/bin/perl -w
# For Emacs: -*- mode:cperl; mode:folding -*-
#
# a2html - ascii to html convertor
use strict;
if (@ARGV != 2) {
print " usage: a2html <source> <destination>\n";
exit 1;
}
open SOURCE, $ARGV[0]
or die 'cannot open source file';
open DESTINATION, ">$ARGV[1]"
or die 'cannot open destination file';
print DESTINATION <<'EOHEAD';
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/T
+R/html4/strict.dtd">
<html>
<head>
<title></title>
<meta name="author" content="a2html version 0.1">
</head>
<body>
<pre>
EOHEAD
$/ = undef;
$_ = <SOURCE>;
s/&/&/g;
s/</</g;
print DESTINATION ;
print DESTINATION <<'EOFOOT';
</pre>
</body>
</html>
EOFOOT
close DESTINATION;
close SOURCE;
exit 0;
|
