Perl 程序将用户信息从 HTML 表单附加到 CSV 文件

Question

我需要将用户信息从 HTML 表单附加到 Perl 中的 CSV 文件。 如果用户名存在，则应显示一个错误的 HTML 页面，将用户链接回主页。

到目前为止，我的代码如下所示：

#!/usr/local/bin/perl
use CGI;
use strict;
my $username = param('username');
my $name = param('name');
my $password = param('password);


$file = 'Members.csv'
open(PTR, '<<$file') || fatalError("Unable to open members file");

# if user name exists link to HTML page
else
seek(PTR, 0, 2);
print PTR $username;
print PTR $name;
print PTR $password;


close(PTR);

sub FatalError{
print "$_[0]";
exit;
}

这只是代码的骨架版本。 谁能给我任何指点和帮助？

Answer 1

看看Text::CSV 模块。例如，您可以这样做：

my $csv = Text::CSV->new();
open (my $fh, ">>", $fn) or die "Could not open '$fn' for writing: $!\n";
$csv->combine ($username,$name,$password);
my $line = $csv->string ();
print $fh $line . "\n";
close( $fh);