|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Paul Kulchenko 2:5020/400 01 May 2000 19:34:08 To : All Subject : Re: LWP -------------------------------------------------------------------------------- Hi, Tanya! Tanya Gournenko wrote in message <8eband$vuq$1@ddt.demos.su>... >помогите разобраться с LWP. пишу следующее >#!/usr/bin/perl -w >die "usage: $0 url ...\n" unless @ARGV; >require LWP; Хоть тут уже и советовали использовать use, на самом деле можно и require, однако нужно понимать отличия: use подключит библиотеку в compile-time, а require в run-time. Ошибка в другом: в Perlовских модулях нет иерархии и LWP не имеет HИКАКОГО отношения к LWP::UserAgent. Это просто соглашение о названиях (namespace). Так что если нужен модуль LWP::UserAgent, то и делать нужно use LWP::UserAgent. > >foreach $url (@ARGV){ > $ua = LPW::UserAgent->new(); Здесь просто опечатка LPW -> LWP > $res = @ua->request(HTTP::Request->new(Get => $url)); А вот здесь нужно $ua вместо @ua > print "$url: " if @ARGV > 1; > if ($res->is_success){ > print $res->title, "\n"; =item $h->title The title of the document. In libwww-perl this header will be initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element of HTML documents. I<This header is no longer part of the HTTP standard.> > } 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. >в чем тут дело? В вышеизложенном :) Best wishes, Paul. --- ifmail v.2.15dev5 * Origin: Rostelecom/Internet Centre (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/65526861567f.html, оценка из 5, голосов 10
|