>>Люди, подскажите пожалуйста. Нужно получить содержимое html-документа с удаленного сервера из скрипта
>>на perl. Как?
>
>Способ номер раз (упрощенный)
>
>#!/usr/bin/perl
>open (WWW,"lynx -dump http://mypage.com |")||die "$!";
>while (<WWW>)
>{
>print "$_\n";
>}
>close(WWW);
>
>Способ номер два-с (многофункциональный)
>
>
>#!/usr/bin/perl
>use IO::Socket;
>$host="mypage.com";
>$port="80";
>
>socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
>
>$iaddr = inet_aton($host);
>$paddr = sockaddr_in($port, $iaddr);
>
>connect(SOCK, $paddr);
>send (SOCK, "GET /index.html HTTP/1.0\n\n", 0);
>
>@data=<SOCK>;
>
>close(SOCK);
>
>print @data;
>
>enjoy!

А мой способ вам не кажется более упрощенным и не менее функциональным??? :-))). Тем более если lynx'a нет??
Давно уже изобрели LWP - зачем изобретать велосипед заново?