Как я могу скопировать столбцы из нескольких файлов в один выходной файл, используя Perl

Question

Это моя проблема.

Мне нужно скопировать 2 столбца из 7 разных файлов в один и тот же выходной файл. Все входные и выходные файлы являются файлами CSV. И мне нужно добавить каждую новую пару столбцов рядом с уже скопированными столбцами, чтобы в конце выходной файл имел 14 столбцов.

Я считаю, что не могу использовать

open(FILEHANDLE,">>file.csv").

Кроме того, все 7 CSV-файлов имеют почти 20 000 строк каждый, поэтому я читаю и записываю файлы построчно.

Было бы очень полезно, если бы вы могли дать мне представление о том, что мне следует делать.

Большое спасибо заранее.

Answer 1

При условии, что ваши строки 1: 1 (что означает, что вы объединяете данные из строки 1 файла_1, файла_2 и т. Д.):

• открыть все 7 файлов для ввода
• открыть выходной файл
• чтение строки данных из всех входных файлов
• записать строку комбинированных данных в выходной файл

Answer 2

Text :: CSV , вероятно, способ доступа к файлам CSV.

Вы можете определить обработчик csv для каждого файла (включая вывод), использовать getline или getline_hr (возвращает hashref) методы для извлечения данных, объединить их в arrayrefs, чем использовать print.