>Спасибо большое,да стыдно,так как еще не очень разбераюсь в перле
>
>мне переменной нужно присвоить таким образом 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" в
своих программах - облегчает отладку; во-вторых, если не можете в сообщениях
программы использовать русский или украинский язык - пишите на английском, его понять
все-таки легче, чем транслит. Успехов! :-)
Вариант для распечатки
Программирование под UNIX (Public)
(ok) on 29-Май-07, 15:41 
