ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

better escape stuff

Browse source
This commit is contained in:
Ward Wouts 2003-01-23 22:11:04 +00:00
parent ab452d27df
commit 1d4c6d9e57
1 changed files with 1 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

11
list_same/list_same
View file

@ -172,14 +172,7 @@ sub output_doubles(@) {
sub output($) { sub output($) {
my $string = shift; my $string = shift;
if ($opts{e}) { if ($opts{e}) {
$string =~ s/\\/\\\\/g; $string =~ s/([\&\;\`\'\\\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\010\013\020\011])/\\${1}/g;
$string =~ s/ /\\ /g;
$string =~ s/'/\\'/g;
$string =~ s/"/\\"/g;
$string =~ s/\(/\\\(/g;
$string =~ s/\)/\\\)/g;
$string =~ s/\[/\\\[/g;
$string =~ s/\]/\\\]/g;
print "$string"; print "$string";
} else { } else {
print "$string"; print "$string";
@ -201,5 +194,3 @@ Usage: $name [OPTION] ...
EOF EOF
exit; exit;
} }