Match in einer Textdatei (Allgemeines zu Perl)

[thread]16374[/thread]

Match in einer Textdatei

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+10 replies
Gast Markus S.

2011-05-31 14:17
Hallo zusammen,

ich versuche gerade in einer Datei festzustellen, ob ein bestimmter String enthalten ist. Wenn ja, soll einfach ein Text ausgeben werden. Die Datei report.xml beinhaltet einmalig folgende Zeile (auch mit zwei Tabs zu Beginn):
Code: (dl )

1 2 3 4 5 6 7

<?xml version='1.0' encoding='utf-8'?> <ResultsSession time="05/31/11 11:07:00" toolName="toolname" toolVer="9.4.2"> <Authors> HALLO <Author id="dev1" name="SYSTEM" /> </Authors>
Mein Check-Skript sucht nach HALLO:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

use strict; open (my $IN,'<'.'report.xml'); my @array=(<$IN>); close $IN; for (my $i=0;$i<@array;$i+=1){ if(@array[$i]=='HALLO') { print "match"; } }
Als Ausgabe bekomme ich 7x "match"! Was mache ich falsch? Ich denke das hat irgendwas mit der Abfrage in Zeile 7 zu tun?

Mit freundlichen Grüßen,
Markus
Last edited: 2011-05-31 14:27:40 +0200 (CEST)
- Linuxer
  
  2011-05-31 14:34
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Hi,
  
  nur kurze Anmerkungen:
  
  == führt einen numerischen Vergleich durch; diesen willst Du hier aber wahrscheinlich nicht.
  Text sollte besser mit eq und ähnlichen verglichen werden.
  ein einzelnes Array-Element sollte so addressiert werden: $array[$index]; Du verwendest hier einen sogenannten Array-Slice @array[$index1,$index2,...]
  Der Zeilenumbruch wird beim Einlesen nicht entfernt, daher musst Du ihn entweder entfernen oder beim Vergleich berücksichtigen
  
  Last edited: 2011-05-31 14:46:10 +0200 (CEST)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- GwenDragon
  
  2011-05-31 14:38
  User since
  2005-01-17
  14533 Artikel
  Admin1
  1) Verwende bitte
  
  Code: (dl )
  
  1 2
  
  use strict; use warnings;
  
  2) Du vergleichst mit == sozusagen numerische/logische Werte.
  'HALLO' bedeutet aber immer den Wert True im Vergleich.
  Zeichenketten werden mit eq verglichen!
  
  2) Du solltest anstatt @array[$i] schon $array[$i] schreiben.
  @array[$i] ist nicht der Inhalt des Array sondern ein Ausschnitt (array slice).
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +2 replies
- topeg
  
  2011-05-31 15:15
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  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
  
  #!/usr/bin/perl use strict; use warnings; # dateiname setzen my $file='report.xml'; # Datei als UTF-8 kodiert öffnen, oder Fehlermeldung open (my $fh,'<:encoding(UTF-8)', $file) or die("Error open $file ($!)\n"); # alles einlesen my @array=<$fh>; # Zeilenumbrüche entfernen chomp(@array); # Datei schließen close $fh; # das Array durchgehen for my $i (0..$#array) { # Arrayeintrag an stelle $i holen und mit "HALLO" vergleichen if($array[$i] eq 'HALLO') { print "match Line $i\n"; } }
  
  Wenn es dir nur um den Treffer geht:
  
  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 use strict; use warnings; # dateiname setzen my $file='report.xml'; # Datei als UTF-8 kodiert öffnen, oder Fehlermeldung open (my $fh,'<:encoding(UTF-8)', $file) or die("Error open $file ($!)\n"); # alles einlesen my @array=<$fh>; # Zeilenumbrüche entfernen chomp(@array); # Datei schließen close $fh; # das Array durchgehen for my $line (@array) { print "match\n" if($line eq 'HALLO'); }
  
  oder wenn es dir nur darum geht Festzustellen, ob ein String in einer Datei ist:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  #!/usr/bin/perl use strict; use warnings; # dateiname setzen my $file='report.xml'; # Datei als UTF-8 kodiert öffnen, oder Fehlermeldung open (my $fh,'<:encoding(UTF-8)', $file) or die("Error open $file ($!)\n"); { # input line separator local $/=undef; # mit regulärem Ausdruck "HALLO" finden print "match\n" if( <$fh>=~/\nHALLO\n/ ); } # Datei schließen close $fh;
  
  Last edited: 2011-05-31 15:16:47 +0200 (CEST)
  - Gast Markus S.
    
    2011-06-01 07:55
    
    Hallo,
    
    ich danke euch. Alle drei Lösungen von topeg sind prima! :)
    
    Gruß,
    Markus
    Last edited: 2011-06-01 08:02:08 +0200 (CEST)
- +5 replies
- hlubenow
  
  2011-05-31 15:34
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Guest Markus S.
  Mein Check-Skript sucht nach HALLO:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  use strict; open (my $IN,'<'.'report.xml'); my @array=(<$IN>); close $IN; for (my $i=0;$i<@array;$i+=1){ if(@array[$i]=='HALLO') { print "match"; } }
  
  Hmm, sollten Filehandles nicht ohne $ sein, also "IN"?
  Und ist @array in der for-Zeile die Anzahl der Elemente von @array - 1 oder muß es da nicht "$#array" heißen?
  
  Schau' Dir auch mal den (Linux-)Befehl "grep" an, oder Perls "grep"-Funktion, siehe "perldoc -f grep".
  
  Gruß
  - +4 replies
  - Linuxer
    
    2011-05-31 15:57
    User since
    2006-01-27
    3870 Artikel
    HausmeisterIn
    
    Hi, das $ gehört dahin, wenn man (wie hier) lexikalische Filehandles einsetzt.
    
    WasIsteinLexikalischerFileHandle
    
    edit: zum Array-Index.
    Das Vergleichskriterium ist doch < @array; $i muss also kleiner sein als die Anzahl der Elemente des Array.
    Wenn man nicht an den Interna und Variablen rumgefingert hat, nimmt $i damit alle Werte von 0 bis $#array an.
    
    edit2: Alternativen Varianten der for-Schleife:
    
    Code (perl): (dl )
    
    1 2 3
    
    for ( my $i=0; $i<=$#array; $i+=1 ) { # pruefe $array[$i] auf Gleichheit ... }
    
    Code (perl): (dl )
    
    1 2 3
    
    for my $i ( 0 .. $#array ) { # pruefe $array[$i] auf Gleichheit ... }
    
    oder
    
    Code (perl): (dl )
    
    1 2 3
    
    for my $element ( @array ) { # pruefe $element auf Gleichheit ... }
    
    Last edited: 2011-05-31 16:05:06 +0200 (CEST)
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - +3 replies
    - hlubenow
      
      2011-05-31 18:41
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Ok, dann hab ich's wohl mal etwas klassischer gelernt.
      
      Klar, $#a ist die Anzahl der Elemente der Liste - 1, es muß dann also <= in der for-Schleife heißen. Wenn man mit der Anzahl der Listenelemente arbeitet, z.B.
      
      Code (perl): (dl )
      
      my $alen = @a;
      
      dann also "<" in der for-Schleife.
      
      Aber daß man direkt den Ausdruck "@a" in der for-Schleife verwenden können soll, wußte ich nicht.
      
      Ehrlich gesagt geht mir hier das TMTOWTDI etwas zu weit.
      Last edited: 2011-05-31 18:43:34 +0200 (CEST)
      - GwenDragon
        
        2011-05-31 19:10
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Die einfach gestaltete dreiteilige For-Schleife ist was für Leute, die von C & Co. her kommen. ;)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - Linuxer
        
        2011-05-31 20:03
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        2011-05-31T16:41:59 hlubenow
        $#a ist die Anzahl der Elemente der Liste - 1, es muß dann also <= in der for-Schleife heißen.
        
        Korrekter:
        $#array ist der Index des letzten Elementes des Array @array.
        Solange die Array-Indizes bei 0 starten, entspricht $#array der Anzahl-1.
        Sollte es einmal (aus welchem Grund auch immer), einmal nicht so sein, stimmt das eben nicht mehr.
        Diese Feinheit sollte man sich im Hinterkopf bewahren.
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2011-05-31 14:17.