Я новичок в программировании на Perl, и у меня есть пара проблем с компиляцией, которые я не могу решить. Моя программа получает данные из этой HTML-формы.
Вопрос. Должен ли моя форма использовать метод post или get?
<FORM action="./cgi-bin/Perl.pl" method="GET">
<br>
Full name: <br><input type="text" name="full_name" maxlength="20"><br>
Username: <br><input type="text" name="user_name" maxlength="8"><br>
Password: <br><input type="password" name="password" maxlength="15"><br>
Confirm password: <br><input type="password" name="new_password" maxlength="15"><br>
Я открываю CSV-файл, записываю значение user_name в массив и выполняю ряд проверок пользовательского ввода.
Проблема №1: мне нужно проверить, что full_name, user_name, password и new_password являются буквенно-цифровыми или пробелами, но я продолжаю получать несколько ошибок, которые выглядят так:
Use of uninitialized value $full_name in string eq at Perl.pl line 33
Я не думаю, что правильно использовал CGI для получения этих значений из формы. Я также считаю, что неправильно проверяю буквенно-цифровые символы. Как я могу решить эту проблему?
Проблема №2: мне нужно перенаправить пользователя на определенную веб-страницу, если их пароли не совпадают и если имя пользователя уже занято. Я использовал мета-перенаправление, но он не делает этого успешно. Как я могу отобразить правильную страницу ошибки?
Это мой код:
#!/usr/bin/perl
use CGI qw(:standard);
use strict;
use warnings;
print "Content-type: text/html\n\n";
#opening Members.csv for reading
my $file = '/home/2014/amosqu/public_html/cgi-bin/Members.csv';
open(my $csv, '<', $file) || die "Could not open your file";
#getting these from HTML form
my $full_name = param('full_name');
my $user_name= param('user_name');
my $password = param('password');
my $new_password = param('new_password');
my @users = ();
#splitting each line of csv file
foreach (<$csv>) {
chomp;
my @fields = split (/\,/);
push @users, $fields[1]; #put all usernames inside of array
}
close $csv;
#opening Members.csv for appending
open(my $fh, '>>', $file) || die "Could not open your file";
#SOURCE OF PROBLEM 1
#checking that all values are alphanumeric
if(($full_name && $user_name && $password && $new_password) eq /\A[[:alnum:]]+\z/) {
#if passwords don't match, redirect to error page
if($password ne $new_password){
print qq(<html>\n);
print qq(<head>\n);
print qq(<title> Passwords don't match. </title> \n);
print qq{<meta http-equiv="refresh"content="5;URL="http://www.cs.mcgill.ca/~amosqu/registration.html">\n};
print qq(</head>\n);
print qq(<body>\n);
print qq(<b><center> Passwords don't match </b></center>\n\n);
print qq(</body>\n);
print qq(</html>\n);
}
#if they do match, check that user name isn't in Members.csv
else {
if(grep (/$user_name/, @users)) {
print qq(<html>\n);
print qq(<head>\n);
print qq(<title> Sorry username already taken. </title>\n);
print qq{<meta http-equiv="refresh"content="5;URL="http://www.cs.mcgill.ca/~amosqu/registration.html">\n};
print qq(</head>\n);
print qq(<body>\n);
print qq(<b><center> Username already taken. </b></center>\n\n);
print qq(</body>\n);
print qq(</html>\n);
}
#if it isn't already in Members.csv append values to the file
else {
print $fh "$full_name, $user_name, $password \n";
}
}
}
close $fh;
