Perlのinput formの画面遷移

入力画面
/var/www/html/test.html

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
<!DOCTYPE html>
<meta charset="utf-8">
<style>
#errorMessage {
    color: red;
}
</style>
<form action="/cgi-bin/test.cgi">
<div id="errorMessage"></div>
 
<label for="name">お名前:</label>
<input name="name" id="name" required><br>
<label for="password">パスワード:</label>
<input type="password" name="password" id="password" required><br>
<label for="passwordConfirm">パスワード(確認):</label>
<input type="password" name="confirm" id="confirm" oninput="CheckPassword(this)"><br>
<input type="submit" value="送信">
</form>
<script>
        function CheckPassword(confirm){
            var input1 = password.value;
            var input2 = confirm.value;
 
            if (input1 != input2){
                confirm.setCustomValidity("入力値が一致しません");
            } else{
                confirm.setCustomValidity('');
            }
        }
</script>

受け手のページ(確認画面)
/var/www/cgi-bin/test.cgi

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl --
use strict;
use utf8;
use warnings;
use CGI;
 
my $q = new CGI;
my $param1 = $q->param('name');
my $param2 = $q->param('password');
 
print "Content-type:text/html\n\n";
print "<html>\n";
print "<head></head>\n";
print "<input type=\"hidden\" value=\"$param1\" name=\"name\"></input>";
print "<input type=\"hidden\" value=\"$param2\" name=\"password\"></input>";
print "<form action=\"/cgi-bin/test2.cgi\">";
print "<label for=\"name\">お名前:</label>";
print "$param1<br>";
print "<label for=\"password\">パスワード:</label>";
print "$param2<br>";
print "<input type=\"submit\" value=\"送信\">";
print "</form>";
print "</html>";

一応、受け渡しはされてますが、、、

なんかイマイチ。。