#!/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;
In reply to Ascii to HTML by ph0enix
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |