Gast+2008-12-07 00:21:15--

Mit

Code: (dl )

$num =~ s/(\d{1,3})(?=(?:\d{3}))/$1\./g

wird statt des Kommas, ein Punkt eingefügt. :-)

Gast+2008-12-07 00:21:15--

Mit

Code: (dl )

$num =~ s/(\d{1,3})(?=(?:\d{3}))/$1\./g

wird statt des Kommas, ein Punkt eingefügt. :-)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

pq+2008-12-07 12:29:12--

kannst du mal mit dem trollen aufhören?

Gast+2008-12-07 16:29:22--

pq+2008-12-07 12:29:12--

kannst du mal mit dem trollen aufhören?

Gerne - jedenfalls soweit Du mit dem Rumpöbeln aufhören kannst :-)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

pq+2008-12-06 20:03:18--

die zwei codes zu vergleichen, ist ziemlich sinnlos, denn der code von gast macht was ganz anderes =)
er fügt alle 3 zeichen ein komma ein, das aber auch nicht richtig:

Code: (dl )

1
2
3
4
5

$ perl -wle'
$num = shift;
$num =~ s/(\d{1,3})(?=(?:\d{3}))/$1\,/g;
print $num;' 12345678901
123,456,78,901

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/Perl/bin/perl

use strict;
use warnings;
use Benchmark qw(:all) ;

my $count = 10000000;

cmpthese($count, {
    'tr' => sub {
        my $var = '5,10';
        $var =~ tr/,/./;
    },
    's' => sub {
        my $var = '5,10';
        $var =~ s/\,/\./g;
    },
});

Quote

Rate s tr
s 1033912/s -- -67%
tr 3092146/s 199% --