Split letzte Hausnummer von String? - #157919 (Allgemeines zu Perl)

FIFO

2012-04-28 11:00

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Das funktioniert nicht, wenn nur eine Nr. angegeben ist, Leerzeichen auftauchen, oder '/' statt '-'. Etwas allgemeiner könnte man es so machen:

Code (perl): (dl )

my $regex = qr(
    (\d+\s*[a-zA-Z]?)       # erste Nr.
    (?:                     # Trennzeichen verwerfen
        \s*[-/]\s*
        (\d+\s*[a-zA-Z]?)   # zweite Nr.
    )?                      # oder auch nicht
)x;

my @nr = ("Hauptstr. 77", "Hauptstr. 77-88 a", "Hauptstr. 77 / 79a", "Hauptstr. 77b - 79");

for my $testnr (@nr) {
    my ($nr1, $nr2) = $testnr =~ /$regex/;
    printf("%s, %s\n", $nr1, $nr2);
}

Ausgabe:

Code: (dl )

77, 
77, 88 a
77 , 79a
77b, 79

EVtl. Leerzeichen kann man ja einfach ersetzen, falls gewünscht.
Gruß FIFO

Editiert von FIFO: Ausgabe ergänzt
Last edited: 2012-04-28 11:02:29 +0200 (CEST)

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"