请教：Perl提取域名并计数+排序

求个简单点的办法。。  高手优化一下。。

我用了一个很笨很复杂的方法做出来了，初学perl，下面基本上是按照C的思维来写的。

如下：

#!/usr/bin/perl

open URL, "url.txt"

or die "Can't open url.txt";

my $i = 0;

while (<URL>) {

if (/\/\/(.*)\//g) {

@array[$i] = $1 . "\n";

$i++;

}

}   #提取所有URL

close URL;

my %count;

my @uniq_array = grep { ++$count{ $_ } < 2; } @array;  #去除重复记录

my $i = 0;

my @countUrl;

while ($i < scalar(@uniq_array)) {

my $count = 0;

my $j =0;

while ($j<scalar(@array)) {

$count++ while (@array[$j] =~ m/@uniq_array[$i]/g);

$j ++;

}  #统计每个URL出现到次数

@countUrl[$i] .= ($count . " @uniq_array[$i]");

$i++;

}

@countUrl = sort{$b cmp $a}@countUrl;  #9个url内 降序排序  暂不考虑更多url

print @countUrl;

open countUrl, ">", "countUrl.txt";

syswrite(countUrl,"@countUrl");

close countUrl;

用hash做统计会好点吧

不知道有没有啥给hash排序然后直接输出一个数组的方法

#! /usr/bin/perl -w

my (%freq, @arr);

open FILE, "url.txt" or die "Cannot open file!";

while(<FILE>) {

if (/http:\/\/(.*?)\//) {

$freq{$1}++;

}

}

close FILE;

while (my ($k, $v) = each %freq) {

push @arr, [ $k, $v ];

}

open OUTPUT, ">", "output.txt" or die "Cannot open file!";

for my $entry (sort {$b->[1] <=> $a->[1]} @arr) {

print OUTPUT "$entry->[0] $entry->[1]\n";

}

close OUTPUT;

hash的key和value本来就可以排序吧，sorted啥来着

哦，翻了一下可以这样，看起来好多了

#! /usr/bin/perl -w

my %freq;

open FILE, "url.txt" or die "Cannot open file!";

while(<FILE>) {

if (/http:\/\/(.*?)\//) {

$freq{$1}++;

}

}

close FILE;

open OUTPUT, ">", "output.txt" or die "Cannot open file!";

for my $key (sort { $freq{$b} <=> $freq{$a} } keys %freq) {

print OUTPUT "$key $freq{$key}\n";

}

close OUTPUT;

真强大。。 不过好难懂。。