在csv perl中添加頭文件

Question

我需要將頭文件添加到現有的CSV文件中。 我是新來的perl，所以我不知道如何做到這一點，所以如果我能得到一些指導從喲真棒脂肪酶將是。

awesome ^。^

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

我需要在添加頁眉到exsisting CSV文件

爲什麼不使用使用這種簡單的一行比寫一個完全成熟的方案...

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

這裏是perl這樣做的方法：

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