ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ivan Frolcov                         2:5020/400     30 Sep 2003  15:16:20
 To : Andrey Kharchenko
 Subject : Re: Поделить файл на части.
 -------------------------------------------------------------------------------- 
 

 On Tue, 30 Sep 2003 10:30:55 +0000 (UTC), "Andrey Kharchenko"
 <andy@mapt.ru> wrote:
 
 >Подскажите, пожалуйста, чайнику, как сделать следующее. Есть текстовый файл,
 >нужно его перлом разрезать на текстовые файлы file1.txt, file2.txt:, по 200
 >строк. Можно пример? Спасибо.
 
 use IO::File;
 use strict;
 my $f;
 
 &{$f=sub{
           my($fh,$n) = @_;
           local $.=0;
           return if $fh->eof;
           my $ofh = new IO::File "> file$n.txt";
           print($ofh $_) while($. < 200 and $_=<$fh>);
           $ofh->close;
           $f->($fh,$n+1);
         }}( (new IO::File "<file.txt" || die $!),1);
 --- ifmail v.2.15dev5
  * Origin: Golden Telecom (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Поделить файл на части.   Andrey Kharchenko   30 Sep 2003 14:30:55   Re: Поделить файл на части.   Ivan Frolcov   30 Sep 2003 15:16:20   Re: Поделить файл на части.   Artem Chuprina   30 Sep 2003 23:48:45   Re: Поделить файл на части.   Alexander Onokhov   01 Oct 2003 02:08:03