Народ подскажите вот есть скрипт

#!/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 строки

• Подскажите как быть ,alchie, 12:30 , 26-Апр-04
  • Подскажите как быть ,NoNaMe, 12:32 , 26-Апр-04
    • Подскажите как быть ,alchie, 12:35 , 26-Апр-04
      • Подскажите как быть ,NoNaMe, 12:38 , 26-Апр-04
        • Подскажите как быть ,NoNaMe, 17:44 , 26-Апр-04
          • Подскажите как быть ,NoNaMe, 17:48 , 26-Апр-04
            • Подскажите как быть ,alchie, 03:05 , 27-Апр-04
              • Подскажите как быть ,NoNaMe, 08:57 , 27-Апр-04
                • Подскажите как быть ,alchie, 14:50 , 27-Апр-04

>Народ подскажите вот есть скрипт
>

>Все отрабатывает прекрасно но вот как мне внего добавить что бы из
>результата он выдавал только допустип с 5 по 10 строку или
>3 5 8 строки

а если заменить
undef $/;
$html=<$sock>;

на

@html=<$sock>;

и работать уже с массивом строк?

>>Народ подскажите вот есть скрипт
>>
>
>>Все отрабатывает прекрасно но вот как мне внего добавить что бы из
>>результата он выдавал только допустип с 5 по 10 строку или
>>3 5 8 строки
>
>а если заменить
>undef $/;
>$html=<$sock>;
>
>на
>
>@html=<$sock>;
>
>и работать уже с массивом строк?

Может и можно но полный 0 в этом вот прошу может кто подскажет как более мение правильно зделать и примерчик маленький кинет

>>>Народ подскажите вот есть скрипт
>>>
>>
>>>Все отрабатывает прекрасно но вот как мне внего добавить что бы из
>>>результата он выдавал только допустип с 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];

спасибо попробую

Не непроходит просто нечего не выдает ==(

Он показывает все если указывать просто print @html; если ставлю с параметрами print @html[1..7]; то показывает пустоту

>Он показывает все если указывать просто print @html; если ставлю с параметрами
>print @html[1..7]; то показывает пустоту

undef $/ убери

Да убрал все заработало но перестала работать выборка

($c1, $c2, @shit) = split /coeditor.cgi>/, $html;
($D1, @shit1) = split /<hr/, $c2;  

как тогда быть ?

>Да убрал все заработало но перестала работать выборка
>
>
>
>($c1, $c2, @shit) = split /coeditor.cgi>/, $html;
>($D1, @shit1) = split /<hr/, $c2;
>
>как тогда быть ?

решение попроще - хранить страничку в двух переменных
undef $/;
$html=<$sock>;
@html=split /\n/, $html;