Hi lieber Mitstreiter ;)
Tipp: Verwende q() oder qq() für einfach bzw. doppelt quoten, das ist oftmals übersichtlicher.
Geht auch nicht :-(
Abgelehnt! Lerne Quoten ;)
Hier das Übungsprogramm.
Nein, Dein Komplettprogramm werde ich nicht überarbeiten. Du kannst das!
Schrit für Schritt und das Hauruck erst am Schluss ;)
Noch ein paar Grundlagen: Arrays schön und gut, aber Du musst oft nachschauen, auf welchem Index [0], [1] ... welcher Wert zu finden ist. Vorschlag: Arbeite mit einem Hash und nenne die Felder beim Namen.
my @header = qw(Name Vorname Ort PLZ); # Beispiel
my @row_array = ("Rost", "Rolf", "Oppenheim", 55276); # CSV Zeile
my %row_hash = (); # declare
# Hash-Slice
@row_hash{@header} = @row_array; # den Feldern Werte zuweisen
print Dumper \%row_hash;
$VAR1 = {
'PLZ' => 55276,
'Ort' => 'Oppenheim',
'Vorname' => 'Rolf',
'Name' => 'Rost'
};
# Eizelfeld ansprechen
print $row_hash{Name};
# Referenz
my $ref = \%row_hash;
print $ref->{Name};
# bischen quoten
print qq(Name: $ref->{Name})."\n";
# einfacher alles zusammen
print "Name: $ref->{Name\\n";
# quoten und verketten like PHP
$addr = array(
"Name" => "Rost",
);
print("Name: ".$addr['Name']."\n");
Hotti