#!/usr/local/bin/perl -w # ascii2html - prosty konwerter ASCII -> HTML # (C) 2000 Marcin Owsiany print "\n
\n"; foreach $line (<>) { chomp($line); # justowanie $line =~ s/(\s{2,})/" " x length($1)/ge; # nawiasy katowe $line =~ s/</g; $line =~ s/>/>/g; # zamiana blokow tekstu na paragrafy print "\n
" if ($line eq '');
print "$line
\n";
}
print "\n\n";