Thread Duplikate im Textdateien suchen *war Brauche Kreative Hilfe (6 answers)
Opened by Trommelwirbel at 2012-04-02 14:11

topeg
 2012-04-02 15:40
#157181 #157181
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Ich würde über ein HoA machen. Gehe beide Verzeichnisse durch und nutze die Dateinamen als Schlüssel eines Hashs. In das Array packe den Verzeichnispfad. Damit kommt man zu jeder Datei die Verzeichnisse in der sie zu finden ist. Dann noch die Namen sortieren und das ganze verarbeiten.

ungetestet:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

my %files;

read_files(\%files,'dir1');
read_files(\%files,'dir2');

my @sorted=map{$_->[0]}sort{$a->[1] <=> $b->[1]}map{[$_,(/(\d+)/)]}keys(%files);

for my $file (@sorted)
{
  my @paths=map{$_.'/'.$file}@{$files{$file}};

  # mach was mit den Pfaden
  print "FILES: ".join(' , ',@paths);
}

sub read_files
{
  my $files=shift;
  my $dir=shift;
  opendir(my $dh, $dir) or die("error opedir $dir ($!)\n");
  while(my $file=readdir($dh))
  {
    next unless($file=~/\d+\.txt/);
    push(@{$files->{$file}},$dir1);
  }
  closedir($dh);
}

View full thread Duplikate im Textdateien suchen *war Brauche Kreative Hilfe