regex gesucht zum Splitten von Zahlen - #78639 (Allgemeines zu Perl)

ptk

2007-07-18 23:39

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

[quote=Guest,18.07.2007, 21:33]Mit substr komme nicht weiter, weil der "eurobereich" ja in de länge variabel ist.[/quote]
Wieso nicht?

Code: (dl )

1
2

warn "$_ -> ". substr($_, 0, length($_)-2) . "," . substr($_, length($_)-2)
    for (2599, 158989);

Am lesbarsten dürfte ein Regexp sein:

Code: (dl )

for (2599, 158989) {
    my($euro,$cent) = $_ =~ m{^(\d*)(\d{2})$};
    print "$_ -> $euro,$cent\n";
}