Regulärer Ausdruck zum Suchen eines Wortes (Allgemeines zu Perl)

[thread]17554[/thread]

Regulärer Ausdruck zum Suchen eines Wortes

Tags: perl5 regex Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+5 replies
Gast Anton Mehl

2012-07-11 15:33
Tag,

ich hab ein kleines Problem, wo ich grad festhänge und nicht weiterkomme.

Ausgangssituation:
Ich hab eine Datei, die u.a. folgende Zeilen enthält
"ProductName=LT0G"
"ProductNameShort="

Nun möchte ich die Datei Zeile für Zeile mit einem regulären Ausdruck
nach "ProductName=" prüfen und anschließend alles, was nach dem Gleichzeichen kommt in eine Variablem speichern.

Hier mein bisheriger Code:
Code: (dl )

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

for (my $z=0; $z<$anzahl_elemente; $z++) { open (my $fh, '<', $pfade[$z]) or die "Fehler beim Oeffnen: $!"; while (<$fh> && $pruef ==0) { $_= <$fh>; if ($_ =~ m/^ProductName=/) { $teil = substr($_,12, 30); chomp $teil; $pruef = 1; print $teil, "\n"; } } }
Was er ausgibt ist die mit substr bearbeitete zweite Zeile, also ProductNameShort=.

Wie kann ich die erste Zeile, wo auch ^ProductName= zutrifft, abfangen??
Weil ich möchte eben das nach dem ProductName= haben und nicht ProductNameShort=.

Danke schonmal für eure Hilfe.
Last edited: 2012-07-11 16:08:00 +0200 (CEST)
- pq
  
  2012-07-11 16:16
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  das verstehe ich nicht, du matchst doch auf m/^ProductName=/. und da bekommst du die zeile mit ProductNameShort=?
  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
- Raubtier
  
  2012-07-11 16:21
  User since
  2012-05-04
  1054 Artikel
  BenutzerIn
  Guest Anton Mehl
  Nun möchte ich die Datei Zeile für Zeile mit einem regulären Ausdruck
  nach "ProductName=" prüfen und anschließend alles, was nach dem Gleichzeichen kommt in eine Variablem speichern.
  
  Alles was danach kommt oder nur alles bis zum Zeilenende?
  
  Code: (dl )
  
  for (my $z=0; $z<$anzahl_elemente; $z++) {
  
  Das sieht eher nach C aus... Warum loopst du nicht einfach direkt über die Pfade? Also etwa
  
  Code: (dl )
  
  for my $pfad (@pfade) { ...
  
  Und nun zum eigentlichen Problem:
  
  Code: (dl )
  
  1 2
  
  while (<$fh> && $pruef ==0) { $_= <$fh>;
  
  Hier liest zu eine Zeile in dem while ein und dann die nächste Zeile mit dem Befehl $_ = <$fh>. Das willst du aber nicht.
  
  Außerdem brauchst du hier kein substr, das erledigst du gleich im RE. Als Beispiel:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  while(<DATA>) { if (/^ProductName=(.*)/) { my $restDerZeile = $1; print "Rest der Zeile: $1"; last; # du kannst hiermit die Loop verlassen und braucht keine extra Variable } } __DATA__ ProductName=LT0G ProductNameShort=short
  
  Last edited: 2012-07-11 16:25:32 +0200 (CEST)
- +2 replies
- Gast wer
  
  2012-07-11 16:22
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  if ($_ =~ m/^ProductName=(.+)$/) { my $teil = $1; chomp $teil; $pruef = 1; print $teil, "\n"; }
  
  Last edited: 2012-07-11 16:26:00 +0200 (CEST)
  - pq
    
    2012-07-12 12:11
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    Splitted to Datensätze auslesen - Semikolon-getrennt
    
    Original message by 'Anton Mehl':
    
    Quote
    Bin noch ziemlicher Perl Neuling und mach noch vie...
    
    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

View all threads created 2012-07-11 15:33.