Help for this page

Select Code to Download


  1. or download this
    while(@fnames) {
  my $f = shift @fnames;
...
  for my $f2 (@fnames) {
    last if($size{$f} != $size{$f2});
  2. or download this
    my %filesets;
for ( @fnames ) {
...
for ( keys %filesets ) {
  @{$filesets{$_}} <= 1 and delete $filesets{$_};
}
  3. or download this
    my %filesets;
for ( @fnames ) {
...
  my $csum = `sum "$_"`;
  push @{ $filesets{$size.$csum} }, $_;
}