#!/usr/bin/perl # Written by Stefan Edwards # email: straydog43@hotmail.com # usage: htmldb die "Fatal:Inncorrect Parameters: <$0> [filename]" unless $ARGV[0]; @file = split(/\./,$ARGV[0]); $output = $file[0].".html"; open (IN, "<$ARGV[0]") or die "Fatal:$!\n"; open (OUT, ">$output") or die "Fatal:$!\n"; print OUT "$file[0]\n"; print OUT "\n"; print OUT "\n"; while ($line = ) { @linedb = split(/\|/,$line); print OUT "\n"; for($i = 0; $i < scalar @linedb; $i++) { chomp($linedb[$i]); print OUT "\t\n"; } print OUT "\n"; } close (IN); print OUT "
".$linedb[$i]."
\n"; close (OUT);