Opened by Gast at 2008-02-16 14:51
Hallo,
in folgendem Code wird der Wert jeder Array Zelle gerundet und mit Dezimaltrenner ergänzt. Kann man den Code optimieren? Ist es möglich, die Übergabe der bearbeiteten Array Werte komfortabler zu schreiben?
Vielen Dank.
in folgendem Code wird der Wert jeder Array Zelle gerundet und mit Dezimaltrenner ergänzt. Kann man den Code optimieren? Ist es möglich, die Übergabe der bearbeiteten Array Werte komfortabler zu schreiben?
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];
Vielen Dank.