1
2
3
4
5
6
7
8

my @array = qw(1 6 2 8 3 4);
my $max = $array[0];

for(@array){
    $max = $_ if($_ > $max);
}

print $max;

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/