http://qs1969.pair.com?node_id=166776

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/&/&amp;/g;
s/</&lt;/g;

print DESTINATION ;

print DESTINATION <<'EOFOOT';
    </pre>
  </body>
</html>
EOFOOT

close DESTINATION;
close SOURCE;

exit 0;

[download]

Replies are listed 'Best First'.
•Re: Ascii to HTML
by merlyn (Sage) on May 15, 2002 at 18:44 UTC
[reply]

Back to Cool Uses for Perl