Wort filtern oder $1 resetten (Allgemeines zu Perl)

[thread]13887[/thread]

Wort filtern oder $1 resetten

Readers: 21

Articles: hide open all | hide show old branches

+4 replies
guest grepex

2009-08-19 12:05
Hallo ich habe folgendes (Anfaenger-)Problem:
ich habe einen Text den ich in die Liste @output einlese. In manchen Zeilen befinden sich Worter die der Regex entsprechen. In anderen Zeilen nicht. Mit folgender Implementation versuche ich nur die Worter in entsprechenden "Trefferzeilen" herauszufiltern und in die Listen @essids anzuhaengen. Mein Problem ist jedoch dass, bei meiner Implementation $1 nicht "resettet" wird, dh. fuer jede nicht treffer Zeile bekomme ich zusaetzlich das Wort in $1 des vorigen Treffers nocheinmal. Nun frage ich mich ob ich $1 irgendwie "resetten" kann in jedem Schleifendurchlauf oder ob es eine andere / eifachere Moeglichkeit gibt.
Code (perl): (dl )

1 2 3 4 5 6

my @essids; foreach (@output){ $_ =~ /.*ESSID:\"(.*)\"/x; push @essids, $1 if $1; } print join "\n", @essids;
zunaechst hatte ich es mit folgendem versucht,
Code (perl): (dl )

grep /.*ESSID:\".*/, @output;
aber da bekomme ich immer noch den ganzen Wust vor und nach dem " in den Treffer - dabei will ich wirklich nur ein Wort. zB eine Zeile:
Code: (dl )

ESSID:"foobar"
sollte mir in @essids nur foobar anhaengen, den Rest nicht.

Danke im voraus
- pq
  
  2009-08-19 12:12
  User since
  2003-08-04
  12209 articles
  Admin1
  $1 wird nicht resettet. der punkt ist, du solltest $1 nur verwenden, wenn der match erfolgreich war. damit fällt das resetten weg, da bei einer erfolgreichen regex immer $1 und co. resettet werden.
  also, niemals niemals:
  
  Code (perl): (dl )
  
  1 2
  
  m/.../; tu_was_mit($1) if $1;
  
  immer:
  
  Code (perl): (dl )
  
  1 2 3
  
  if (m/.../) { tu_was_mit($1); }
  
  das wird leider immer wieder falsch gemacht.
  aber es ist doch logisch, dass man $1 nur benutzen will, wenn der match auch erfolgreich war, oder?
  
  edit: typo
  Last edited: 2009-08-19 12:14:08 +0200 (CEST)
  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
- renee
  
  2009-08-19 12:13
  User since
  2003-08-04
  14371 articles
  ModeratorIn
  $1 behält seinen Wert bis zum nächsten erfolgreichen Match. Du hast zwei Wege, die Problematik zu lösen:
  
  1) Den Regulären Ausdruck in die if-Bedingung einsetzen
  2) in eine extra Variable speichern und die dann verwenden.
  
  1)
  
  Code (perl): (dl )
  
  1 2 3
  
  if( $_ =~ /.*ESSID:\"(.*)\"/x ) { push @essids, $1; }
  
  2)
  
  Code (perl): (dl )
  
  1 2
  
  my ($match) = $_ =~ /.*ESSID:\"(.*)\"/x; push @essids, $match if $match;
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - guest op
    
    2009-08-19 13:25
    
    Ok, danke fuer die Antworten

View all threads created 2009-08-19 12:05.