Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Народ, кому не влом, переведите плиз с Perl на PHP / 6 сообщений из 6, страница 1 из 1
26.02.2005, 20:59
    #32935132
Serega128
Serega128
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, кому не влом, переведите плиз с Perl на PHP
вот такую программку:

#!/usr/bin/perl
my $ip=shift;
print "IP-address $ip is ";
print "not " unless (&ukr_ip($ip));
print "ukrainian\n";
exit;
sub ukr_ip {
my $uaddr=shift;
map {
my ($oaddr,$mask)=split/\//,$_;
my $poaddr=unpack("L",pack("C4",(split (/\./, $oaddr))));
my $puaddr=unpack("L",pack("C4",(split (/\./, $uaddr))));
my $pmask=unpack("L",pack("B32",(1 x $mask)));
return 1 if (($puaddr & $pmask)==($poaddr & $pmask));
}(<DATA>);
return 0;
}
__DATA__
62.16.0.0/19
62.64.64.0/18
62.64.116.0/22
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2005, 14:24
    #32936499
Berkut
Berkut
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, кому не влом, переведите плиз с Perl на PHP
похоже всем влом ...

Сори за офтоп.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2005, 14:25
    #32936502
Berkut
Berkut
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, кому не влом, переведите плиз с Perl на PHP
Это Вам не в шахматы играть, тут думать надо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2005, 15:43
    #32936746
*
*
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, кому не влом, переведите плиз с Perl на PHP
А чего тут думать? ip2long и несколько if'ов (если не менять __DATA__, то придётся ещё и explode + << + логику использовать).
Тут главное понять, что эта процедура делает, а как она это делает - вообще не важно - реализуй так, как умеешь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2005, 16:26
    #32936900
hell
hell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, кому не влом, переведите плиз с Perl на PHP
всё понятно что она делает. она проверяет лежит ли ip в сетях DATA и определяет, жует ли сало админ этого ip)


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
<?php

$data= array(
'62.16.0.0/19',
'62.64.64.0/18',
'62.64.116.0/22',
);

$ip =
array(
'62.16.0.2',
'62.60.64.3',
'62.64.116.2',
);

foreach($ip as $val)
{
   $ipl = ip2long($val);
   $is_u=false;
   foreach($data as $net)
   {
      $neta = split('/', $net);
      $mask=($neta[ 1 ]> 0 )?pow( 2 ,$neta[ 1 ])- 1 : 0 ;

      if((ip2long($neta[ 0 ])& ~$mask)==($ipl & ~$mask))
       $is_u=true;
   }
   echo 'ip '.$val.' is '.(($is_u)?'':'not').' ukr <br />';
}

?>


в data очень странная сеть третья. Есть биты после значащих битов маски, из-за
этого я обрезал как сеть так и ip по маске.

"The CBO without stats is like a morning without coffee." T.Kyte
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2005, 16:29
    #32936907
hell
hell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, кому не влом, переведите плиз с Perl на PHP
да,
$mask=($neta[1]>0)?pow(2,$neta[1])-1:0;
можно смело заменить на
$mask=pow(2,$neta[1])-1;

т.к. 2 в 0 -1 = 0

"The CBO without stats is like a morning without coffee." T.Kyte
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Народ, кому не влом, переведите плиз с Perl на PHP / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 401ms
Закрыть
start [/forum/topic.php?fid=23&mobile=1&tid=1478704]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 138ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 204ms
total:  401ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]