ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : InSAn                                2:5020/400     29 Nov 2000  10:37:00
 To : All
 Subject : Re: ...нужна помощь ... Чем плох такой вариант?
 -------------------------------------------------------------------------------- 
 

 Hi!
  Вот вроде разобрался... Hо только не понятно, хорош ли такой вариант?
 Гуру - подскажите!
 
 ------------------------------------
 #!/usr/bin/perl
 
 use IO::Socket;
 
 print "Content-type: text/html\n\n";
 
 my ($headers, $request, $iaddr, $addr);
 $headers={
  'REFERER'     => "http://my.site.com,
  'USER-AGENT'     => $ENV{'HTTP_USER_AGENT'},
  'X_FORWARDED_FOR'   => $ENV{'HTTP_X_FORWARDED_FOR'},
  'REMOTE_ADDR'     => $ENV{'REMOTE_ADDR'}
 };
 
 $request = "GET http://www.other.com/a.html HTTP/1.0\n\n";
 while (my ($name,$value)=each %$headers){
  $request.="$name: $value\n" if $value;
 }
 
 $iaddr = gethostbyname('www.other.com');
 $addr = inet_ntoa($iaddr);
 
 my $remote = IO::Socket::INET->new( Proto =>"tcp", PeerAddr=>$addr,
 PeerPort=>'80' );
 if( $remote ) {
  $remote->autoflush(1);
  print $remote "$request\n";
 }
 
 my (@line) = <$remote>;
 
 ...
  Далее что-то делаем с @line
 ...
 
 exit(0);
 ------------------------------------
 
 Все работает, вот только грызут сомнения, не пропустил ли я чего?
 - ---
 Best Regards, InSAn (insan@al.ru)
    http://insan.al.ru - Уголок программиста
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Hе дайте помереть дураком (или нужна помощь с Сокетом)   InSAn   28 Nov 2000 12:37:01   Re: ...нужна помощь ... Чем плох такой вариант?   InSAn   29 Nov 2000 10:37:00