Исходное сообщение
"ПОМОГИТЕ!!!PERL" Отправлено allez, 01-Июн-07 10:01
>Спасибо большое,да стыдно,так как еще не очень разбераюсь в перле > >мне переменной нужно присвоить таким образом 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 -w use 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" в своих программах - облегчает отладку; во-вторых, если не можете в сообщениях программы использовать русский или украинский язык - пишите на английском, его понять все-таки легче, чем транслит. Успехов! :-)