Erste Zahl in einem String finden - #99035 (Allgemeines zu Perl)

sid burn

2007-09-03 20:11

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

renee+2007-09-03 16:29:43--
@sid_burn: Es ist nach der Position und nicht nach der Zahl gefragt ;-)

hmm, also ich interpretiere das, "gib mir die erste Zahl aus".

Quote
wie finde ich die erste zahl in einem string,

EDIT:
Ja stimmt, durch sein beispielcode wird es ersichtlich.

Aber ansonsten:

Code (perl): (dl )

1
2
3

my $string = 'Ich suche ein Zahl 123 oder irgendetwas anderes 23.';
my ($erste_zahl) = $string =~ m/(\d+)/;
printf "Es wurde [%d] beginnend an Position %d bis Position %d gefunden.\n", $erste_zahl, $-[1], $+[1];

Code (perl): (dl )

my $string = 'In Diesem 1en String sollen mehr als 10 Zahlen vorkommen.'.
             '2 Zahlen habe ich schon geschrieben. 4 sind mir zu viele.';

print "Nr:    Zahl: Begin:  Ende:\n";
print "--------------------------\n";

my $num = 1;
while ( $string =~ m/(\d+)/g ) {
    printf "%3d %8d %6d %6d\n", $num++, $1, $-[1], $+[1];
}

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de