�� (coty)

Wed, 27 Jul 2011 11:59:02 GMT

sorry, http � �� UDP

�� (coty)

Wed, 27 Jul 2011 11:47:48 GMT

�� - �� IP �� , �� index.html, �� ,�� IP �� ,�� IP �� UDP-��.

�� (coty)

Wed, 27 Jul 2011 10:53:15 GMT

��!

�� (erera22)

Wed, 27 Jul 2011 09:17:16 GMT

> �� ,��
> index.html � �� perl, ��
> iP �� index.html � �� html ��
> �� ! �� index.html �� perl
> ?

�� ? �� IP �� ?
�� : awk '{print $1}' index.html | sort | uniq -c > res.html
�� :
#!/usr/bin/perl -w
use strict;

open (HANDLE, "< access_log");
my @arr = <HANDLE>;
close HANDLE;

my %hash = ();
my $hash = \%hash;

foreach my $str (@arr) {
my ($ipaddr) = (split /\s/, $str)[0];
if (!exists $hash{ $ipaddr }) {
$hash{ $ipaddr } = 1;
} else {
$hash{ $ipaddr } += 1;
}
}

open (HANDLE, "> res.htm");
my $head = "<html><body><table>\n";
print HANDLE $head;
foreach my $ipaddr (sort keys %hash) {
print HANDLE "<tr><td>$ipaddr</td><td>$hash{ $ipaddr }</td></tr>\n";
}
my $tail = "</table></body></html>\n";
prin

OpenForum RSS: ��� ������� ���� ����������

��� ������� ���� ���������� (coty)

��� ������� ���� ���������� (coty)

��� ������� ���� ���������� (coty)

��� ������� ���� ���������� (erera22)

OpenForum RSS: ��

�� (coty)

�� (coty)

�� (coty)

�� (erera22)