Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Нужен простенький скрипт на Perl (https://forum.antichat.xyz/showthread.php?t=7228)

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


Время: 03:42