nrk2-spider/conv-txt-html.pl

   1 #!/store/bin/perl
   2
   3     print <<EOF;
   4 <HTML>
   5 <HEAD>
   6 </HEAD>
   7 <BODY>
   8 <H1>Linker</H1>
   9 <UL>
  10 EOF
  11
  12 while (<>) {
  13     chop;
  14     # chop;
  15     if (/[+-]$/) {
  16         $tag = s/([-+])$//;
  17     }
  18     ($URL) = m/^(.*)$/;
  19
  20     print "<LI><A HREF=\"$URL\">$URL</A>\n";
  21 }
  22
  23 print <<EOF;
  24 </UL>
  25 </BODY>
  26 EOF