libcrack · February 6, 2016 09:47
diff --git a/escape_sh_args.pl b/escape_sh_args.pl
 #!/usr/bin/env perl

 use strict;
 use warnings;

 while (<STDIN>){
    $_ =~ s/([;<>\*\|`&\$!#\(\)\[\]\{\}:'"])/\\$1/g;
    print $_;
 }

 exit 0;
	#!/usr/bin/env perl

	use strict;
	use warnings;

	while (<STDIN>){
	$_ =~ s/([;<>\*\\|`&\$!#\(\)\[\]\{\}:'"])/\\$1/g;
	print $_;
	}

	exit 0;