Question

嘿伙计们，我有一个从一列中取出9个字符串的脚本。然后我必须将它们保存在新的CSV文件和csv格式中。我已经尝试过Class :: CSV但是因为我是perl的新手而我没有传递字符串因为他们在我将它们保存在那些字符串之前发生了一些数据更改。

所以我希望你能给我一个开始的例子。

  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 "$!";

Answer 1

我不熟悉Class :: CSV，但metacpan Class::CSV的概要提供了一个例子。

具体来说，你需要像

这样的东西

 fields         => [ qw/voornaam achternaam/ ],

更详细一点

qw/ /在您提供的字符串中创建一个数组字。因此qw/voornaam achternaam/相当于("voornaam", "achternaam" )
[]创建对该数组的引用。

在perl中创建一个CSV文件

1 个答案: