nicht angemeldet
Hallo, brauche Hilfe,
habe mir aus dem Archiv folgendes Script soweit für mich schon angepaßt. dabei wird die komplette Zeile in das Array eingelesen. Brauche aber nur dir 4. Position aus dieser Zeile "[3]".
Wie krieg ichs hin das nur diese Pos eingelesen wird?
my $Datei = $agrubase;
my @agruppen = "";
open(DATEI, "<$Datei") || die "$Datei: $!";
my $i = 0;
while(<DATEI>) {
$i++;
$agruppen[$i] = $_;
$agruppen = split (/|/, $agruppen);
}
close(DATEI);
$i = 1;
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Testausgabe</title></head><body>\n";
foreach (@agruppen) {
print "Zeile $i beginnt in der Datei bei Offset $_<br>\n";
$i++;
}
print "</body></html>\n";
Grüße, Helmut