информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Атака на InternetПортрет посетителяГде водятся OGRы
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Блокировка Opera VPN 
 Have I Been Pwned начнёт получать... 
 Microsoft начинает тестирование... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Net::Ping and LWP::UserAgent 01.06.05 14:37  Число просмотров: 1793
Автор: Vorga Статус: Незарегистрированный пользователь
Отредактировано 01.06.05 14:44  Количество правок: 1
<"чистая" ссылка>
есть код:
#! c:\perl\bin\perl -w
use strict;
use LWP::UserAgent;
use Net::Ping;
sub geturl
{
my $ua=LWP::UserAgent->new();
my $resp = $ua->get('http://localhost/');
my $content=$resp->content;
print $content."\n";
};
sub pingurl
{
my $z = Net::Ping->new();
if ($z->ping('127.0.0.1')) {print "ping ok.\n"}
else {print "ping fail.\n"}
}
pingurl();
geturl();
pingurl();


первый pingurl работает, на втором все обваливается... никак не могу понять где бяка...
выдается ошибка - Bizarre SvTYPE [180] at c:/perl/lib/net/ping.pm 429
причем если убрать my $resp = $ua->get('http://localhost/'); то ошибки не возникает...
<programming> Поиск 








Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2021 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach