Есть скрипт, который преобразует IP в HOST:
----------------------------
#!c:/perl/bin/perl

use DBI;
use CGI qw(param);

$IP=param("ip");

print "Content-Type: text/html\n\n";

my $per = "c:/winnt/system32/nslookup $IP 192.168.2.11";
system($per);
-------------------------------
Выдаётся типа:
Server: UnKnown Address: 192.168.2.11 Name: www.ru Address: 194.87.0.50

Как сократить до просто "www.ru" ?

• Как ограничить выдаваемое функцией system() ?,konst, 17:33 , 18-Ноя-03
  • Как ограничить выдаваемое функцией system() ?,AD, 18:37 , 18-Ноя-03

>Есть скрипт, который преобразует IP в HOST:
>----------------------------
>#!c:/perl/bin/perl
>
>use DBI;
>use CGI qw(param);
>
>$IP=param("ip");
>
>print "Content-Type: text/html\n\n";
>
>my $per = "c:/winnt/system32/nslookup $IP 192.168.2.11";
>system($per);
>-------------------------------
>Выдаётся типа:
>Server: UnKnown Address: 192.168.2.11 Name: www.ru Address: 194.87.0.50
>
>Как сократить до просто "www.ru" ?
НЕ знаю как это отработает под MS.
вместо system
$rezult = `$per`; # в обратных кавычках
# и соответственно обработать $rezult

>>Есть скрипт, который преобразует IP в HOST:
>>----------------------------
>>#!c:/perl/bin/perl
>>
>>use DBI;
>>use CGI qw(param);
>>
>>$IP=param("ip");
>>
>>print "Content-Type: text/html\n\n";
>>
>>my $per = "c:/winnt/system32/nslookup $IP 192.168.2.11";
>>system($per);
>>-------------------------------
>>Выдаётся типа:
>>Server: UnKnown Address: 192.168.2.11 Name: www.ru Address: 194.87.0.50
>>
>>Как сократить до просто "www.ru" ?
>НЕ знаю как это отработает под MS.
>вместо system
>$rezult = `$per`; # в обратных кавычках
># и соответственно обработать $rezult

Круто!
Работает!!
Спасибо!!!