- ПОМОГИТЕ!!!PERL,
 madskull, 16:37 , 29-Май-07 (1)А ведь написать man NetAddr::IP намного быстрее, чем сообщение на opennet
- ПОМОГИТЕ!!!PERL, anatolik.kiev, 17:48 , 29-Май-07 (2)
>А ведь написать man NetAddr::IP намного быстрее, чем сообщение на opennet
да,написан,но я в нем ничего не пойму!помогите мне пожалуйста!!!
- ПОМОГИТЕ!!!PERL, allez, 11:12 , 30-Май-07 (3)
>>А ведь написать man NetAddr::IP намного быстрее, чем сообщение на opennet
>да,написан,но я в нем ничего не пойму!
>
>помогите мне пожалуйста!!! А вы хотя бы попытайтесь понять:
IP(3) User Contributed Perl Documentation IP(3)NAME
NetAddr::IP - Manages IPv4 and IPv6 addresses and subnets SYNOPSIS
use NetAddr::IP qw(
Compact
Coalesce
Zero
Ones
V4mask
V4net
:aton
:old_storable
:old_nth
); my $ip = new NetAddr::IP 'loopback'; print "The address is ", $ip->addr, " with mask ", $ip->mask, "\n" ;
В самом начале мана находится ответ на ваш вопрос. Вам не стыдно, а? ;-)
- ПОМОГИТЕ!!!PERL, anatolik.kiev, 16:35 , 31-Май-07 (4)
Спасибо большое,да стыдно,так как еще не очень разбераюсь в перлемне переменной нужно присвоить таким образом IP,чтобы это значение я мог бы сравнивать с другой переменной,в которой бы тоже находился IP к примеру так: $a="192.168.1.2";
$b="192.168.1.10";
if ($a eq $b) {
print("IP\t ${a} takoy ge kak i ${b}!");
} else {
print("Raznie");
} помогите мне пожалуйста!!! Спасибо большое на перед!
- ПОМОГИТЕ!!!PERL, allez, 10:01 , 01-Июн-07 (5)
>Спасибо большое,да стыдно,так как еще не очень разбераюсь в перле
>
>мне переменной нужно присвоить таким образом IP,чтобы это значение я мог бы
>сравнивать с другой переменной,в которой бы тоже находился IP
>
>к примеру так:
>
>$a="192.168.1.2";
>$b="192.168.1.10";
> if ($a eq $b) {
> print("IP\t ${a} takoy
>ge kak i ${b}!");
> } else {
> print("Raznie");
>}
>
>помогите мне пожалуйста!!!
>
>Спасибо большое на перед! Перечитайте внимательнее мое предыдущее сообщение и man Net::IP.
В итоге у вас должно будет получиться примерно следующее:
$ cat l.pl
#!/usr/bin/perl -wuse strict;
use NetAddr::IP; my $ip = new NetAddr::IP qq($ARGV[0]);
my $addr1 = $ip->addr;
print qq(The address1 is $addr1\n); $ip = new NetAddr::IP qq($ARGV[1]);
my $addr2 = $ip->addr;
print qq(The address2 is $addr2\n); if ($addr1 eq $addr2)
{
print("IP-addresses are equal.\n");
} else
{
print("IP-addresses are diffrent.\n");
} $ ./l.pl 192.168.1.1 192.168.1.1
The address1 is 192.168.1.1
The address2 is 192.168.1.1
IP-addresses are equal. $ ./l.pl 192.168.1.1 192.168.1.10
The address1 is 192.168.1.1
The address2 is 192.168.1.10
IP-addresses are diffrent. И напоследок пара советов: во-первых, используйте "#!/usr/bin/perl -w" и "use strict" в
своих программах - облегчает отладку; во-вторых, если не можете в сообщениях
программы использовать русский или украинский язык - пишите на английском, его понять
все-таки легче, чем транслит. Успехов! :-)
|
Версия для распечатки
ПОМОГИТЕ!!!PERL, 
