调和的松树林

#!/usr/bin/perl
 
 open(TMPFILE,"$ARGV[0]")||die "error";
 open(SHOWFILE,"+>$ARGV[0].txt")||die "error";
 while($line=<TMPFILE>)
{
 $line =~ s/(\S)/$1/;
 $line =~ s/\n/<\/code>$&/;
 $line =~ s/^\s+//;
 $tmp= $&;
 $tmp=~ s/\n//g;
 $tmp=~ s/[ \t]/&nbsp;/g;
#print "$tmp\n";
 $line= $tmp.$line;
 print $line;
}
close(TMPFILE);
close(SHOWFILE);