KurtZ: mehrdimensionales Array abfragen

Beitrag lesen

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