melo / scripts

My personal script stash

This URL has Read+Write access

scripts / bin / x-html-escape
100755 14 lines (10 sloc) 0.128 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/env perl
 
use strict;
use warnings;
 
while (<>) {
	s/&/&amp;/g;
	s/</&lt;/g;
	s/>/&gt;/g;
	s/'/&quot;/g;
 
	print;
}