Добавление стандартной функции открытия файла Perl для каждого script У меня немного раздражает:
sub openfile{
(my $filename) = @_;
open FILE,"$filename" or die $!;
my @lines = <FILE>;
return @lines;
}
и я могу создать модуль Perl для этого, но это так просто. Я уверен, что там уже должен быть один.
Я пытаюсь найти способ прочитать текстовый файл в массиве, и я не могу найти модуль Perl, который может выполнить эту простую задачу... может быть, я слишком много смотрю, и это уже поставляется со стандартной установкой 5.10.
Оптимально я считаю, что это будет выглядеть примерно так:
my @lines = Module::File::Read("c:\some\folder\structure\file.txt");