在csv perl中添加标题

我需要在现有的CSV文件中添加标题。 我是perl新手，所以我不知道该怎么做，所以如果我能从你那里得到一些指导，那就太棒了

太棒了^^

CSV文件布局如下所示

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

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

---

您可能可以这样做：

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;

打开（文件，，“myfile.new.csv”）；
#你的头球
打印新的\u文件“名称、功能、组\n”；
我的美元线；
而（$line=）{
打印新的_文件$line；
}
关闭新的_文件；
关闭文件；

从Perl常见问题解答： ?

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

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

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

下面是

perl

的实现方法：

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

---

您已经显示了两个单独的标题。是哪一个？