2014-01-17 103 views
0

嗨,我有一個腳本,需要從一列的9個字符串。 然後我必須將它們保存在一個新的CSV文件和CSV格式。 我已經嘗試Class :: CSV,但因爲我是新來的perl我沒有通過字符串,因爲他們的一些數據改變發生之前,我把它們保存在這些字符串。在perl中創建一個CSV文件

所以我希望你能給我一個例子開始。

my $csv = Class::CSV->new(
    fields   => [voornaam/achternaam], 
    line_separator => "\r\n"; 
    ); 


$csv->add_line({ 
     userid => $voornaam, 
     username => $achternaam 


}); 

我也試過這樣做,它沒有工作:(

my $csv = Text::CSV->new(); 

       $csv->column_names('gebruikernaam','Voornaam','achternaam','Wachtwoord','Telefoongebruiker','Telefooncode','SMS','telefoonnummer1','telefoonnummer2','telefoonnummer3','groep'); 
       open $fh, ">", "file.csv" or die "new.csv: $!"; 
       //... 
       $csv->print ($fh, [$gebruiker, $voorltr, $achternm, $password, $placeholder, $placeholder, $functioncode, $function, $SMS, $telefoon1, $telefoon2, $telefoon3, $groep]); 
       //... 
       close $fh or die "$!"; 
+0

類:: CSV可能不是你想要的模塊 - 它使用Text :: CSV,你也應該。我會在一分鐘內給你舉個例子。 – tangent

+1

如果你不想要,你不需要一個模塊來保存csv格式的東西。只需用逗號,分號,製表符或其他任何方式分隔您的字段並將文件另存爲.csv就行。 – DeVadder

+2

@DeVadder模塊將爲您處理轉義和引用,所以我會建議使用一個 – tangent

回答

0

我不熟悉的類:: CSV但metacpan Class::CSV故事大綱給出了一個例子。

具體你需要像

fields   => [ qw/voornaam achternaam/ ], 

在一個更詳細的一點

  • qw/ /在您提供的字符串中創建一個數組字。因此,qw/voornaam achternaam/相當於("voornaam", "achternaam")
  • []創建對該數組的引用。