Regex mit optionaler Gruppe (gelöst) (Allgemeines zu Perl)

[thread]19724[/thread]

Regex mit optionaler Gruppe [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+4 replies
Gast pinwheel

2015-07-13 17:14
Hallo zusammen,

gegeben sei eine Datei mit folgendem Aufbau (beispielhaft zunächst mit konkreten Werten):

410304100: 410304100 410304101
410304100: H410304100 410304101
410304100: 410304100 H410304101

In jeder Zeile steht eine Folge von (beliebig vielen, nur im Beispiel sind es zufällig je 3) 9-stellige Zahlen. Die erste Zahl endet immer auf ':' und es kann (muss aber nicht) eine Zahl mit einem 'H'-Präfix geben. Mein Ziel ist es nun, mit einem regulären Ausdruck folgende Informationen einzusammeln:

1. Die erste 9-stellige Zahl
2. Falls vorhanden: Die 9-stellige Zahl mit dem H-Präfix

Versucht habe ich es zunächst mit
Code: (dl )

^(\d{9}):\s.*((?:H\d{9})?)
aber das matched nur (1.). Wenn ich .* weglasse, dann funtioniert zwar das zweite Beispiel, aber die anderen nicht.

Kann mir hier jmd. aushelfen?

--pinwheel
Last edited: 2015-07-13 17:23:33 +0200 (CEST)
- +2 replies
- Raubtier
  
  2015-07-13 17:41
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  Wie wärs mit
  
  ^(\d{9}):(?:.*?(H\d{9})|)
  
  Also eine Oder-Gruppe an zweiter Stelle, von der der erste Teil die Zahl mit H enthält, also zuerst gematcht werden wird, der zweite Teil ist einfach leer, sodass $2 undef ist, wenn es keine Zahl mit H gibt.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  use strict; my $re = qr/^(\d{9}):(?:.*?(H\d{9})|)/; while(<DATA>) { if (/$re/) { print "\$1 = $1; \$2 = $2\n"; } } __DATA__ 410304100: 410304100 410304101 410304100: H410304100 410304101 410304100: 410304100 H410304101
  
  Ergibt:
  
  Quote
  $1 = 410304100; $2 =
  $1 = 410304100; $2 = H410304100
  $1 = 410304100; $2 = H410304101
  - Gast pinwheel
    
    2015-07-13 18:18
    
    Perfekt, auf die Idee mit der Oder-Gruppe bin ich nicht gekommen.
    
    Vielen Dank und beste Grüße
    pinwheel
    Last edited: 2015-07-13 18:30:01 +0200 (CEST)
- Linuxer
  
  2015-07-13 21:50
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Naja, oder (als Alternative zu Raubtiers Vorschlag) Du überarbeitest Deine Gruppierungen und nutzt das ? entsprechend:
  
  Vorschlag:
  
  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; use 5.010.000; my $re = qr{ ^(\d{9}) # save in $1 :\s # fixed string (?: # group without saving .*? # any string, as short as possible (H\d{9}) # save in $2 )? # the "not-saving" group is optional (for lines without matching the pattern for $2) }x; while ( my $line = <DATA> ) { if ( $line =~ $re ) { # print line numbers and matches printf "%d : \$1 = %s; \$2 = %s\n", $., ( $1 // '' ), ( $2 // '' ); } } __DATA__ 410304100: 410304100 410304101 410304100: H410304100 410304101 410304100: 410304100 H410304101
  
  Resultat:
  
  Code: (dl )
  
  1 2 3
  
  1 : $1 = 410304100; $2 = 2 : $1 = 410304100; $2 = H410304100 3 : $1 = 410304100; $2 = H410304101
  
  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 2015-07-13 17:14.