Чтоб он из списка сайтов выхватывал тока те, которые встречаются в списке 1 или 2 раза тока, например : http://www.ez-porno.com http://www.ezpornsex.com http://www.ezpornsex.com http://www.ezpornsex.com http://www.ezpornsex.com http://www.ezpornsex.com http://www.ezpornsex.com http://www.ez-powercart.com http://www.ez-powercart.com http://www.ez-powercart.com http://www.ez-powercart.com http://www.ez-powercart.com http://www.ez-powercart.com http://www.ez-powercart.com http://www.ez-powercart.com http://www.ez-powercart.com http://www.ezxx.net http://www.ezxx.net надо в данном примере, чтоб скрипт отдельно нам отсеял тока : http://www.ez-porno.com http://www.ezxx.net http://www.ezxx.net
Code: #!/usr/bin/perl use strict; my %h; open F, "input.txt"; while (my $line=<F> ) { $line =~s/\s//; chomp $line; $h{$line}++; } close F; while ((my $key, my $value)=each(%h)) { print $key."\n" if ($value==1); print $key."\n".$key."\n" if ($value==2); }
php : <? $url=file('url.txt'); for($i=0;$i<count($url);$i++){ for($j=0;$j<count($url);$j++) if(!strcasecmp($url[$i],$url[$j])) $k++; if($k<=2) echo "$url[$i]";} ?>
