여러 줄의 텍스트 파일을 병합하고 각 줄 끝에 현재 파일 이름을 추가하십시오.

Question

File1.csv, File2.csv, ..., File1000.csv라는 이름의 천 개의 파일이있는 폴더가 있고 각 줄마다 몇 줄이 있다고 가정 해 봅시다. 세미콜론으로 구분 된 (;) 데이터 값.

각 파일을 하나씩 추가하고 각 행 끝에 현재 처리중인 파일의 이름을 추가하여 해당 폴더에있는 모든 CSV 파일을 하나씩 "병합"하는 Perl 스크립트가 필요합니다 (예 : "; File2").

스티브

Answer 1

Text::CSV는 CSV를 구문 분석하는 데 사용할 수 있습니다. 다음 스크립트는 CSV 파일이 들어있는 디렉토리에서 실행됩니다. 재귀 적 (glob 사용)입니다. 파일을 재귀 적으로 찾길 원하는 경우 File::Find Perl 모듈을 사용할 수 있습니다.

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Text::CSV; 

my $csv = Text::CSV->new({ 'sep_char' => ';' }); 

open my $fho, '>', 'combined.csv' or die "Error opening file: $!"; 

while (my $file = <*.csv>) { 
    open my $fhi, '<', $file or die "Error opening file: $!"; 
    (my $last_field = $file) =~ s/\.[^\.]+$//; # Strip the file extension off 

    while (my $row = $csv->getline($fhi)) { 
     $csv->combine(@$row, $last_field); # Construct new row by appending the file name without the extension 
     print $fho $csv->string, "\n";  # Write the combined string to combined.csv 
    } 
}