�� (wolkwww)

Thu, 10 May 2012 07:20:33 GMT

��:
map{
print "$a\t$_\n";
} sort {$a cmp $b} keys %$h;
��:
map{
print "$addr\t$_\n";
} sort {$a cmp $b} keys %$h;

�� - �� , �� (wolkwww)

Thu, 10 May 2012 07:16:16 GMT

<pre>
#!/usr/bin/perl

use File::Find;

$addr_file = 'addr.txt';
my %h;
open(F, "< $addr_file");
map{ chomp; $h{$_}={}; } <F>;

$cpath = `pwd`;
chomp $cpath;

find(\&wanted, "./");

map{
my $h = $h{$_};
my $addr = $_;
map{
print "$a\t$_\n";
}sort {$a cmp $b} keys %$h;

} sort{ $a cmp $b} keys %h;

sub wanted{
if (-f $_){
my $n = $File::Find::name;
if ($n =~ s/^\.//){
$n = $cpath.$n;
}
open(F, "< $_");
local $/=undef;
my $s = <F>;
map{
if (index($s, $_) >=0 ){
${$_}{$n}++;
}
} keys %h;
}
}

<pre>

�� (� ��).
�� , �� (�� ) �� .

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

��������� (wolkwww)

���� �� ������ ����� - ���� �� �������, �� (wolkwww)

OpenForum RSS: �� Apache

�� (wolkwww)

�� - �� , �� (wolkwww)