Forum Webscript.Ru

Программирование => Perl => Тема начата: Biggelow от 26 Февраля 2006, 13:53:41

Название: Первая строчка
Отправлено: Biggelow от 26 Февраля 2006, 13:53:41

Народ подскажите пожалуйста!

Имеется тествовый файл с большим количеством строчек, нужно прочитать первую строку размером 10 символов, не читая весь файл в массив(типа файл большой). Чтобы система вообщем не грузилась.

Плиз конкретный рецепт, а не ссылку на литературу. Просто срочно надо!

Название: Первая строчка
Отправлено: Phoinix от 26 Февраля 2006, 14:49:06

Biggelow

open (FILE,  \'file.txt\');
my $row = substr(, 0, 10);
close FILE;

P.S. Хотя можно и так еще меньше памяти:

open (FILE,  \'file.txt\');
read FILE, my $row, 10;
close FILE;

Название: Первая строчка
Отправлено: Biggelow от 26 Февраля 2006, 16:49:03

Большое спасибо!