Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Ascii to HTML

by ph0enix (Friar)
on May 15, 2002 at 16:28 UTC ( #166776=snippet: print w/replies, xml ) Need Help??
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/&/&amp;/g;
s/</&lt;/g;

print DESTINATION ;

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

close DESTINATION;
close SOURCE;

exit 0;
Replies are listed 'Best First'.
•Re: Ascii to HTML
by merlyn (Sage) on May 15, 2002 at 18:44 UTC
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: snippet [id://166776]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (2)
As of 2023-01-28 13:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?