Kurtz gegrüßt
wieso? funktioniert doch ...
for $stoernr (1..20) {
push (@stoerliste,[$stoernr,$stoertyp,$stoertext,$stoersms,$stoerreserve1,$stoerreserve2,$stoerreserve3]);
}
print zaehler_von_nr(10);
sub zaehler_von_nr {
my ($nr) = @_;
my $zaehler = 0;
foreach (@stoerliste)
{
if (@$_[0] == $nr)
{
return $zaehler;
}
$zaehler++;
}
}
allerdings kann man das auch deutlich lesbarer schreiben...
sub zaehler_von_nr {
my ($nr) = @_;
my $zaehler = 0;
foreach my $stoer_ref (@stoerliste)
{
if ($stoer_ref->[0] == $nr)
{
return $zaehler;
}
$zaehler++;
}
}
Grüße
Kurt