【Perl 】初心者コーナーPart8

**名無しさん＠お腹いっぱい。** · 01/11/27 15:20

>>450
んなこたぁない。

>>451
print "Content-Type: text/html\n\n";
if ($jouken == 1) {
open HTML, './a.html';
while (<HTML>) {
print;
}
close HTML;
} elsif ($jouken == 2) {
open HTML, './b.html';
while (<HTML>) {
print;
}
close HTML;
}