ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Eugene Grosbein                      2:5006/1       03 Nov 2000  23:59:16
 To : Marsel Kirsanov
 Subject : Re: Решить задачку надо бы...
 -------------------------------------------------------------------------------- 
 

 
 >open(FILE,"$fileName");
 
 $line=0;
 
 >while(<FILE>){
 
 $line++;
 
 >print;
 
 last if $line==20;
 
 >}
 >close(FILE);
 >
 >Открывает и печатает файл полностью, а как сaделать, чтобы он читал только
 >перевые 20 строк?
 
 Eugene
 --- slrn/0.9.6.2 (FreeBSD)
  * Origin: SVZ-Service (2:5006/1@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Решить задачку надо бы...   Marsel Kirsanov   03 Oct 2000 13:24:59   Re: Решить задачку надо бы...   Eugene Grosbein   03 Nov 2000 23:59:16   Re^2: Решить задачку надо бы...   Yaroslav Kulikov   04 Nov 2000 07:31:40   Решить задачку надо бы...   Igor Cherkaev   05 Nov 2000 14:41:00   можно и так   dimka kuvshinov   05 Nov 2000 14:38:42   Re: можно и так   Lokhin Victor   14 Nov 2000 15:55:06   Moderatorial [*] (Re: Решить задачку надо бы...)   Comoderator of RU.CGI.PERL   13 Nov 2000 11:59:58