|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Sans Kokorin 2:5020/400 19 Apr 2001 17:14:18 To : All Subject : need help - asp perlscript -------------------------------------------------------------------------------- Hello All, Господа поделитесь, пожалуйста кодом следующих процедур реализованных на asp perlscript. Просто у хостера убраны ActiveX msinet компоненты, но стоит поддержка perlscript в asp. Хотелось бы написать ф-ии на перле - ping, gethostnamebyip, geturl, а потом вызывать их из vbscript. То есть сделать файл с ф-ми, а потом просто его виртуально включать: ----------файл perlFunction.asp------------- <SCRIPT LANGUAGE="PerlScript" RUNAT="Server"> sub GetUrl { use Win32::Internet; $INET = new Win32::Internet("Mozilla/3.0", INTERNET_OPEN_TYPE_PROXY, $_[1], ""); $SSS = $INET->FetchURL($_[0]); return($SSS); } </SCRIPT> ---------------------------------------- Ф-ии нужны следующие Ping(IP,timeout) - если все в порядке то возвращается время пинга в миллисекундах, иначе 0. gethostnamebyip(IP) - возвращает имя хоста, или No Name GetUrl(Url, proxy, timeout) - возвращает текст страницы, либо строку нулевой длинны - "" Также буду премного благодарен если кинитесь какой либо подобной библиотекой, или ссылками. Просто перл хостер не предоставляет, нужны именно ф-ии на asp perlscript. Спасибо. -- Best regards, Sans mailto:sa@udomlya.tvcom.ru Отправлено через сервер Talk.Ru - http://www.talk.ru --- ifmail v.2.15dev5 * Origin: GiviSoft (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/648894f36d1e.html, оценка из 5, голосов 10
|