# perl script to convert particularly formatted plain text email & URL list files # into nicely indented HTML with active links # written by earl 11/29/96 # to run under unix, "perl this_scripts_name out.html" print "\n\n"; # HTML preamble print "

) { # read in another line $testblank = $linein; $testblank =~ s/\s*//g ; # try stripping out out all the whitespace if ( $testblank ) { # if nothing would be left, skip this line $leadingws = $linein; $leadingws =~ s/(\s*)(.*)(\n)/$1/; #pull out leading whitespace while (length($leadingws)<$lws[$indentlevel]) { print "

"; # unindent 1 level $indentlevel -= 1; } if (length($leadingws)>$lws[$indentlevel]) { $indentlevel += 1; #indent 1 level $lws[$indentlevel]=length($leadingws); print "

"; # start new item in indented list # magically activate URLs to links $linein =~ s/http:\/\/(\S*)/$&<\/A>/g ; # magically activate email addresses to links $linein =~ s/(\s)((\S+)\@(\S+))/$1 $2<\/A>/g ; print $linein; # output the altered line } } while ($indentlevel>=0) { # unindent back to 0 print "

"; $indentlevel -= 1; } print "\n"; print "

Converted to HTML by "; print "earl's "; print "little PERL script.\n"; print "\n\n"; # HTML postamble