/[webpac2]/trunk/bin/isi-merge.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/isi-merge.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1300 by dpavlin, Fri Sep 18 18:58:59 2009 UTC revision 1301 by dpavlin, Sun Sep 20 01:21:17 2009 UTC
# Line 25  foreach my $file ( sort { Line 25  foreach my $file ( sort {
25          my $b_r = $1 if $b =~ m{(\d+)-\d+};          my $b_r = $1 if $b =~ m{(\d+)-\d+};
26          $a_r <=> $b_r;          $a_r <=> $b_r;
27  } @files ) {  } @files ) {
28          warn $file;          print STDERR $file;
29    
30          push @{ $report->{files} }, $file;          push @{ $report->{files} }, $file;
31    
# Line 39  foreach my $file ( sort { Line 39  foreach my $file ( sort {
39                          $nr++;                          $nr++;
40                          my $digest = md5_hex $rec;                          my $digest = md5_hex $rec;
41                          if ( my $times = $md5->{$digest} ) {                          if ( my $times = $md5->{$digest} ) {
42                                  warn "dumplicate $nr $digest $times\n";                                  print STDERR 'd';
43                                  $report->{file}->{$file}->{duplicates}++;                                  $report->{file}->{$file}->{duplicates}++;
44                          } else {                          } else {
45                                  print $out_fh $rec . $_;                                  print $out_fh $rec . $_;
46                                  $report->{file}->{$file}->{records}++;                                  $report->{file}->{$file}->{records}++;
47                                  $report->{total_records}++;                                  $report->{total_records}++;
48                                    print STDERR '.';
49                          }                          }
50    
51                          $md5->{$digest}++;                          $md5->{$digest}++;
52                          $rec = '';                          $rec = '';
53                  }                  }
54          }          }
55            warn "\n";
56  }  }
57    
58  print $out_fh "EF\n";  print $out_fh "EF\n";
Legend:
Removed from v.1300  
changed lines
  Added in v.1301
  ViewVC Help
Powered by ViewVC 1.1.26