Regex und $1 uninitialized (gelöst) (Allgemeines zu Perl)

[thread]18880[/thread]

Regex und $1 uninitialized [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+5 replies
Gast Hagen

2014-01-30 14:32

Hallo alle miteinander,

ich verstehe es einfach nicht. Mir ist zwar klar, dass ein nicht erfolgter match undef für $1 zur folge hat, aber ich kriege bei folgendem Ausdruck (der das ja eigentlich abfängt) trotzdem $1 uninitialized

if ($zeile =~ m/exon/g)
{
print $1;
}

Wäre für Hilfe dankbar, da ich ja offenbar was grundsätzlich falsch mache ...

Grüße
Hagen
Last edited: 2014-01-30 15:34:28 +0100 (CET)
- GwenDragon
  
  2014-01-30 15:36
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Wenn du den Wert im Regex einfangen willst, musst das das Muster in Klammern schreiben.
  
  Code (perl): (dl )
  
  1 2 3 4
  
  if ($zeile =~ m/(exon)/g) { print $1; }
  
  In der Doku von Perl kannste nachsehen:
  perldoc perlrequick
  perldoc perlre
  perldoc perlretut
  
  oder Online:
  http://perldoc.perl.org/perlrequick.html
  http://perldoc.perl.org/perlretut.html
  Last edited: 2014-01-30 15:39:04 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Linuxer
  
  2014-01-30 15:37
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Wieso trotzdem?
  
  Der Regex ist nicht so definiert, dass er $1 füllen würde.
  
  Um $1 zu setzen, muss ein Teil des Regex in () gesetzt werden.
  
  Code: (dl )
  
  1 2 3
  
  if ( $zeile =~ m/(ex)on/ ) { print $1, "\n"; }
  
  Und der /g Modifier ist in diesem Beispiel IMHO überflüssig...
  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!
- +2 replies
- murphy
  
  2014-01-30 15:44
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  $1 bezieht sich auf den Inhalt der ersten "capturing group" im letzten Treffer den die reguläre Ausdrucksmaschine gefunden hat.
  
  Um eine solche Gruppe zu erzeugen musst Du einen Teil des regulären Ausdruckes in Klammern setzen. Wenn Du also zum Beispiel /e(xo)n/ schreibst und das Muster wird gefunden dann ist danach $1 eq 'xo'.
  
  Wenn Du keine Gruppe sondern den gesamten Treffer auslesen möchtest, kannst Du die Variablen $& oder $MATCH benutzen. Wenn diese Variablen aber irgendwo im Programm benutzt werden, werden sämtliche Anwendungen regulärer Ausdrücke überall langsamer. Um das zu verhindern, sollte man lieber Gruppen nutzen, oder ab Perl 5.10 den betreffenden regulären Ausdruck mit dem Flag /p versehen und auf ${^MATCH} statt $MATCH zugreifen.
  When C++ is your hammer, every problem looks like your thumb.
  - Gast Hagen
    
    2014-01-30 16:02
    
    Danke für die schnellen Antworten, da habe ich das entscheidende ja nicht gerafft. Jetzt bekomme ich ein definiertes $1.
    "\g" macht da keinen Sinn, hatte da vorher aber eine while schleife und da bleibt er sonst drin hängen. Generell habe ich eine regex möglichst einfach gestrickt, um meinen Fehler zu finden, was ich eingentlich machen will ist aus einer Zeile wie dieser
    
    chr1.fa hg19_refGene exon 67091530 67091593 0.000000 + . gene_id "SGIP1"; transcript_id "NM_032291";
    
    die ersten beiden zahlen zwischen den Tabs zu extrahieren und dann über $1 und $2, drauf zuzugreifen. ich denke das kriege ich jetzt hin.
    
    Grüße
    Hagen
    Last edited: 2014-01-30 16:16:54 +0100 (CET)

View all threads created 2014-01-30 14:32.