Die höchste Zahl ermitteln - #135193 (Allgemeines zu Perl)

2010-03-24 10:23

User since
2003-08-04
12208 Artikel
Admin1

und wenn es sich um zahlen >= 0 handelt, kann man das etwas abkürzen:

Code (perl): (dl )

my $max = 0;
while (my @row = $tmp_id->fetchrow_array){
    $max = $row[2] if $row[2] > $max;
}

edit: nachtrag: auch bei zahlen kleiner 0 sollte das gehn:

Code (perl): (dl )

1
2

my $max = "-Infinity";
...

;-)
Last edited: 2010-03-24 11:03:23 +0100 (CET)

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem