www/txt2html.pl

   1 #!/usr/bin/perl
   2
   3 # this is really a faq2html and should only be used for this purpose
   4
   5 sub fixline {
   6     # change blank lines to &nbsp
   7     $_ =~ s/^\s*$/\&nbsp;\n/g;
   8
   9     $_ =~ s/\</&lt;/g;
  10     $_ =~ s/\>/&gt;/g;
  11
  12     $_ =~ s/(http:\/\/([a-zA-Z0-9_.\#\/-\?\&]*)[^\) .\n])/\<a href=\"$1\"\>$1\<\/a\>/g;
  13
  14     $_ =~ s/(\\|\/)$/$1&nbsp;/g; # clobber backslash on end of line
  15 }
  16
  17 while(<STDIN>) {
  18     fixline($_);
  19     push @p, "$_";
  20 }
  21
  22 print "<pre>\n";
  23 print @p;
  24 print "</pre>\n";
  25
  26
  27
  28