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

basic escaping

Browse source
This commit is contained in:
Ward Wouts 2003-01-23 14:26:11 +00:00
parent 6ae908b4e6
commit edf5502782
1 changed files with 21 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

29
list_same/list_same
View file

@ -26,7 +26,7 @@
use Digest::MD5;
use Getopt::Std;
getopts('s');
getopts('es');
opendir(DIR, ".") or die "can't open . $!";
while (defined($file = readdir(DIR))) {
@ -40,6 +40,8 @@ foreach (@filelist) {
}
}
$start = $opt_s ? 1 : 0;
foreach $size (keys %sizes) {
if (@{$sizes{$size}} > 1) {
%md5s = ();
@ -47,16 +49,13 @@ foreach $size (keys %sizes) {
push @{$md5s{&calc_md5($_)}}, $_;
}
foreach $key (keys %md5s) {
if ((@{$md5s{$key}} > 1) and !$opt_s ) {
foreach (@{$md5s{$key}}) { print "$_ "; }
print "\n";
}
elsif ((@{$md5s{$key}} > 1) and $opt_s ) {
if ( @{$md5s{$key}} > 1 ) {
@files = sort @{$md5s{$key}};
for $i (1 .. $#files) {
for $i ($start .. $#files) {
chomp $files[$i];
print "$files[$i]\n";
&output("$files[$i]\n");
}
unless($opt_s) { print "\n"; }
}
}
}
@ -85,3 +84,17 @@ sub calc_md5($) {
close(FILE);
return $digest;
}
# escape output if necessary
sub output($) {
my $string = shift;
if ($opt_e) {
$string =~ s/\\/\\\\/g;
$string =~ s/ /\\ /g;
$string =~ s/'/\\'/g;
$string =~ s/"/\\"/g;
print "$string";
} else {
print "$string";
}
}