更換/編輯CSV標題

嗨這一點，我已經有了一個新音符替換某些頭科拉姆它文件更換/編輯CSV標題

Naam,Functie,Functiecode,SMS,telefoonnr. 1,telefoonnr. 2,telefoonnr. 3,,overig

我的文件頭只是頭不在CSV別的。和telefoonnr。 1，telefoonnr。 2，telefoonnr。 3

必須與

telefoonnr1,telefoonnr2,telefoonnr3

來源

2014-01-16 Brein

代替你可以使用Tie::Array::CSV

use Tie::Array::CSV; 
my $filename = '/path/to/file.csv'; 
tie my @file, 'Tie::Array::CSV', $filename; 
$file[0] = ['Naam','Functie','Functiecode','SMS','telefoonnr1','telefoonnr2','telefoonnr3',,'overig']; 
untie @file;

來源

2014-01-16 13:21:05 tangent

永遠：'use strict;使用警告; [Tie :: File]（https://metacpan.org/pod/Tie::File），其中[Tie :: Array :: CSV]（https://metacpan.org/pod/Tie：：Array :: CSV）使用，可能會[大文件緩慢地出現]（http://perlmonks.org/index.pl?node_id=1000412）。 – Kenosis

這裏的另一種選擇：

use strict; 
use warnings; 

my $newHeader = 'Naam,Functie,Functiecode,SMS,telefoonnr1,telefoonnr2,telefoonnr3,,overig'; 

while (<>) { 
    $_ = "$newHeader\n" if $. == 1; 
    print; 
}

用法：perl script.pl inFile [>outFile]

最後一個可選參數將輸出指向文件。

希望這會有所幫助！

來源

2014-01-16 17:59:51 Kenosis

更換/編輯CSV標題

回答

相關問題