|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Yaroslav Kulikov 2:5036/32.13 04 Nov 2000 07:31:40
To : Eugene Grosbein
Subject : Re^2: Решить задачку надо бы...
--------------------------------------------------------------------------------
_*ЯЯЯЯЯЯ*_
Итак, я решил ответить на письмо, датированное /*Пятница 03 Hоября 2000*/,
/*22:59*/,
в котором /*Eugene Grosbein*/ просвещал /*Marsel Kirsanov*/ по поводу "Re:
Решить задачку надо бы..."
>> open(FILE,"$fileName");
EG> $line=0;
>> while(<FILE>){
EG> $line++;
>> print;
EG> last if $line==20;
>> }
>> close(FILE);
>> Открывает и печатает файл полностью, а как сaделать, чтобы он
>> читал только перевые 20 строк?
Вот так тоже можно:
while (<FILE>)
{
if (1..20) {print;}
}
Правда есть минус: чем больше файл, тем дольше работает такая конструкция, так
как она читает весь файл.
Пусть удача не отвернется от Вас. /ЯрикЪ-МанЪярик/
... Честность хорошая вещь, когда все вокруг честные, а ты один жулик.
--- Слyшаю вот "Алсy - Свет в твоем окне" и письма пишy...
* Origin: Я не Г'Кван, я только учусь! (2:5036/32.13)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re^2: Решить задачку надо бы... 