Kurz noch zur Effektivität (macht dasselbe wie dein Code):
Code:
open (BB, $str_pfad_bb) or die "Konnte die Datei $str_pfad_bb nicht oeffnen: $!\n";
while (<BB>) {
chomp;
($str_isin,$str_waehrung,$str_nominal,$rest) = split/;/;
push(@{$hsh_liste_bb{$str_isin}},($str_waehrung,$str_nominal,$int_mtch_isin,$int_mtch_whrg,$int_mtch_nom));
}
close BB;
Perl kann ja sehr effektiv programmiert werden. Natürlich ist das alles eine Frage des Verständnisses und dein Code ist einfacher zu lesen. Allerdings gibt man meiner Meinung nach auch einen Teil der Mächtigkeit von Perl auf, wenn man seine "Emphatie" nicht nutzt.
Lesezeichen