Zahlen formatieren (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]2885[/thread]

Zahlen formatieren

Gast Gast

2004-01-06 19:01

Hallo, hat jemand einen Tipp, wie ich einen String
gefällig formatiere ?
Beispiel:
Ich möchte eine Kreditkartennummer mit Leerzeichen
nach jeweils 4 Ziffern erhalten.
Vorher: 5555222244441111
Nachher: 5555 2222 4444 1111

format_c

2004-01-06 19:25

User since
2003-08-04
1706 Artikel
HausmeisterIn

MMh mit printf währs sicher eleganter aber irgendwie hat das mit nem Scalar net hin.
Also hier die etwas ungewöhnlich Variante:

Code: (dl )

$dig = "5555444433332222";
print join " ",$dig =~ /(\d{4})/g;
_ _ END _ _
5555 4444 3333 2222

Gruß Alex

Effizente Linuxshell

esskar

2004-01-06 23:00

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

1
2
3

$dig = "5555444433332222";
$dig =~ s!(\d{4})!$1 !g;
print $dig;

View all threads created 2004-01-06 19:01.