|
|
|
Переменные в перле vs parser: ниче не понимаю... :-(
парсер parser10_win32_mysql_sp6.zip
скрипты в d:\usr\cgi-bin
страницы в d:\usr\www,
перл 5.005_03 built for MSWin32-x86-object.
Есть такой скрипт:#!/usr/local/bin/perl
#Хочу узнать свой IP
print "Content-type: text/plain\n\n";
($name, $aliases, $addrtype, $length, @addrs) = gethostbyname("mycomp");
($a, $b, $c, $d) = unpack('C4',$addrs[0]);
print "($name) ($addrtype) ($a.$b.$c.$d)";Страница<html><body>
-^exec[../cgi-bin/my_ip.pl]-
</body></html> Получаю вот что:
-() () (...)-
Переписываю ^exec на <!--#include virtual="cgi-bin/my_ip.pl"--> и всё работает. "perl.exe my_ip.pl" тоже ОК.
Чьи тут проблемы? Куда переменные подевались?
|
faq