PDA

Просмотр полной версии : Нужен простенький скрипт на Perl


SladerNon
16.06.2005, 14:47
Чтоб он из списка сайтов выхватывал тока те, которые встречаются в списке 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

SladerNon
16.06.2005, 14:48
Кто у нас дружит с Перлом? =). Прошу откликнуться =)

nerezus
16.06.2005, 15:11
#!/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);
}

Майор
16.06.2005, 15:11
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]";}
?>

SladerNon
16.06.2005, 15:12
Башое спасибо! =)

nerezus
16.06.2005, 15:43
2Майор: твой не работает =)
1 строку выдает

KEZ
16.06.2005, 18:17
SladerNON, ты же крутой хакер ;)