我以前没有使用过 Perl 脚本。下面提到的是我在 csv 文件中所需的输出。
email_id, CVupload_date,Login_date,Reg_date
example1@gmail.com,10-10-2010,19-5-2014,1-1-2010
example2@gmail.com,15-1-2011,19-5-2014,10-2-2010
example3@gmail.com,10-11-2012,19-5-2014,13-10-2011
谁能帮我生成这样的 csv 文件，使用 Perl 脚本。我需要在这个文件中添加多条记录。我刚刚给出了我的文件格式示例。在您的帮助下，我将尝试弄清楚 Perl 脚本的工作原理。
【问题讨论】：
你以前用过 Perl 吗？你有安装 Perl 吗？你知道如何执行 Perl 脚本吗？你知道如何从 CPAN 安装东西吗？
如果以上所有问题的答案都是“否” - 这似乎有点雄心勃勃。如果以上任何/大部分的答案都是“是”，那么您可能会很幸运。
Text::CSV_XS 是您可能希望用来写入 CSV 的第三方模块。
您需要做的是将您需要的数据构建到一个数组中，然后使用 Text::CSV_XS 将该数组打印到一个文件中。
概要的最后一段展示了如何将数据打印到 CSV。
您可以将数据存储在数组数组中，因此数组中的每个项目代表CSV中的每一行，而行数组中的每个项目代表行中的每一列：
[
[ row1xcol1, row1xcol2, row1xcol3 ],
[ row2xcol1, row2xcol2, row2xcol3 ],
...
]
如果您确实尝试这样做 - 为什么不尝试，这是一次很好的学习体验 - 帮自己一个忙，并将这两个 pragma 添加到脚本的顶部：
use strict;
use warnings;
它们有助于突出容易犯的愚蠢错误。
【讨论】：
use strict;
use warnings;
use feature qw/say/;
say 'email_id, CVupload_date,Login_date,Reg_date';
for (1..30) {
say 'example', $_, '@gmail.com,25-5-2004,22-6-2014,16-11-2003'; # guaranteed random, generated by random.org
}
【讨论】：