小弟偶是个perl初学者，现有问题请教各位大侠！！up有分

[weijf1979]

我想用perl写个发mail的cgi程序。现在在登录这块碰到问题了。
我把用户信息写在一个叫user.txt文本里。它的结构是
xiaoqiang [e-mail] 12345
xiaozhang [e-mail] 56789
。
。
。
（以空格为分隔符）
我不知道该怎么样把在form输入的username、password和这个文本里的数据进行比较
还望各位大侠多多指点。谢谢

[klbt]

关注，帮你顶。

[weijf1979]

自己先up一下，在线等，急！！！

[zgxbliss]

open(FILE,"user.txt") || die "open file error";
my @alluserinfo = <FILE>;
close(FILE);
foreach $userinfo(@alluserinfo)
{
my @userinfo = split(/\s/,$userinfo);
if($userinfo[0] eq $inputusername && $userinfo[2] eq $inputpasswd)
{
print "user name and password is correct\n";
return 0;
}
}
return 1;

[chmask]

同意楼上
open(FILE,"user.txt") || die "open file error";//打开文件操作
my @alluserinfo = <FILE>;//获取文件内容
close(FILE);//关闭文件
foreach $userinfo(@alluserinfo)
{//循环进行判断文件中有没有表单中传来的信息……
my @userinfo = split(/\s/,$userinfo);
if($userinfo[0] eq $inputusername && $userinfo[2] eq $inputpasswd)
{//有信息则输出
print "user name and password is correct\n";
return 0;
}
}
return 1;

应该很好懂吧？

[chmask]

my @userinfo = split(/\s/,$userinfo);
这一句最关健，就是将你的信息用空格来分开，然后存入一个数组中……

[LXGer]

有所提示 谢谢各位大虾

[weijf1979]

谢谢各位的帮忙。我按照你们说的方法。的确能正常登录。我现在在代码里加了个出错信息。可是就是不行。
open(FILE,"./user.txt") || die "open file error";#打开文件操作
my @alluserinfo = <FILE>;#获取文件内容
close(FILE);#关闭文件
my $userinfo;
if ($action eq 'login') {
foreach $userinfo(@alluserinfo)
{##循环进行判断文件中有没有表单中传来的信息……
my @userinfo = split(/\s/,$userinfo);
if($userinfo[0] eq $username && $userinfo[2] eq $password)
{
print printhtml("send.html");
exit;
return 0;
}
elsif($userinfo[0] ne $username || $userinfo[2] ne $password)
{
$OUT{error}="用户名或密码错";
print printhtml("login.html");
exit;

}

}
return 1;
}

[yanjianjiang]

关注

[weijf1979]

十分感谢各位的帮助，我已经解决问题了，结帐。