Datei einlesen und Zeile in anderer Datei suchen (gelöst) (Allgemeines zu Perl)

[thread]21226[/thread]

Datei einlesen und Zeile in anderer Datei suchen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 8

Articles: hide open all | hide show old branches

+7 replies
bora99

2021-09-13 16:56
User since
2009-12-05
54 Artikel
BenutzerIn
Hallo,

Ist es die eleganteste Variante, eine Datei 1 einzulesen und die Zeile in einer anderen Datei 2 zu suchen , wie folgt ?

Demo Datei Erstellung
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#Datei 1 enthaelt Werte, welche in Datei 2 gesucht werden cat > testfile_1 <<-EOF 1 11 2 22 3 33 EOF cat > testfile_2 <<-EOF 1 22 3 EOF
Die gefundenen Zeilen in Datei 2 sind
1
22
3
Code: (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 37 38 39

#!/usr/bin/perl -w use strict; my $TestFile_Read = "testfile_1"; my $TestFile_Search = "testfile_2"; if( ! open( RFH, $TestFile_Read)) { print STDERR "Test File '$TestFile_Read' kann nicht gelesen werden !\n"; exit 1; } if( ! open( SFH, $TestFile_Search)) { print STDERR "Test File '$TestFile_Search' kann nicht gelesen werden !\n"; exit 1; } while( my $line_r = <RFH> ) { chomp $line_r; # print "File_Read: $line_r\n"; open( SFH, $TestFile_Search); while( my $line_s = <SFH> ) { chomp $line_s; # print "File_Search: $line_s\n"; if( $line_r eq $line_s ) { print "Gefunden ($TestFile_Read in $TestFile_Search): $line_s\n"; $found = 1; last; } } } close( SFH); close( RFH); exit 0;
- +5 replies
- haj
  
  2021-09-13 20:52
  User since
  2015-01-07
  527 Artikel
  BenutzerIn
  Danke, dass Du das Problem samt Beispieldaten geliefert hast!
  
  Nun ist "Eleganz" ja im Auge des Betrachters, und in meinen Augen kann man da schon ein paar Dinge eleganter machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  if( ! open( RFH, $TestFile_Read)) { print STDERR "Test File '$TestFile_Read' kann nicht gelesen werden !\n"; exit 1; }
  
  Das schreibe ich so:
  
  Code (perl): (dl )
  
  1 2
  
  open (my $rfh, '<', $TestFile_Read) or die "Test File '$TestFile_Read' kann nicht gelesen werden : '$!'\n";
  
  Den open mit drei Parametern zu verwenden, also auch beim Lesen den Modus '<' mit anzugeben, hat sich weitgehend eingebürgert. Eine lexikalische Variable anstelle einer globalen für den Handle anzugeben ist inzwischen ebenfalls üblich. die ersetzt die Kombination print STDERR und exit 1. Und schließlich habe ich auch den Grund des Scheiterns noch in die Fehlermeldung übernommen.
  
  In Deiner while-Schleife mir auf, dass Du $TestFile_Search in jeder Runde der Schleife neu aufmachst - und die Datei nur einmal am Ende schließt. Das ist in diesem speziellen Fall ohne negative Wirkung, aber elegant ist das nicht. Wenn Deine Suchdatei nicht hunderttausend Zeilen umfasst, dann würde ich die einmal einlesen und die Suchpatterns in einem Array speichern. Ausserdem trennst Du in allen Fällen das Zeilenende ab, hängst aber hinterher bei jeder Verwendung von $line wieder ein Zeilenende dran. Das ist defensiv programmiert und sauber, aber "elegant" würde ich beides weglassen.
  
  Und anstelle der Schleife durch die Sucheinträge kann man die in einem einzigen Such-Pattern zusammenfassen: Perl kümmert sich dann darum, dass beim ersten Treffer Schluss ist und $found = 1 (das Du sowieso nicht verwendest, das müsste Dir wegen use strict auf die Zehen fallen) sowie last fallen weg. Das sieht dann insgesamt so aus:
  
  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
  
  #!/usr/bin/perl -w use strict; my $TestFile_Read = "testfile_1"; my $TestFile_Search = "testfile_2"; # Suchdatei lesen aufbauen und Pattern aufbauen open (my $sfh, $TestFile_Search) or die "Test File '$TestFile_Search' kann nicht gelesen werden: '$!'\n"; my @search = <$sfh>; close $sfh; my $pattern = join "|", map { quotemeta } @search; # Testdatei lesen und durchschleifen open (my $rfh, $TestFile_Read) or die "Test File '$TestFile_Read' kann nicht gelesen werden: '$!'\n"; while( my $line_r = <$rfh> ) { # print "File_Read: $line_r"; if( $line_r =~ /^($pattern)$/ ) { print "Gefunden ($TestFile_Read in $TestFile_Search): $line_r"; } } close $rfh;
  
  Dabei habe ich noch keine Module verwendet. Für Deinen Fall finde ich interessant autodie und List::Util, die sind beide bei Perl schon mit dabei. Dabei kümmert sich autodie um die Fehlerbehandlung beim Öffnen von Dateien (allerdings mit englischen Fehlermeldungen), und mit List::Util wird's etwas "lesbarer" als mit der Quotemeta-Pattern-Bastelei:
  
  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
  
  #!/usr/bin/perl -w use strict; use autodie; use List::Util qw/any/; my $TestFile_Read = "testfile_1"; my $TestFile_Search = "testfile_2"; # Suchdatei lesen aufbauen und Pattern aufbauen open (my $sfh, $TestFile_Search); my @search = <$sfh>; close $sfh; # Testdatei lesen und durchschleifen open (my $rfh, $TestFile_Read); while( my $line_r = <$rfh> ) { # print "File_Read: $line_r"; if( any { $line_r eq $_ } @search ) { print "Gefunden ($TestFile_Read in $TestFile_Search): $line_r"; } } close $rfh;
  - +4 replies
  - bora99
    
    2021-09-15 17:09
    User since
    2009-12-05
    54 Artikel
    BenutzerIn
    
    Hallo,
    
    zur Variante 2 .
    
    Folgende Version in Verwendung
    perl -V
    perl5 (revision 5 version 18 subversion 2)
    
    und dann gibt es folgender Fehler bei Check
    
    Code: (dl )
    
    1 2
    
    perl -c test.pl "any" is not exported by the List::Util module
    
    Module autodie.pm dürfte nicht installiert sein
    Can't locate autodie.pm in @INC
    
    Besten Dank für die tollen Verbesserungen
    - +3 replies
    - haj
      
      2021-09-15 18:25
      
      User since
      2015-01-07
      527 Artikel
      BenutzerIn
      
      Zu "any" is not exported by the List::Util module: Die Funktion gibt's leider erst mit der Version von List::Util, die mit Perl 5.20 ausgeliefert wurde. Du kannst aber die aktuelle Version von CPAN beziehen.
      
      Zu Can't locate autodie.pm in @INC: Bist Du vielleicht auf RedHat? Das würde auch die recht alte Perl-Version erklären. Bei Perl ist autodie dabei, aber RedHat Linux (und vielleicht auch ein paar andere Distributionen) liefern nicht alles mit "Perl" aus. Leider kenne ich mich mit RedHat und seinen Derivaten gar nicht aus, aber es gibt ein Paket "perl-autodie".
      - +2 replies
      - bora99
        
        2021-09-16 14:30
        
        User since
        2009-12-05
        54 Artikel
        BenutzerIn
        
        Hallo,
        
        Noch folgende Anmerkungen zu den Informationen
        
        In Deiner while-Schleife mir auf, dass Du $TestFile_Search in jeder Runde der Schleife neu aufmachst - und die Datei nur einmal am Ende schließt. Das ist in diesem speziellen Fall ohne negative Wirkung, aber elegant ist das nicht.
        
        -----------------------
        Wenn ich das open in der while-Schleife weglasse, wie
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        while( my $line_r = <RFH> ) { # open( SFH, $TestFile_Search); while( my $line_s = <SFH> ) {
        
        dann wird nur ein Ergebnis erzielt (sollte mehrere Ergebnisse sein) :
        
        Gefunden (testfile_1 in testfile_2): 1
        
        Darum auch meine Frage wegen "eleganter". Dachte , wenn man mit open die Dateien öffnet, kann man in der while-Schleife mit z.B.: <SFH> darauf auch X-beliebig zugreifen. Wie würde das bei meinem Demo-Beispiel verbessert funktionieren ? Also nicht N-Mal open
        
        Zur Frage : Bist Du vielleicht auf RedHat?
        
        SUSE Linux Enterprise Server 12 SP5 ( Perl Version Standard mit SP5 ) ...
        Module müssen "andere" installieren ...
        
        haj
        
        2021-09-16 15:23
        
        User since
        2015-01-07
        527 Artikel
        BenutzerIn
        
        2021-09-16T12:30:31 bora99
        Wenn ich das open in der while-Schleife weglasse, wie
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        while( my $line_r = <RFH> ) { # open( SFH, $TestFile_Search); while( my $line_s = <SFH> ) {
        
        dann wird nur ein Ergebnis erzielt (sollte mehrere Ergebnisse sein)
        
        Klar, das ist so. Bei jedem neuen open fängst du von vorne an, aber es ist eben immer noch jedesmal ein neuer open.
        
        Deswegen habe ich den Inhalt der Datei in meinem Codebeispiel in ein Array eingelesen, die kann man beliebig oft verwenden. Entweder in ein Pattern aufbauen (wie in meinem Beispiel) oder ähnlich Deiner Struktur:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        while( my $line_r = <RFH> ) { for my $line_s (@search) { {
        
        2021-09-16T12:30:31 bora99
        Zur Frage : Bist Du vielleicht auf RedHat?
        
        SUSE Linux Enterprise Server 12 SP5 ( Perl Version Standard mit SP5 ) ...
        Module müssen "andere" installieren ...
        
        Ich habe leider keine Ahnung, wie man rausfindet, in welchem SUSE-Package autodie mit drin ist.... aber wenn Du eh' nicht selbst installieren kannst, kannst Du vielleicht die fragen, die installieren können. Gelegentlich lesen hier auch SUSE-Kenner mit, vielleicht passt ja einer auf?
        
        Wenn Du keine Root-Rechte hast, aber "richtig" Perl machen willst, dann ist vielleicht Perlbrew für Dich eine Option. Da findet alles in Deinem Home-Verzeichnis (oder allgemein: In einem Verzeichnis, auf das Du Schreibrechte hast) statt, und Du brauchst trotzdem eine Entwicklungsumgebung (Compiler, make, ...) Der Nachteil: Du kannst dann nicht nur alles selber machen, Du musst Dich um die Installation und gegebenenfalls Aktualisierung Deiner Module selber kümmern. Und es klemmt weiterhin bei Perl-Modulen, die "nur" die Perl-Interfaces zu anderen Bibliotheken (z.B. libxml2) bieten, falls diese Bibliotheken (samt Headern) nicht installiert sind.
- hlubenow
  
  2021-09-16 15:19
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Na ja, was heißt "elegant" (gerade in Perl :) ) ? Im Prinzip war das ja schon nicht falsch, wie Du es gemacht hast, wenn man keine zusätzlichen Module benutzen will.
  Aber ist "testfile_2" wirklich so groß, daß man den Inhalt der Datei nicht insgesamt in ein Array einlesen kann? Dann müßte man wohl bei jedem Schleifendurchlauf von "testfile_1" neu öffnen, wie Du es gemacht hast.
  Aber wenn man es in ein Array einlesen kann, wäre das nicht nötig. Dann also so:
  
  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
  
  #!/usr/bin/perl use warnings; use strict; my $TestFile_Read = "testfile_1"; my $TestFile_Search = "testfile_2"; my ($rfh, $sfh, $line_r, $line_s); open($rfh, "<", $TestFile_Read) or die "Test File '$TestFile_Read' kann nicht gelesen werden : '$!'\n"; open($sfh, "<", $TestFile_Search) or die "Test File '$TestFile_Search' kann nicht gelesen werden : '$!'\n"; my @searches = <$sfh>; chomp(@searches); close($sfh); while($line_r = <$rfh> ) { chomp($line_r); for $line_s (@searches) { if ($line_r eq $line_s) { print "Gefunden ($TestFile_Read in $TestFile_Search): $line_s\n"; last; } } } close($rfh);
  
  Last edited: 2021-09-16 15:20:29 +0200 (CEST)

View all threads created 2021-09-13 16:56.