nicht angemeldet
@Cheatah
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";
-
Hi,
Frag doch bitte in deinem alten Thread nach. Siehe auch FAQ.
Grüße Andres Freund
--
ss:) zu:) ls:} fo:) de:] va:) ch:| n4:& rl:° br:^ js:( ie:% fl:( mo:| -
Sup!
Du brauchst ganz dringend ein Perl-Buch.
Gruesse,
Bio
--
Ich bin ein Mobber - mein Posting tut mir leid! EHRLICH!!!
sh:( fo:) ch:] rl:} br:> n4:& ie:{ mo:) va:) de:] zu:) fl:( ss:) ls:] -
http://www.oreilly.com Gibts die besten Dokus
-
Hi,
entschuldige die direkte Ansprache,
nö. Als eMail-Adresse gehört noch ein ".net" dahinter und ein gültiger Localpart davor. Für nicht-private Themen ist eMail hier das falsche Medium. Darüberhinaus habe ich in diesem Thread den bisherigen Antworten nichts hinzuzufügen - bis auf, dass weder ich noch jemand anders Dir ohne Fehlerbeschreibung helfen können wird.
Cheatah
--
X-Will-Answer-Email: No
X-Please-Search-Archive-First: Absolutely Yes