nicht angemeldet
Hi Cheatah,
entschuldige die direkte Ansprache, aber Du hattest heute mittag schon auf mein Ursprungsproblem reagiert. Ich hab Deinen Rat beherzigt und ein wenig mit der "Einzeilen-Lösung" rumprobiert. Das neue kurze Skript siehe unten. Nur bekomme ich jetzt den Splitbefehl nicht mehr gebacken, irgendwie hab ich da nen Denkfehler. In jeder eingelesenen Datei stehen pro Zeile 13 Einzelinfos, getrennt durch ein Trennzeichen. Nur wie kann ich die jetzt einzeln einlesen und weiterverarbeiten? Ein Hinweis würde reichen.
Danke im Voraus, Birdman
use strict;
use CGI::Carp qw(fatalsToBrowser);
my @DAT_Dateien = glob("???-????.dat");
print "Content-type: text/html\n\n";
foreach (@DAT_Dateien) {
open(DATEI, $_);
my @Zeilen = <DATEI>;
close(DATEI);
my @Woerter;
foreach(@Zeilen) {
push(@Woerter,$_) ;
}
my $Anzahl = @Woerter;
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Test-Ausgabe</title></head><body>\n";
print "Der Datensatz $_ hat $Anzahl Einträge<br>\n";
}
print "</body></html>\n";