URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID1
Нить номер: 8449
[ Назад ]
Исходное сообщение
"Заставить Perl читать все строки из файла-массива ?"
Отправлено McFly , 13-Сен-01 15:19 
Подпрограмма на перле читает файл-массив, извлекает из него данные из нужной позиции и сливает эти данные в другой файл, но делает это только с первой строкой массива.
Вопрос: как организовать цикл для чтения всех строк файла и записи выбранных данных построчно в другой файл ? Количество строк в файле массива не постоянно.
Бился с оператором for пока без результата:(
Заранее: Спасибо !
Содержание
Сообщения в этом обсуждении
"RE: Заставить Perl читать все строки из файла-массива ?"
Отправлено Shurik , 13-Сен-01 19:27 
А что подразумевается под "файл-масив" ?
если обыкновенный файл тогда:

open (FIN,"inputfile");
open (FOUT,"> outfile");

while ($line=<FIN>) {
    #сделать что-нибудь со строкой
    print FOUT $line;    
}
close (FIN);
close (FOUT);

"RE: Заставить Perl читать все строки из файла-массива ?"
Отправлено McFly , 14-Сен-01 10:09 
Спасибо !!! Все заработало, у меня из массива изымаются данные из нужной позиции и складываются в другой файл. Я только начинаю писать на Perl.
Еще вопрос как добится чтобы данные в выходной файл записывались не через пробел:
34242 234242 324234 234242
а через перевод строки:
345345
353534
3453
345
3535
printf tmp $traf. " "; чего-то тут не хватает :(
Спасибо !

"RE: Заставить Perl читать все строки из файла-массива ?"
Отправлено McFly , 14-Сен-01 10:24 
Блин... нашел все просто:
printf tmp $traf. "\n";