Thread Präfixe rausschreiben (7 answers)
Opened by Philipp at 2012-04-29 13:14

FIFO
 2012-04-29 16:56
#157945 #157945
User since
2005-06-01
469 articles
BenutzerIn

user image
Der print-Befehl für @new_lines musste natürlich außerhalb der while-Schleife stehen, sorry :)

Ist Dir die RegEx klar? Man kann es natürlich auch anders lösen.

Vorsichtshalber vielleicht eine kommentierte Variante:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
my $regex = qr[
    \A (.+?) \t     # zwischen Anfang und erstem TAB => $key
    (\d+)           # $prefix
    (?:             # Klammern nicht behalten
      \(            # (
        (.+?)       # Inhalt zwischen Klammern => $extension
      \)            # )
    )?              # nur falls vorhanden
]x;


while (my $line = <DATA>) {
    my ($key, $prefix, $extension) = $line =~ /$regex/;

# usw.
Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"

View full thread Präfixe rausschreiben