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);

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

1 个答案: