форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Получение содержимого html-документа с удаленного сервера"
Сообщение от StreamFromTheHeavens (??) on 14-Мрт-05, 13:56  (MSK)
Люди, подскажите пожалуйста. Нужно получить содержимое html-документа с удаленного сервера из скрипта на perl. Как?
	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Получение содержимого html-документа с удаленного сервера"
Сообщение от PoizOn (ok) on 14-Мрт-05, 14:34  (MSK)
>Люди, подскажите пожалуйста. Нужно получить содержимое html-документа с удаленного сервера из скрипта >на perl. Как? use LWP::Simple; print get("http://ya.ru");
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Получение содержимого html-документа с удаленного сервера"
Сообщение от mthawk (??) on 17-Мрт-05, 11:06  (MSK)
>Люди, подскажите пожалуйста. Нужно получить содержимое 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!
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "Получение содержимого html-документа с удаленного сервера"
	Сообщение от PoizOn (ok) on 17-Мрт-05, 11:27  (MSK)
	>>Люди, подскажите пожалуйста. Нужно получить содержимое 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 - зачем изобретать велосипед заново?
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.