File: wnhtmlify

package info (click to toggle)
wn 2.0.5-3
  • links: PTS
  • area: main
  • in suites: slink
  • size: 2,208 kB
  • ctags: 1,499
  • sloc: ansic: 14,439; sh: 2,430; perl: 1,360; makefile: 291
file content (10 lines) | stat: -rwxr-xr-x 162 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/perl

print "<pre>\n";
while ( $line = <STDIN>) {
	$line =~ s/&/&amp;/g;
	$line =~ s/</&lt;/g;
	$line =~ s/>/&gt;/g;
	print $line;
}
print "</pre>\n";