Striplog error

[Triple]

Hoi allen, bij het runnen van striplog krijg ik een foutmelding, en runt striplog dus niet. De twee blokken waarin ik fouten krijg zijn:
open (LEES, '<'."$biglog");

while (defined($entry= )) {
chomp($entry);
$entry =~ tr/A-Z/a-z/;

en

$main="$email,$ipaddr,$os,$cpu,$ver";

if (defined($full{$main})) {
$full{$main} += "$nkeys";
$full{$main}{$main} = "$datetime,$block"; }
else {
$full{$main} = "$nkeys";
$full{$main}{$main} = "$datetime,$block"; }
}
Heeft iemand een idee wat hier niet goed zit??

Alvast bedankt voor het kijken!!

Proxy van De Unie's

[Haranaka]

De eerste error ligt wellich aan dat je een verkeerd pad het gegeven naar je log files.

code:

$biglog  = "/proxy/log/pproxyrc5" . $logdate . ".log";

Zo ziet ie er bij mij uit
mijn logs staan op e:\proxy\log\pproxyrc5<daum>.log
en striplog staat in de proxy dir.

Misschiet dit helpt en lost het 2e prob zich zelf op.

edit:


Helpt dit niet dan moet je even in de command promt
perl striplog.pl
en even duidelijk zeggen wat hij er van vind.

[Triple]

nope, nog steeds niet, meer hints zijn erg welkom!!

[Haranaka]

wat voor fout melding geeft perl dan precies?

[Triple]

Syntax error in de regels 70 en 113

[Triple]

Zou je jou striplog misschien op de mail kunnen zetten, of hier kunnen posten?
mailen naar:
[e-mail]

[stappel_]

Op dinsdag 20 februari 2001 23:02 schreef Triple het volgende:
open (LEES, '<'."$biglog");

while (defined($entry= )) {
chomp($entry);
$entry =~ tr/A-Z/a-z/;

er staat geen tweede variable in de while.
probeer eens : while (defined($entry = <LEES> )) {

[pinball]

Zo te zien heb je een oude (en blijkbaar aangepaste) versie.

Om jezelf ook andere problemen te besparen kun je de laastste versie hier ophalen.