Duplikate im Textdateien suchen *war Brauche Kreative Hilfe (Allgemeines zu Perl)

[thread]17285[/thread]

Duplikate im Textdateien suchen *war Brauche Kreative Hilfe

Tags: perl5 Ähnliche Threads

Leser: 28

Articles: hide open all | hide show old branches

+7 replies
Trommelwirbel

2012-04-02 14:11

User since
2011-11-10
28 Artikel
BenutzerIn

Hallo Leute,

ich habe im Moment eher ein Ideenproblem. Mal eine kurze Beschreibung.
Ich habe 2 Ordner in dem jeweils eine Unterschiedliche Anzahl von .txt - Dateien abgespeichert sind. Jede .txt-Datei hat ein paar Zeilen Inhalt.
Die Namen der .txt-Dateien sind Zahlen. Nun möchte ich die .txt-Dateien in eine Schreiben.
Wenn ein Dateiname in beiden ist, soll dies in der gleichen Zeile Ausgegeben werden.

Jetzt ist das Problem das es natürlich welche gibt, die nur in einem der 2 Ordner enthalten ist. Ich würde gern die .txt-Dateien in beiden Ordnern angleichen. Ich glaube somit wäre es einfacher die Inhalte auszugeben.

Ich hoffe man versteht in etwa was ich für ein Problem habe.
Nochmal vereinfacht: ich will das in beiden Ordnern, Namentlich die gleichen Dateien existieren,natürlich mit unterschiedlichem Inhalt.

Freundliche Grüße
Trommelwirbel
- Trommelwirbel
  
  2012-04-02 14:22
  
  User since
  2011-11-10
  28 Artikel
  BenutzerIn
  
  Gerade kam mir eine Idee.
  Ich könnte ja die Inhalte der beiden Ordner, jeweils in einen Hash ablegen und dann kontrollieren, ob die keys der beiden Hashes gleich sind. Und dann ggf. das fehlende im Hash hinzufügen.
  Ich hab aber noch nie Inhalte von Ordnern in Hashes abgelegt.
  Hab in einem anderen Thread das 'rysnc'-Modul gefunden, hab aber nicht verstanden, was das alles kann?
  Last edited: 2012-04-02 14:50:10 +0200 (CEST)
- +3 replies
- topeg
  
  2012-04-02 15:40
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  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); }
  - +2 replies
  - Trommelwirbel
    
    2012-04-03 11:37
    User since
    2011-11-10
    28 Artikel
    BenutzerIn
    
    ok, von prinzip sollte das gehen.
    hab es jetzt mal versucht anzuwenden, ohne eine verarbeitung, nur das einlesen. klappt aber nicht wirklich.
    
    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 28 29
    
    #! /usr/bin/perl use strict; use warnings; my %files; my $dir_alt = 'C:\Users\alt'; my $dir_neu = 'C:\Users\neu'; read_files(\%files,'$dir_alt'); read_files(\%files,'$dir_neu'); my @sorted=map{$_->[0]}sort{$a->[1] <=> $b->[1]}map{[$_,(/(\d+)/)]}keys(%files); 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}},$dir); } closedir($dh); }
    
    er kickt mich bei öffnen raus "No such file or dictionary" zeile 29.
    - pq
      
      2012-04-03 12:25
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2012-04-03T09:37:14 Trommelwirbel
      
      Code (perl): (dl )
      
      1 2
      
      read_files(\%files,'$dir_alt'); read_files(\%files,'$dir_neu');
      
      das kann so ja gar nicht gehen.
      lies dir mal bitte ein, zwei tutorials durch:
      http://perl-tutorial.org/
      perlintro
      
      wenn du schreibst '$var', dann steht in dem string hinterher dollar var.
      wenn du variablen interpolieren willst, dann musst du doppelte anführungszeichen nehmen.
      
      und wenn du die fehlermeldung hier richtig kopiert hättest, würdest du das vermutlich auch sehen, denn daran
      
      Quote
      er kickt mich bei öffnen raus "No such file or dictionary" zeile 29.
      
      sieht man, dass du die fehlermeldung nicht kopiert hast. üblicherweise heisst das file or directory und nicht dictionary.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +2 replies
- Trommelwirbel
  
  2012-04-12 09:55
  User since
  2011-11-10
  28 Artikel
  BenutzerIn
  kleines Update. habe mir etwas anderes überlegt, als HoA.
  Habe jeweils für beide Ordner ein Array erstellt, mit den Dateinamen. Dann zusammengefasst und sortiert. Dann hab ich jeweils vergleichen ob das vorherige gleich ist. da es ja alphabetisch dann geordnet ist, stehen die 'doppelten' ja hintereinander in der liste.
  ehrlich gesagt, glaube ich nicht, dass es sehr elegant ist, aber es erfüllt seinen zweck.
  
  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 28 29 30 31 32 33 34 35 36
  
  #! /usr/bin/perl use strict; use warnings; my $dir_alt = 'C:\Users\alt'; my $dir_neu = 'C:\Users\neu'; opendir my $dh_alt, $dir_alt or die $!; opendir my $dh_neu, $dir_neu or die $!; my @files_alt = grep { -f "$dir_alt/$_" } readdir $dh_alt; closedir $dh_alt; my @files_neu = grep { -f "$dir_neu/$_" } readdir $dh_neu; closedir $dh_neu; my @alle=( @files_alt,@files_neu); @alle = sort(@alle); my $laenge = @alle; my $n = 0; my @new = (); while($n <$laenge) { print "bin bei ",$alle[$n]," ","\n"; push @new,$alle[$n]; if (not exists $alle[$n+1]){ last; } if( $alle[$n] eq $alle[$n+1]){ pop @new; } $n+=1; }
  - topeg
    
    2012-04-12 13:52
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Über einen Hash ist es weit aus einfacher und schneller. Ein Hash sucht für sich, da brauchst du das nicht von Hand zu machen.
    
    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 28 29
    
    #!/usr/bin/perl use strict; use warnings; my $dir_alt = 'C:\Users\alt'; my $dir_neu = 'C:\Users\neu'; my %files_alt = read_dir_files($dir_alt); my %files_neu = read_dir_files($dir_neu); my %files_all=(%files_alt,%files_neu); my @new; for my $file (keys(%files_all)) { next if($files_alt{$file} && $files_neu{$file}); push(@new,$file); } print join("\n",@new)."\n"; ############################################################ sub read_dir_files { my $dir=shift; opendir(my $dh, $dir) or die("Error opendir $dir ($!)\n"); my @files=grep { -f "$dir/$_" } readdir($dh); closedir($dh); return map {$_ => 1} @files; }
    
    Nebenbei mein vorheriger Code macht nahezu das selbe, nur nutzt er die Fähigkeiten von Perl mehr.

View all threads created 2012-04-02 14:11.