Люди, подскажите пожалуйста. Нужно получить содержимое html-документа с удаленного сервера из скрипта на perl. Как?

• Получение содержимого html-документа с удаленного сервера,PoizOn, 14:34 , 14-Мрт-05
• Получение содержимого html-документа с удаленного сервера,mthawk, 11:06 , 17-Мрт-05
  • Получение содержимого html-документа с удаленного сервера,PoizOn, 11:27 , 17-Мрт-05

>Люди, подскажите пожалуйста. Нужно получить содержимое html-документа с удаленного сервера из скрипта
>на perl. Как?

use LWP::Simple;

print get("http://ya.ru");

>Люди, подскажите пожалуйста. Нужно получить содержимое 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!

>>Люди, подскажите пожалуйста. Нужно получить содержимое 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 - зачем изобретать велосипед заново?