Question

我需要将标头添加到现有的CSV文件中。我是perl的新手，所以我没有任何线索可以做到这一点，如果我能从yuo awesome ppl得到一些指导，那就是。

棒极了^。^

CSV文件布局如下。

header: name, function, group, 
data:   Henk, Kok,      B,     

header: name, function, group, password
data:   Henk, Kok,      B,   , 1234

Answer 1

你可以这样做：

open(FILE,'<',"myfile.csv");
open(NEW_FILE,'>',"myfile.new.csv");
#You header
print NEW_FILE "name, function, group\n";
my $line;
while( $line = <FILE> ) {
    print NEW_FILE $line;
}
close NEW_FILE;
close FILE;

从Perl常见问题解答： http://perldoc.perl.org/perlfaq5.html#How-do-I-change,-delete,-or-insert-a-line-in-a-file,-or-append-to-the-beginning-of-a-file？

Answer 2

我需要将标题添加到现有的CSV文件中

为什么不使用这个简单的单行而不是写一个完整的程序......

$ sed -i '1i name, function, group' CSV_FILE_NAME

这是perl方式：

$ perl -pi -e 'print "name, function, group\n" if $. == 1' CSV_FILE_NAME

在csv perl中添加标头

2 个答案: