Mit regex bestimmten Teil maskieren und in Variable speichern? (Allgemeines zu Perl)

[thread]19080[/thread]

Mit regex bestimmten Teil maskieren und in Variable speichern?

Leser: 14

Articles: hide open all | hide show old branches

+6 replies
bandchef

2014-05-07 11:16
User since
2014-05-05
15 Artikel
BenutzerIn
Hi Leute!

Ich hab jetzt schon mal einige Seiten des Tutorials, das mir im anderen Thread ans Herz gelegt worden ist, durchgearbeitet.

Nun hab ich diesen kurzen Beispiel-Code programmiert:
Code: (dl )

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

use strict; use warnings; my $testString = "Test Hallo Test"; if($testString =~ /Hallo/) { my $test =~ /Hallo/; my $myVar = $1; print "true $myVar"; } else { print "false\n"; }
Wenn ich in der Konsole die print betrachte, steht da nur "true". Das if entscheidet also richtigerweise, dass der Substring "Hallo" im gesamten String enthalten ist. Im true-Fall der if-Struktur steht aber dann irgendwie in der festen Variable $1 nix mehr drin, was zum Fehler führt, dass eine uninitialisierte Variable myVar verwendet wird...

Wie nennen sich eigentlich diese nicht explizit angelegten Variablen $1, $2, ...,?

Danke!
Last edited: 2014-05-07 11:19:49 +0200 (CEST)
- +5 replies
- Raubtier
  
  2014-05-07 11:21
  
  User since
  2012-05-04
  1081 Artikel
  BenutzerIn
  
  Du musst Klammern setzen, damit $1, $2 usw. gesetzt werden.
  
  Also:
  if ($testString =~ /(Hallo)/) { ... }
  
  Das erste Klammernpaar ist $1 usw.
  
  Deine Zeile my $test =~ /Hallo/; erscheint mir nutzlos.
  - +4 replies
  - bandchef
    
    2014-05-07 11:26
    User since
    2014-05-05
    15 Artikel
    BenutzerIn
    
    2014-05-07T09:21:31 Raubtier
    Deine Zeile my $test =~ /Hallo/; erscheint mir nutzlos.
    
    Danke für deine Antwort!
    
    Es funktioniert soweit. Die unnütze Zeile braucht man also nicht, weil die nicht explizite Variable $1 schon in der if-Abfrage "befüllt" wird? Ist das richtig?
    Ist es guter Stil mit diesen nicht deklarierten Variablen zu arbeiten, oder sollte man diese Variablen lieber generell so zwischenspeichern, wie ich es gemacht habe? Denn, ich könnte ja auch so schreiben:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    use strict; use warnings; my $testString = "Test Hallo Test"; if($testString =~ /(Hallo)/) { print "true $1\n"; } else { print "false\n"; }
    
    Wie heißen diese $1, $2, $3,... Variablen? Unter welchem Namen findet man da weitere Infos?
    - rosti
      
      2014-05-07 11:39
      
      User since
      2011-03-19
      3566 Artikel
      BenutzerIn
      
      Wie bei allen globalen Variablen: Gehe davon aus, dass da was drinstehen kann.
      
      Code (perl): (dl )
      
      1 2 3
      
      # Kann schief gehen $var =~ /(foo)/; # matcht möglicherweise nicht if($1) {} # wird wahr, wenn in $1 schon was drinsteht
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      # besser if($var =~ /(foo)/ ){ # mit $1 kannst Du was anfangen # in $1 kann hier nur 'foo' stehen }
      
      http://blog.rolfrost.de/
      
      The art of steam.
    - Raubtier
      
      2014-05-07 11:39
      
      User since
      2012-05-04
      1081 Artikel
      BenutzerIn
      
      2014-05-07T09:26:19 bandchef
      Es funktioniert soweit. Die unnütze Zeile braucht man also nicht, weil die nicht explizite Variable $1 schon in der if-Abfrage "befüllt" wird? Ist das richtig?
      
      Ja. Sie wird immer dann befüllt, wenn eine Regexp im Spiel ist.
      
      Quote
      Ist es guter Stil mit diesen nicht deklarierten Variablen zu arbeiten, oder sollte man diese Variablen lieber generell so zwischenspeichern, wie ich es gemacht habe?
      
      Nur sehr wenige, einfache Befehle: nimm ruhig $1 etc.
      Mehr Befehle folgen oder die Werte werden auch später benötigt: einer benannten Variablen zuweisen.
      
      Quote
      Wie heißen diese $1, $2, $3,... Variablen? Unter welchem Namen findet man da weitere Infos?
      
      Keine Ahnung, wie die heißen, sorry. Die () in REs heißen "capture group".
    - Linuxer
      
      2014-05-07 11:41
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Die Variablen haben, soweit ich weiß, keinen expliziten Namen.
      
      Informationen sollte es dazu geben in folgenden Dokumentationen:
      
      http://perldoc.perl.org/perlretut.html#Extracting-...
      http://perldoc.perl.org/perlrequick.html#Extractin...
      http://perldoc.perl.org/perlre.html#Capture-groups
      http://perldoc.perl.org/perlvar.html#Variables-rel...
      
      Wenn der Block klein ist, in dem die Variablen $1, usw. verwendet wird, finde ich es OK sie zu benutzen.
      Wenn er größer wird oder der Code komplexer wird, würde ich die Variablen besser benannten Variablen zuweisen.
      
      Das geht übrigens auch direkt in der if-Bedingung:
      
      Code (perl): (dl )
      
      1 2 3
      
      if ( my ( $anrede ) = $text =~ m/Sehr geehrter? (\S+)/ ) { print "Anrede: $anrede\n"; }
      
      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 2014-05-07 11:16.