git.pond.sub.org Git - empserver/blob - info/ls2html.pl

   1 #!/usr/local/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 printf("<pre>\n");
   7 while (<>) {
   8     s/([\w\.\-]+)/<a href=\"$1.html\">$1<\/a>/g;
   9     print;
  10 }
  11 printf("</pre>\n");