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

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

"Подскажите как быть "
Сообщение от NoNaMe (??) on 26-Апр-04, 12:25  (MSK)
Народ подскажите вот есть скрипт #!/usr/bin/perl use IO::Socket; print "Content-type: text/html\n\n"; $sock=IO::Socket::INET->new(PeerAddr => "***.ru",                             PeerPort => 80,                             Proto    => "tcp",                             Type     => SOCK_STREAM) || die "can't connect\n"; print $sock "GET ******* HTTP/1.1\n"; print $sock "Accept: */*\n"; print $sock "Referer: http://www.yandex.ru/\n"; print $sock "Accept-Language: ru\n"; print $sock "Accept-Encoding: gzip, deflate\n"; print $sock "User-Agent: $ENV{HTTP_USER_AGENT}\n"; print $sock "Host: *******.ru\n"; print $sock "Connection: close\n\n"; undef $/; $html=<$sock>; print $html; close($sock); Все отрабатывает прекрасно но вот как мне внего добавить что бы из результата он выдавал только допустип с 5 по 10 строку или 3 5 8 строки
	Рекомендовать в FAQ | Cообщить модератору | Наверх

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

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

1. "Подскажите как быть "
Сообщение от alchie (??) on 26-Апр-04, 12:30  (MSK)
>Народ подскажите вот есть скрипт > >Все отрабатывает прекрасно но вот как мне внего добавить что бы из >результата он выдавал только допустип с 5 по 10 строку или >3 5 8 строки а если заменить undef $/; $html=<$sock>; на @html=<$sock>; и работать уже с массивом строк?
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "Подскажите как быть "
	Сообщение от NoNaMe (??) on 26-Апр-04, 12:32  (MSK)
	>>Народ подскажите вот есть скрипт >> > >>Все отрабатывает прекрасно но вот как мне внего добавить что бы из >>результата он выдавал только допустип с 5 по 10 строку или >>3 5 8 строки > >а если заменить >undef $/; >$html=<$sock>; > >на > >@html=<$sock>; > >и работать уже с массивом строк? Может и можно но полный 0 в этом вот прошу может кто подскажет как более мение правильно зделать и примерчик маленький кинет
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "Подскажите как быть "
	Сообщение от alchie (??) on 26-Апр-04, 12:35  (MSK)
	>>>Народ подскажите вот есть скрипт >>> >> >>>Все отрабатывает прекрасно но вот как мне внего добавить что бы из >>>результата он выдавал только допустип с 5 по 10 строку или >>>3 5 8 строки >> >>а если заменить >>undef $/; >>$html=<$sock>; >> >>на >> >>@html=<$sock>; >> >>и работать уже с массивом строк? > > >Может и можно но полный 0 в этом вот прошу может кто >подскажет как более мение правильно зделать и примерчик маленький кинет после этого добавь # 5 - 10 lines print @html[4..9]; #3,5,8 lines print @html[2,4,7];
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "Подскажите как быть "
	Сообщение от NoNaMe (??) on 26-Апр-04, 12:38  (MSK)
	спасибо попробую
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "Подскажите как быть "
	Сообщение от NoNaMe (??) on 26-Апр-04, 17:44  (MSK)
	Не непроходит просто нечего не выдает ==(
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "Подскажите как быть "
	Сообщение от NoNaMe (??) on 26-Апр-04, 17:48  (MSK)
	Он показывает все если указывать просто print @html; если ставлю с параметрами print @html[1..7]; то показывает пустоту
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	7. "Подскажите как быть "
	Сообщение от alchie (??) on 27-Апр-04, 03:05  (MSK)
	>Он показывает все если указывать просто print @html; если ставлю с параметрами >print @html[1..7]; то показывает пустоту undef $/ убери
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	8. "Подскажите как быть "
	Сообщение от NoNaMe (??) on 27-Апр-04, 08:57  (MSK)
	Да убрал все заработало но перестала работать выборка ($c1, $c2, @shit) = split /coeditor.cgi>/, $html; ($D1, @shit1) = split /<hr/, $c2;   как тогда быть ?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	9. "Подскажите как быть "
	Сообщение от alchie (??) on 27-Апр-04, 14:50  (MSK)
	>Да убрал все заработало но перестала работать выборка > > > >($c1, $c2, @shit) = split /coeditor.cgi>/, $html; >($D1, @shit1) = split /<hr/, $c2; > >как тогда быть ? решение попроще - хранить страничку в двух переменных undef $/; $html=<$sock>; @html=split /\n/, $html;
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

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

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