ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Tanya Gournenko                      2:5020/400     28 Apr 2000  18:36:54
 To : All
 Subject : LWP
 -------------------------------------------------------------------------------- 
 

 Добрый день!
 
 помогите разобраться с LWP. пишу следующее
 #!/usr/bin/perl -w
 die "usage: $0 url ...\n" unless @ARGV;
 require LWP;
 
 foreach $url (@ARGV){
  $ua = LPW::UserAgent->new();
  $res = @ua->request(HTTP::Request->new(Get => $url));
  print "$url: " if @ARGV > 1;
  if ($res->is_success){
   print $res->title, "\n";
  } else {
   print $res->status_line, "\n";
  }}
 при запуске
 test http://www.perl.com ни чего не происходитю
 В дебагере после выполнения 6 строки сообщает
 can't locate object method "new" via package "LPW::UserAgent" at test.pl
 line 6, <IN> chunk 3.
 в чем тут дело?
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    LWP   Tanya Gournenko   28 Apr 2000 18:36:54   Re: LWP   Dmitriy Goldobin   29 Apr 2000 02:33:07   Re: LWP   Ilya Rubtsov   29 Apr 2000 16:28:36   Re: LWP   Paul Kulchenko   01 May 2000 19:34:08   LWP   Oleg Semenov   03 May 2000 01:03:01