ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : ‘ҐаЈҐ© ЃагбЄЁ­                       2:5020/400     27 Nov 2000  20:16:34
 To : All
 Subject : Как получить html код страницы с другого сервера???
 -------------------------------------------------------------------------------- 
 

 Hi, ALL!
 У меня вопросик, маленький такой:))
 Мой скрипт, используя LWP забирает страничку мою вот таким образом:
 
 use LWP::UserAgent;
          $ua = new LWP::UserAgent;
          $ua->agent("AgentName/0.1 " . $ua->agent);
          # Create a request
          my $req = new HTTP::Request GET => 'http://localhost/index.html';
          #$req->content_type('application/x-www-form-urlencoded');
          $req->content('');
 
          # Pass request to the user agent and get a response back
          my $res = $ua->request($req);
         print $res->connect;
 
 и мне надо получить из нее все гиперссылки (вот таким макаром: $text= ~
 s%<([A-Za-z]+)>([\w\s\.]+)</\1>%$2%g;)
 но это не получается, т.к. приходит только текст:((
 Как мне преобразовать его в хтмл, может другим способом получить???
 И еще вопрос, правильно ли сделан поиск???
 Сенкс..всем кто ответит:-))
 --- ifmail v.2.15dev5
  * Origin: Golden Telecom (2:5020/400)
 
 

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