替换/编辑csv头

Question

嘿伙计们，我必须用一个新的注释替换某个标题列，它只是标题而不是CSV文件中的任何其他内容

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

我的文件的标题。 和telefoonnr。 1，telefoonnr。 2，telefoonnr。 3

必须替换为

telefoonnr1,telefoonnr2,telefoonnr3

Answer 1

这是另一种选择：

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]

最后一个可选参数将输出定向到文件。

希望这有帮助！

Answer 2

您可以使用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;