Hallo,
my $str = "1228300 /srv/www/";# entweder nur die Digits zu Beginn nehmen
my ($zahlen) = $str =~ /(^\d+)/;
print "$zahlen\n";
# oder alles, was nicht Digit ist, vom Ende her löschen
$str=~ s/\D*$//g;
print "$str\n";
(split liefert im skalaren Kontext nur die Anzahl der Splitter und weiß man, ob immer ein Leerzeichen nach den Zahlen kommt?)
Grüße,
Peter
Datum: 29.05.2006-16:42
