Gast+2008-02-16 13:51:54--

Code: (dl )

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

@liste = ($r,$f,$verfuegbar);

foreach (@liste) {

	$_ = sprintf ("%.0f", $_);

	$_ = reverse($_);
	$_ =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
	$_ = reverse($_);

}

## können die folgenden Zeilen komfortabler geschrieben werden?

$r = $liste[0];
$f = $liste[1];
$verfuegbar = $liste[2];

1
2
3
4
5
6
7

foreach ($r, $f, $verfuegbar) {

	$_ = reverse sprintf "%.0f", $_;
	$_ =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
	$_ = reverse $_;

}

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