LINUX.ORG.RU
Форум — Development  

perl прочитать файл как бинарный?!


0

0

Нужно читать файл без цикла целиком в переменную, но что-бы мотом его можно было грепнуть.
$/;
$file= <FILE>;
а то...
the value of $/ is a string, not a regex. awk has to be better for something

как без цикла прочитать файл целиком?

anonymous
← CruiseControl модифицированные файлы
Как считать данные с клавиатуры в регистр или переменную → 

open(FILE, $path_to_file);
@file = <FILE>;
close(FILE);
@sub_array = grep(/$pattern/, @file);

Вроде как-то так. Могу и ошибаться.

KblCb ★★★★★
()
Ответ на: комментарий от PoMbl4

переопределение не прокатывает

anonymous
()
Ответ на: комментарий от KblCb

>open(FILE, $path_to_file);
>@file = <FILE>;
>close(FILE);
>@sub_array = grep(/$pattern/, @file);
>Вроде как-то так. Могу и ошибаться.

почти то что надо, только как потом
@file передать в другую переменную $x?

anonymous
()
Ответ на: комментарий от KblCb

>А тебе зачем его в $x если ты его грепать собрался?
грепать я буду @file, а $x юзать в другом месте

anonymous
()
Ответ на: комментарий от anonymous

Гм... вижу три варианта. Первый: тупо читаем файл два раза. Один раз в массив второй раз в скаляр. Второй вариант: читаем файл в скаляр, скаляр режем сплитом на массив по /n. Третий: ищем функцию лепящую из одного массива один скаляр. Я её не знаю, но джедайское чутьё подсказывает что быть должна.

KblCb ★★★★★
()
Ответ на: комментарий от PoMbl4

>$s = join('', @array);

Проклятие. Я всегда использовал цикл. Позор мне.

KblCb ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← CruiseControl модифицированные файлы
Development
Как считать данные с клавиатуры в регистр или переменную →