nicht angemeldet
Daten einlesen
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
-
use Mosche;
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 = "";Du verwechselst hier einen Skalar ($) mit einem Array.
my @agruppen;
open(DATEI, "<$Datei") || die "$Datei: $!";
my $i = 0;
while(<DATEI>) {
$i++;
$agruppen[$i] = $_;Das ginge leichter mit push(). Und statt $_ willst du doch hier das split benutzen.
$agruppen = split (/|/, $agruppen);
in $agruppen steht jetzt die Anzahl der Elemente, die du durch das split erhälst.
Wie es korrekt funktioniert, siehst du unter [pref:t=32908&m=178817]. Vielleicht hilft es dir was.
use Tschoe qw(Matti);
--
Anyone who quotes me in their sig is an idiot. -- Rusty Russell.-
Danke Matti,
ich habs hingekriegt, Dank Deiner Hilfe.
Schöne Feiertage noch.
Grüße, Helmut
-