от есть програмка на перле, как её переписать на пхп?

use LWP::UserAgent;
use HTTP::Request::Common;
$url=$ARGV[0];
$ua=LWP::UserAgent->new or die;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(30);
$h1 = new HTTP::Headers
Accept => 'application/vnd.ms-excel, application/msword, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-comet, */*',
User_Agent => 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)',
Referer => $ARGV[1];
$req1 = new HTTP::Request ('GET', $url, $h1);
$res=$ua->request($req1);

$page=$res->content;
print $page;

• Сетевые ф-и пхп, как сделать заголовок запроса? ,stan777, 15:54 , 30-Янв-07
  • Сетевые ф-и пхп, как сделать заголовок запроса? ,Satell, 17:18 , 30-Янв-07
    • Сетевые ф-и пхп, как сделать заголовок запроса? ,BsDr, 18:06 , 09-Фев-07

>от есть програмка на перле, как её переписать на пхп?
>
>use LWP::UserAgent;
>use HTTP::Request::Common;
>$url=$ARGV[0];
>$ua=LWP::UserAgent->new or die;
>$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
>$ua->timeout(30);
>$h1 = new HTTP::Headers
>Accept => 'application/vnd.ms-excel, application/msword, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-comet, */*',
>User_Agent => 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)',
>Referer => $ARGV[1];
>$req1 = new HTTP::Request ('GET', $url, $h1);
>$res=$ua->request($req1);
>
>$page=$res->content;
>print $page;

никак потому что там нет LWP $)

>никак потому что там нет LWP $)

ну как то же можно, через сокеты или ещё чтонибудь
curl какой-то есть

а вот так нельзя реферер задать? у меня не работает
header('Referer: http://site.org');
header('Location: http://site.org/cgi-bin/perlinfo.cgi');

>>никак потому что там нет LWP $)
>
>ну как то же можно, через сокеты или ещё чтонибудь
>curl какой-то есть
>
>а вот так нельзя реферер задать? у меня не работает
>header('Referer: http://site.org');
>header('Location: http://site.org/cgi-bin/perlinfo.cgi');

на каком-то Curl'e

function Wget($request, $TIMEOUT)
{
    if (function_exists("curl_init"))
    {
    $ch = curl_init();
    $header = array();
    $header[] = "Accept: text/html";
    $header[] = "Accept-Language: ru,en;q=0.9";
    $header[] = "Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1";
    $header[] = "Accept-Encoding: deflate, identity, *;q=0";
    curl_setopt($ch, CURLOPT_URL, $request);
    curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, FALSE);
    curl_setopt($ch, CURLOPT_USERAGENT, 'Opera/8.50 (Windows NT 5.1; U; ru)');
    curl_setopt($ch, CURLOPT_HTTPHEADER, $header);
    curl_setopt($ch, CURLOPT_FOLLOWLOCATION,1);
    curl_setopt($ch, CURLOPT_HEADER, 1);
    curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
    curl_setopt($ch, CURLOPT_TIMEOUT, $TIMEOUT);
    $data=curl_exec ($ch);
    $err=curl_errno($ch);
    if($err)
        {
        $err=curl_error($ch);
        echo $err.'<br>';
        return(FALSE);
      }
    curl_close ($ch);
  }
    else
    {
    return(FALSE);
  }
  $out = parse_response($data);
    return $out[2];
}

function parse_response($response)
{
   /*
   ***original code extracted from examples at
   ***http://www.webreference.com/programming
                           /php/cookbook/chap11/1/3.html

   ***returns an array in the following format which varies depending on headers returned

       [0] => the HTTP error or response code such as 404
       [1] => Array
       (
           [Server] => Microsoft-IIS/5.0
           [Date] => Wed, 28 Apr 2004 23:29:20 GMT
           [X-Powered-By] => ASP.NET
           [Connection] => close
           [Set-Cookie] => COOKIESTUFF
           [Expires] => Thu, 01 Dec 1994 16:00:00 GMT
           [Content-Type] => text/html
           [Content-Length] => 4040
       )
       [2] => Response body (string)
*/

   do
     {
       list($response_headers,$response) = explode("\r\n\r\n",$response,2);
       $response_header_lines = explode("\r\n",$response_headers);

   // first line of headers is the HTTP response code
       $http_response_line = array_shift($response_header_lines);
       if (preg_match('@^HTTP/[0-9]\.[0-9] ([0-9]{3})@',$http_response_line,
                     $matches)) {
         $response_code = $matches[1];
       }
       else
         {
           $response_code = "Error";
         }
     }
   while (substr($response_code, 0,1) == "1");

   $response_body = $response;
        
   // put the rest of the headers in an array
   $response_header_array = array();
   foreach ($response_header_lines as $header_line) {
       list($header,$value) = explode(': ',$header_line,2);
       $response_header_array[$header] = $value;
   }

   return array($response_code,$response_header_array,$response_body);
}

В $header пишется что хочешь!
Можно без $parse_response();
тогда curl_setopt($ch, CURLOPT_HEADER, 0) и return($data)