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

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