Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вопрос по LWP::UsweAgent 
:(
    Опции темы
silaevasv
Дата 28.7.2009, 14:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 23.7.2009

Репутация: нет
Всего: нет



Добрый день Всем! Только недавно стала изучать Perl, не очень как то получается
 Может кто то помочь разобраться . . . 
 Например я получаю данные по какой то странице, происходит вывод . . .
 вопрос в том: как все отсортировать, или получить необходимые данные из страниц
к примеру $host, $status
Код

#!/usr/bin/perl -w
use LWP::UserAgent;

$ua = LWP::UserAgent->new;
my $req = POST 'http://www.yandex.ru/',
              [ search => 'www', errors => 0 ];
print $ua->request($req)->as_string;


Спасибо!!!
PM   Вверх
Pfailed
Дата 28.7.2009, 17:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39



Цитата

 Например я получаю данные по какой то странице, происходит вывод . . .
 вопрос в том: как все отсортировать, или получить необходимые данные из страниц
к примеру $host, $status


Что именно вы хотите отсортировать? Какие данные?

$ua->request($req) возвращает объект HTTP::Response. Занесем его в переменную: my $response = $ua->request($req);
Теперь можем получить все данные которые предоставляет класс HTTP::Response. Какие именно смотрите в perldoc. Например $response->code, $response->content и т.д.


--------------------
PM MAIL   Вверх
silaevasv
Дата 28.7.2009, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 23.7.2009

Репутация: нет
Всего: нет



Цитата(Pfailed @ 28.7.2009,  17:59)
Цитата

 Например я получаю данные по какой то странице, происходит вывод . . .
 вопрос в том: как все отсортировать, или получить необходимые данные из страниц
к примеру $host, $status


Что именно вы хотите отсортировать? Какие данные?

$ua->request($req) возвращает объект HTTP::Response. Занесем его в переменную: my $response = $ua->request($req);
Теперь можем получить все данные которые предоставляет класс HTTP::Response. Какие именно смотрите в perldoc. Например $response->code, $response->content и т.д.

Та те данные которые выводит программа . . .  Там столько символов, что даже как то  . . .
PM   Вверх
ginnie
Дата 28.7.2009, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49



silaevasv, на абстракциях мы далеко не уедем. Можно на примере показать, что сейчас выдает скрипт, и что Вы хотите получить?


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
silaevasv
Дата 28.7.2009, 21:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 23.7.2009

Репутация: нет
Всего: нет



HTTP/1.1 200 OK
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Connection: close
Date: Tue, 28 Jul 2009 18:02:19 GMT
Pragma: no-cache
Server: Apache
Content-Type: text/html; charset=windows-1251
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Client-Date: Tue, 28 Jul 2009 18:02:19 GMT
Client-Peer: 83.222.27.101:80
Client-Response-Num: 1
Client-Transfer-Encoding: chunked
Link: </bitrix/templates/main_page/styles.css>; rel="stylesheet"; type="text/css"
Link: </bitrix/templates/main_page/template_styles.css>; rel="stylesheet"; type="text/css"
Link: </styles/main-nor.css>; rel="stylesheet"; type="text/css"
P3P: policyref="/bitrix/p3p.xml", CP="NON DSP COR CUR ADM DEV PSA PSD OUR UNR BUS UNI COM NAV INT DEM STA"
Set-Cookie: PHPSESSID=ede954e0dd7e0dffba373d10183517e5; path=/; domain=ntsr.info
Title: ������������������� �������� �����
X-Meta-Description: ������������������� �������� �����
X-Meta-Keywords: ������������������� �������� �����
X-Meta-Robots: index, follow
X-Powered-CMS: Bitrix Site Manager (c36f2bf496847a1c4caab36ac6ef6b45)

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<script src="/Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<meta name="robots" content="index, follow" />
<meta name="keywords" content="������������������� �������� ������" />
<meta name="description" content="������������������� �������� ������" />
<link href="/bitrix/templates/main_page/styles.css" type="text/css" rel="stylesheet" />
<link href="/bitrix/templates/main_page/template_styles.css" type="text/css" rel="stylesheet" />

<title>������������������� �������� ������</title>
<link href="/styles/main-nor.css" rel="stylesheet" type="text/css">
</head>
<body> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<meta name="robots" content="index, follow" />
<meta name="keywords" content="������������������� �������� ������" />
<meta name="description" content="������������������� �������� ������" />
<link href="/bitrix/templates/main_page/styles.css" type="text/css" rel="stylesheet" />
<link href="/bitrix/templates/main_page/template_styles.css" type="text/css" rel="stylesheet" />

 
<div class="div_body">
  <div class="div_toper">
    <table class="table_toper" border="0" cellspacing="0" cellpadding="0">
      <tbody>
        <tr><td rowspan="2" width="10">
            <div class="div_logo"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','60','height','100','src','/flash/logo','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','/flash/logo' ); //end AC code
</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="60" height="100">
                <param name="movie" value="/flash/logo.swf">
                <param name="quality" value="high">
                <embed src="/flash/logo.swf" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="60" height="100"></embed>
              </object>
            </noscript></div>
          </td><td>
            <div class="div_top_links"><a href="/glossary/" >���������</a> | <a href="/faq/" >����� ���������� �������</a> | <a href="/forum/" >�����</a></div>
          </td><td>
            <div class="div_top_links">��� | <a href="#" >ENG</a></div>
          </td></tr>
      
        <tr><td>
            <div class="div_slogan"><img title="������������������� �������� ������" border="0" src="/ima/main/slogan.gif" width="520" height="48" /></div>
          </td><td class="td_right">
<div class="form"><form action="/search/index.php" id=form_search><table border="0" cellspacing="0" cellpadding="0"><tr><td class=td_input><input type="text" name="q" value="" maxlength="50"></td>
<td class=td_btn><input name="s" type="image" value="�����" src="/ima/main/btn-search.gif"></td></tr></table></form></div></td></tr>
      </tbody>
    </table>
  </div>

  <div class="div_page"><table cellspacing="0" cellpadding="0" border="0" width="100%"> 
  <tbody> 
    <tr><td colspan="3"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','610','height','182','src','/upload/flash/starter','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','wmode','transparent','movie','/upload/flash/starter' ); //end AC code
</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="610" height="182">
      <param name="movie" value="/upload/flash/starter.swf">
      <param name="quality" value="high">
      <param name="wmode" value="transparent">
      <embed src="/upload/flash/starter.swf" width="610" height="182" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" wmode="transparent"></embed>
    </object>
</noscript></td>
    <td class="td_split"></td><td class="td_right">

<div class="form" id="form_login">
<form method="post" target="_top" action="/?login=yes">
        <a href="/auth/?register=yes&amp;backurl=%2F">�����������</a> | <a href="/auth/?forgot_password=yes&amp;backurl=%2F">������ ���� ������?</a>
    <input type="hidden" name="backurl" value="/" />        <input type="hidden" name="search" value="www" />
        <input type="hidden" name="errors" value="0" />
        <input type="hidden" name="AUTH_FORM" value="Y" />
    <input type="hidden" name="TYPE" value="AUTH" />
    <table cellspacing=0 cellpadding=0><tr><td class="td_input" align="left"><input type="text" name="USER_LOGIN" maxlength="50" value="" title="�����"></td><td></td></tr>
        <tr><td align="right" class="td_input"><input type="password" name="USER_PASSWORD" maxlength="50" title="������" ></td><td class="td_btn"><input type="image" name="Login" title="�����" src="/ima/main/btn-enter.gif"></td></tr></table><input type="checkbox" id="USER_REMEMBER" name="USER_REMEMBER" value="Y"> <label for="USER_REMEMBER">��������� ���� �� ���� ����������</label></form></div>


 
        <div class="div_message">������������� � �������� - � ����� ���� ��������� ����� �����������!</div>
       </td></tr>
   
    <tr><td class="td_left"> 
        <h1><a href="/nor/">���</a></h1>
       
<script src="/bitrix/templates/.default/components/bitrix/menu/nor-tree/script.js" type="text/javascript"></script>
 
        <div class="menu-sitemap-tree"> 
          <ul> 
            <li> 
              <div class="page"></div>
             
              <div class="item-text"><a href="/nor/about/">�� ��������</a></div>
             </li>
           
            <li> 
              <div class="page"></div>
             
              <div class="item-text"><a href="/nor/objectives/">���� � ������</a></div>
             </li>
           
            <li> 
              <div class="page"></div>
             
              <div class="item-text"><a href="/nor/structure/">���������</a></div>
             </li>
           
            <li> 
              <div class="page"></div>
             
              <div class="item-text"><a href="/nor/members/">����� ���</a></div>
             </li>
           
            <li> 
              <div class="page"></div>
             
              <div class="item-text"><a href="/nor/official_documents/">����������� ���������</a></div>
             </li>
           
            <li> 
              <div class="page"></div>
             
              <div class="item-text"><a href="/nor/media/">��� �� ��������</a></div>
             </li>
           
            <li> 
              <div class="page"></div>
             
              <div class="item-text"><a href="/nor/contacts/">��������</a></div>
             </li>
           </ul>
         </div>
       
        <div class="div_banner_left"><a href="/nor/bulletin/"><img border="0" complete="complete" src="/ima/main/banner_materials.jpg" alt="��������� ���" class="margin-top" /> </a> 
          <div class="div_banner_left"><a href="/nor/representatives/"><img border="0" complete="complete" src="/ima/main/banner_russian.jpg" alt="������������ �����������������" /></a></div>
         </div>
       
        <div class="div_banner_left"><a href="/nor/youth/"><img border="0" complete="complete" src="/ima/main/banner_communication.jpg" alt="���������� �������" /></a></div>
       
        <div class="div_banner_left"><a href="/nor/partners/"><img border="0" complete="complete" src="/ima/main/banner_partners.jpg" alt="�������� ���" /></a></div>
       </td><td class="td_split"><img height="5" width="5" complete="complete" src="/ima/space.gif" class="td_split" /></td><td class="td_center"> 
        <div class="div_inpage"> 
          <h1>������� ������!</h1>
         
          <p>� ������ XXI ���� ��� �������� � ����� �����. ��������, � ��������� 10-15 ��� ����������� ��������� ��������������, ������� ����������, ���������� � �������� ���������, ������������ ������� � ���� ���������� � �����. ��������� ��������� ��������� ������� ��� ��������. ����� ����, ��� ��������� ������������� � ������� ��� ����� ����������.</p>
         
          <p>����� �� ������, �������� ����������� ����� � �������, �������� ������ ���������-�������������-��������������. ��� ����������� ��������� ���������� ����� ���������, �� ������� ��� �������� �����, ��������� ����� ���������, ��������� ����� ����� (� ������ ������ ��� �������).</p>
         
          <p>������������������� ������� ���� ������� �� �����, ��������, �����������, �� ��������������� ��������. �� ���������� ��� � ���� ������� ���� ����� ����������!</p>
         
          <p>���-�� ����� ������ �� ������ ��� � ��������, �������� � ������ ��������������. ����-�� ���������� ������ ������, ���������, �������������� � ����������������. ���-�� ����� ��������� ����, ��� ����������� � ����� ����������. ����-�� ��������� ����� ������ � ����������������. ���-�� ����� ���������� ������, ���� �������� ��� ��������� ������ � ���������� �����. ������ ��� ��� � ������������ ��� ������. �� &ndash; ��� ��������, ���������, �� �� &ndash; ��� ������ � ������!</p>
         
          <p>��� ������ �������������� ����� ������ ��������. ������� ������� ����������� � �����, ���������� ��������� ����� � ����������� ����, ���������� ��� ����� ������. � �������� �������������� &ndash; ������ ��� ������ ���������� ������, ������ ������� ����� � ���� �������� ��������, ������� �������, ��������� ����������� ��������.</p>
         
          <p>�������� ��������������, ���������� ����� &ndash; ��� ���� �� ������ ���������, �����������, ������, ����������������, ���������. ������� ������� �� ������� �� ���. � ���������� ��� ������� ��� �������� ���� �����.</p>
         
          <p>�������� �������, �������, ������������, ���������, ��������� � ����� ������ �������� �������, ��������� ����� � ������. �� ��� � ���� �������, ����� ����� ��� ������. �� ��������, ��� ��������� � 2008 ���� ������������������� �������� ������ (���) � ��� ������ ������� ��������� �������, ��������� �����, ����������� ������� � ���������, ��������� � ����������������, ���������� � ��� ������� ��������������: �� ���������� �� �������������� ������.</p>
         
          <h2>����� ������������ ������ �� �������� ���:</h2>
         
          <div> 
            <table cellspacing="0" cellpadding="3" border="0" width="100%"> 
              <tbody> 
                <tr><td class="text_lit"><em><span class="header"><img complete="complete" src="/ima/main/tretyakov-foto-lit.jpg" class="img_left" /></span></em></td><td nowrap="nowrap" class="text_lit"><em><span class="header"><img complete="complete" src="/ima/main/malinezky-foto-lit.jpg" class="img_left" /></span></em></td><td class="text_lit"><em><span class="header"><em><img complete="complete" src="/ima/main/kushnarev-foto-lit.jpg" class="img_left" /></em></span></em></td></tr>
               
                <tr><td width="33%" class="header">��������� ���� ����������</td><td width="33%" class="header">���������� ������� �����������</td><td width="33%" class="header">�������� ������ ����������</td></tr>
               
                <tr><td class="text_liter">�������� ���, ����� ���������� ���� � ���������� ���, ��������� �������������������� �������� ������</td><td class="text_liter">����������� ��������� ��������� ���������� ���������� ��. �.�. ������� ���, ���� ���������� �� �������������������� �������� ������</td><td class="text_liter">�������������� ����-��������� �������������������� �������� ������</td></tr>
               </tbody>
             </table>
           </div>
         
          <p style="margin-bottom: 0px;" class="new_part_of_page">&laquo;�������� &laquo;�������������������� �������� ������&raquo;, ������������� ������� � ����������� ����� ������ ��� ���������� �������� ��������������, �������� ������ �������� ������-������������ ��������� �������. �������, ��� ����������� �������� ������, �������������� � ����������� �� ������ �������� ���������� �����������, � ����� ���������� ����������� �������� ��� ���� ������&raquo;.</p>
         
          <table cellspacing="0" cellpadding="0" border="0"> 
            <tbody> 
              <tr><td class="td_bottom"><em>�������� ���� ���, ������������ �����-�������������� ������-���������������� ������ ���, ������� ����������� ������ �. �. �������</em></td><td width="10"><img height="5" width="5" complete="complete" src="/ima/space.gif" /></td><td width="78"><img height="93" width="78" complete="complete" src="/ima/main/alferov-foto-lit.jpg" /></td></tr>
             </tbody>
           </table>
         
          <p style="margin-bottom: 0px;" class="new_part_of_page">&laquo;������������������� �������� ������ ������ ����� ������ ��� �������, ������� ������ ���������� ������ �������������� �����������, �������� ���������� � ������� ��� �������� ���������� ����������� �����������&raquo;.</p>
         
          <table cellspacing="0" cellpadding="0" border="0"> 
            <tbody> 
              <tr><td class="td_bottom"><em>�������� ���� ���, �������� ��� &laquo;������������ ��������&raquo;, ���� ������ ������������ ������ �� �.�.���������</em></td><td width="10"><img height="5" width="5" complete="complete" src="/ima/space.gif" alt="" /></td><td><img height="93" width="78" complete="complete" src="/ima/main/kovalchuk-foto-lit.jpg" /></td></tr>
             </tbody>
           </table>
         
          <h2 class="new_part_of_page">��������� ����������!</h2>
          <p>�� ����� ������� �� ������ ������� ���������� �  ���������� ���������� � ��������������� - �������, ������������, ���������� �  ������������� �������� �� ��������. ��� �������� ��� ���� � ����� ���������  ���������� ����������� ����� � ������� � ��������� ������������ ���������. �  ����� ����� ������� � ����� ���, ��������� ������, ������������� ��������  �������, ���������� ������������ � ��������������� �������. ��, ��� ����,  ������ ������� ������� ����, ��� ������������ ����������������, � � ������  ������� � ���, ���� ������� ����������!</p>
          <p>�� �������� ������ ����� ������� � ���, �  ��������, ��������� ������� ���������� ����������� � ���������, ����������  ����, ��� �������� ��� ������ � �� ����������� �� ��� ����������� ������ �  ��������� � �����. � ���������� �� ����� �������� ��������������� ����������  ������������������ �������, � ��� �����, ��������� ��������� � ��� ������  ��������� ��������-����������, ����� ��� ���������� Web 2.0, ������� ��������  ������� ������ � ��������� ������� ����������� ���������� ��� ������������.</p>
          <p>� ����� � ���, ��� ������ ��� ������ ��������  ����� ����� �������, ������������ �������� ������������� ��� ���������� ��������  ���������� �������� ����������� �� ������.</p>
          <p>�������� �� ���� ���������������� ������� �  ��������������! ������ ��� ����������� � ��������� ���������� � �������� ���!</p>
          <p><em>������������� �������</em></p>
          <h2 class="new_part_of_page" style="clear:both">1-� ��������� ������-����������� ����������� ���</h2>
          <h3>��������� �������������������� ������� <br>
            � ������: ��������� � ������������</h3>
          <p align="center">9 ������� 2009 �.<br>
            �. ������</p>
          <p align="center">������������ �����������  ����������� � ����� ������ ������������� (�� ���), 
            ���� ������������ ��������� ���,  �.�.�.</p>
          <p align="center">            ������������ ������������  �������� � ��������� ���� ���������� (���), ��������� ���, ��������</p>
          <p align="center"><a href="/1.php">�������  �������������� ��������� � ������������</a></p>
        </div>
       </td><td colspan="2" class="td_right"> 
        <div class="div_folder_content"> 
          <h1 class="in_td_right"><a href="/nanoworld/">��� ��������������</a></h1>
         
          <p id="nano-popular" class="in_td_right_item"><a href="/nanoworld/simply/">��������� � ���������������</a></p>
         
          <p id="nano-rightdocs" class="in_td_right_item"><a href="/nanoworld/law/">����������� �����</a></p>
         
          <p id="nano-international" class="in_td_right_item"><a href="/nanoworld/international/">���� � ����</a></p>
         
          <p id="nano-study" class="in_td_right_item"><a href="/nanoworld/e-learning/">������������� �����������</a></p>
         
          <p id="nano-vacancies" class="in_td_right_item"><a href="/nanoworld/vacancy/">����� ������������ � ��������</a></p>
         
          <p id="nano-services" class="in_td_right_item"><a href="/nanoworld/services/">��� ��� ���</a></p>
         
          <p id="nano-shop" class="in_td_right_item"><a href="/nanoworld/shop/">����-�������</a></p>
         </div>
       
        <div class="div_banner_left"><a href="/nor/members/welcome.php"><img border="0" complete="complete" src="/ima/main/banner_welcome.jpg" alt="�������� � ���" /></a></div>
       
        <div class="div_folder_content"> 
          <h1 class="in_td_right"><a href="/science/">�����</a></h1>
         
          <p id="science-analyst" class="in_td_right_item"><a href="/science/reviews/">������</a></p>
         
          <p id="science-library" class="in_td_right_item"><a href="/science/library/">����������</a></p>
         
          <p id="science-lectures" class="in_td_right_item"><a href="/science/other/">������ ���������</a></p>
         </div>
       
        <div id="banner_internet" class="div_banner_left"><a href="/internet/"><img border="0" complete="complete" src="/ima/main/banner_internet.jpg" alt="��������-�������" /></a></div>
       
        <h3 class="in_td_right">���������� ���� ntsr.info</h3>
       
        <div class="in_td_right"><div class="search-tags-cloud"  style='width:250px;'><a href="/search/index.php?tags=%C8%ED%ED%EE%E2%E0%F6%E8%E8" style="font-size: 10px; color: #ACB9BD;px">���������</a> <a href="/search/index.php?tags=%CC%C3%D3" style="font-size: 10px; color: #268AAA;px">���</a> <a href="/search/index.php?tags=%CD%E0%ED%EE%EC%E0%F2%E5%F0%E8%E0%EB%FB" style="font-size: 14px; color: #99B2BA;px">�������������</a> <a href="/search/index.php?tags=%CD%E0%ED%EE%F2%E5%F5%ED%EE%EB%EE%E3%E8%E8" style="font-size: 17px; color: #609EB2;px">��������������</a> <a href="/search/index.php?tags=%CD%E0%ED%EE%F5%E8%EC%E8%FF" style="font-size: 14px; color: #73A5B5;px">���������</a> <a href="/search/index.php?tags=%CD%E0%F3%EA%E0" style="font-size: 17px; color: #86ABB7;px">�����</a> <a href="/search/index.php?tags=%CD%CE%D0" style="font-size: 20px; color: #1383A7;px">���</a> <a href="/search/index.php?tags=%CE%E1%F0%E0%E7%EE%E2%E0%ED%E8%E5" style="font-size: 10px; color: #4C97AF;px">�����������</a> <a href="/search/index.php?tags=%D0%CE%D1%CD%C0%CD%CE" style="font-size: 17px; color: #3991AD;px">�������</a> <a href="/search/index.php?tags=%D1%F2%F0%EE%E8%F2%E5%EB%FC%F1%F2%E2%EE" style="font-size: 10px; color: #C0C0C0;px">�������������</a> </div> </div>
       
        <div class="div_banner_left"><a href="/nor/youth/games/"><img border="0" complete="complete" src="/ima/main/banner_games.jpg" alt="���� � �����" /></a></div>
       
        <div class="margin_top"> 
          <h4 class="in_td_right">������������������� �������� ������</h4>
         
          <p class="in_td_right">109469, �. ������, 
            <br />
           �/� 22, ����������� �. �.</p>
         
          <p class="in_td_right">�������: 8 (926) 126-84-51, 
            <br />
           ���� (495) 721-30-55 
            <br />
           email: <a href="mailto:[email protected]">[email protected]</a></p>
         </div>
       
        <h3 class="in_td_right"> 
          <div class="margin_top"></div>
         </h3>
       </td></tr>
   </tbody>
 </table></div>
  <div class="div_footer">
    <table class="table_footer" border="0" cellspacing="0" cellpadding="0">
      <tbody>
        <tr><td class="td_left"><a class="icon" href="/" ><img border="0" alt="������� ��������" src="/ima/main/icon-home.gif" /></a><a class="icon" href="/feedback/" ><img border="0" alt="�������� �����" src="/ima/main/icon-mail.gif" /></a><a class="icon" href="/sitemap/" ><img border="0" alt="����� �����" src="/ima/main/icon-sitemap.gif" /></a></td>
        <td class=copyright>��� ����� ��������. ��� ����� ������������� ���������� �������, ����������� �� <a href="http://www.ntsr.info">ntsr.info</a> �����������.<br /><span>&copy; 2009 ������������������� �������� ������</span></td><td class="td_right">
            <div class="link_rss"><a href="#" >����������� �� RSS-����� ��������</a></div>
          </td></tr>
      </tbody>
    </table>
  </div>
</div>
</body>
</html>

Добавлено через 4 минуты и 56 секунд
Вот что он выводит, можно например сделать так что бы он все это не выводил? Достаточно только первых данных: host, ip и еще что либо. Спасибо.
PM   Вверх
Pfailed
Дата 28.7.2009, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39



Отрезать лишнее?

Код

print ((split(/\r?\n\r?\n/, $ua->request($req)->as_string, 2))[0]);


Кстати кто-нибудь знает как из LWP вытащить именно те заголовки которые вернул сервер? То что выдает метод as_string это какието генно-модифицированные строки, а не то что передал сервер.

Это сообщение отредактировал(а) Pfailed - 28.7.2009, 21:41


--------------------
PM MAIL   Вверх
chorny
Дата 29.7.2009, 02:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 27.7.2009
Где: Молдавия

Репутация: нет
Всего: нет



Код

#!/usr/bin/perl

use strict;use warnings;use diagnostics;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);
my $ua = LWP::UserAgent->new;
my $req = POST 'http://www.yandex.ru/',
              [ search => 'www', errors => 0 ];
my $responce=$ua->request($req); #$responce - это объект класса HTTP::Response

print "responce status: ",$responce->code(),"\n";
print "responce status string: ",$responce->status_line(),"\n";
my $headers=$responce->headers; #HTTP::Response - это потомок HTTP::Message
print "header names: ",join(', ',$headers->header_field_names),"\n";


чтобы LWP::UserAgent не обрабатывал HTML в поисках заголовков:
Код

my $ua = LWP::UserAgent->new(parse_head=>0, #не вытаскивать заголовки из <meta ...>
);


PM MAIL WWW   Вверх
Pfailed
Дата 29.7.2009, 09:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39



chorny, благодарю, всё прояснилось.


--------------------
PM MAIL   Вверх
silaevasv
Дата 4.8.2009, 17:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 23.7.2009

Репутация: нет
Всего: нет



Такой вопрос возник: как получить  контент, т.е. что то вида
<html>
...
<head>
...
<body>
...
</html>

Код

print "Content-type: text/html\n\n";
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => 'https://zeustracker.abuse.ch/monitor.php?country=RU');

open(my $f, ">","test.txt")||die "$!";
print $f $ua->request($req)->content,"\n";
close($f); 
print "file test.txt is created\n";


и все никак не могу разобраться с регулярными выражениями . . .
                                                              
Возможно ли сделать такую табличку  |$host|$A_record|$status| и т.д.

Пытаюсь делать что то вроде отобрать содержимое между <a href . . . </a> в таком виде:
Код

while (my $Html= < >){
$Html=(~m{<a\b([^>]+)>(.*?)</a>}ig);
 my $Guts=$1;
 my $Link=$2;
   if ($Guts=~m{\b<A HREF="monitor.php?=\s*=\s*(?:"([^"]*)"|'([^']*)'|([^'">\s]+))}xi){ 
 my $URL=$+;
  print "$URL with link text: $Link \n";}
  }


но это ничего не дает . . .
Думала просто будет выводить значения которые стоят после <A HREF="monitor.php?=  .. но он выдает ошибку
Помогите пожалуйста разобраться!!!                          
PM   Вверх
Pfailed
Дата 4.8.2009, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39



Цитата

Такой вопрос возник: как получить  контент, т.е. что то вида

Код

$ua->request($req)->content


Цитата

Возможно ли сделать такую табличку  |$host|$A_record|$status| и т.д.

Возможно

Цитата

$Html=(~m{<a\b([^>]+)>(.*?)</a>}ig);

Чего вы хотели добиться этой конструкцией?

Цитата

Думала просто будет выводить значения которые стоят после <A HREF="monitor.php?=  .. но он выдает ошибку


Код

'<A HREF="monitor.php?=tmtowtdi">' =~ /<a\s+href\s*=\s*(['"])monitor.php\?=(.+?)\1/i;
print $2, "\n";



Это сообщение отредактировал(а) Pfailed - 4.8.2009, 18:46


--------------------
PM MAIL   Вверх
silaevasv
Дата 5.8.2009, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 23.7.2009

Репутация: нет
Всего: нет



по конкретней можно . . . 
По данной конструкции хотела вытащить все что написано между <a и  . . . </a>
Код

$Html=(~m{<a\b([^>]+)>(.*?)</a>}ig);


Но я и сама понимаю, что она не идеальна . .  Поэтому и прошу помощи. Строк в файле много, а она и ничего не выводит . . .
По поводу таблицы - как можно занести в нее данные??? Наверно с помощью массива

@tab=qw(   . . . .  );  вот только что и как, ведь наверно надо в начале рег. выражениями выцепить ту инфу которая нужна . . . а потом уже заносить в массив данных

По поводу вашего кода

Код

while (my $Html= <'A HREF="monitor.php?=tmtowtdi'>){
$Html=(~/<a\s+href\s*=\s*(['"])monitor.php\?=(.+?)\1/i);
 print $2, "\n";
}

 я вас правильно поняла?

Он ничего на вывод не дает, только запись в файл всего контента как и шло у меня до этого . .  :((((( Что не правильно???
PM   Вверх
KSURi
Дата 5.8.2009, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27



silaevasv, почитайте про синтаксис оператора =~. Удивительно, что это вообще работает хоть как-то)
Цитата(silaevasv @  5.8.2009,  12:05 Найти цитируемый пост)
<'A HREF="monitor.php?=tmtowtdi'>

Это тоже неправильно. У вас тут получается некое подобие оператора "ромб" (<>).

Смотреть тут: perldoc perlop и perldoc perlre



--------------------
Died at Life.pl line 21
PM Jabber   Вверх
silaevasv
  Дата 5.8.2009, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 23.7.2009

Репутация: нет
Всего: нет



Добавлено @ 17:26
Цитата(KSURi 5.8.2009 @  15:33)
<'A HREF="monitor.php?=tmtowtdi'>

Это тоже неправильно. У вас тут получается некое подобие оператора "ромб" (<>).

Смотреть тут: perldoc perlop и perldoc perlre.


все такие умные, то не правильно, это не так . . .
Человек о помощи просит . . .  


Это сообщение отредактировал(а) silaevasv - 5.8.2009, 17:32
PM   Вверх
Pfailed
Дата 5.8.2009, 18:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39



Цитата(silaevasv @  5.8.2009,  17:21 Найти цитируемый пост)
Человек о помощи просит . . .  

Просит очень невнятно.

Код

while (my $Html= < >)

Что вы здесь читаете с STDIN?

Код

$Html=(~m{<a\b([^>]+)>(.*?)</a>}ig);

Это вообще какаято зверская кострукция. Как минимум должно быть так
Код

$Html=~m{<a\b([^>]+)>(.*?)</a>}i;


Код

$Guts=~m{\b<A HREF="monitor.php?=\s*=\s*(?:"([^"]*)"|'([^']*)'|([^'">\s]+))}xi

Тут получается что вы в извлеченном на предыдущем шаге из тега <a> значении ищите тег <a>. Не найдете если у вас там валидный html.
Возможно так будет лучше
Код

$Guts =~ /href\s*=\s*(['"])monitor.php\?=(.+?)\1/i


И начните уже читать справочную литературу. Этот курс для начала будет неплох.


--------------------
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0652 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.