sub Test { my $zaehler=0; my $DevAttr; my $anzahl=0; my $count=0; my @Attr; my @Value; my @Selection; my @userAttr; my @test; my $cmd="attr"; my $dev="Rollladensteuerung"; open(DATEI,"d:/perl/DevAttr.txt") or die "Couldn't open file $!";; # oeffne die Datei while () { # Zeilenwiese / solange noch Daten existieren chop; # schneide LF ab; Zeile in $_ ($Attr[$anzahl],$Value[$anzahl],$Selection[$anzahl++])=split(" ");# teile die Datenfelder wenn Leerzeichen vorkommt } close(DATEI); # schliesse die Datei foreach $DevAttr (@Attr) { # machs fuer alle Datensaetze print "$cmd $dev $Attr[$zaehler] $Value[$zaehler]\n"; $zaehler++; # Index erhoehen } }