Perl: gebruik . bij lange getallen

[anoniem]

Ik wil met Perl punten (.) plaatsen tussen lange getallen. 45651234 moet bijvoorbeeld worden: 45.651.234 Hoe doe ik dat?

[anoniem]

sprintf()

[anoniem]

[b:695a432561]Jurriaan:[/b:695a432561] hoe doe je dat dan met sprintf()? [b:695a432561]maartenk:[/b:695a432561] Anyway, zonder al te veel kennis van perl had ik binnen 5 minuten [url=http://www.bayview.com/software/perl.shtml]deze pagina[/url] te pakken via google. En na zelf wat te klooien (ca. 15 min.) had ik onderstaand test-scriptje zelf voor elkaar. Weet niet of 'ie altijd voldoet en er zijn ongetwijfeld nog 100 andere, betere en snellere methoden, maar ik wil alleen maar laten zien dat met een beetje doorzettingsvermogen je ook een heel eind komt. [code:1:695a432561] #!/usr/bin/perl print "input: "; $n = <STDIN>; chomp($n); while($n =~ /\d{4}/g) { $n =~ s/(.*?)(\d{3})((\.\d{3})*)$/$1\.$2$3/; } printf("result: %s\n", $n); [/code:1:695a432561]hmm, dit moet makkelijker kunnen ;)

[anoniem]

:oops: err... err.. niet? oops

[anoniem]

[quote:92fe8c59f4]wees verantwoordelijk voor je eigen daden[/quote:92fe8c59f4]

[anoniem]

http://elib.cs.berkeley.edu/~loretta/perl/nmanual/pod/perllocale.html#The_localeconv_function