안녕하세요. 해피CGI 웹마스터 윤영웅입니다.
프린트 문을 위에서 사용해야지요. ^^
아래 코드를 전부 그대로 복사해서 붙이세요.
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
################# form에서 데이타 읽어오기 #################
&read_form;
print "\n";
print "
휴무신청서 확인\n";
print "\n";
print "\n";
print "
TablePrint1-3
#### 필요한 요소 추출 ######################################################
sub read_form {
%Form = &read_input;
$sabun = $Form{'sabun'};
$hyufrom1 = $Form{'hyufrom1'};
$hyuto1 = $Form{'hyuto1'};
$sayong1 = $Form{'sayong1'};
$hyucode1 = $Form{'hyucode1'};
$sayu1 = $Form{'sayu1'};
$hyufrom1 =~s/\s//g;
$sayong1 =~ s/\s//g;
}
##### CGI 로 받은 데이타를 연상배열 %FORM 에 저장 #################################
sub read_input {
local ($buffer, @pairs, $name, $value, %FORM);
if ($ENV{'REQUEST_METHOD'} =~ /^post$/i) {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach (@pairs) {
($name, $value) = split(/=/, $_);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
return %FORM;
}
116
844
2001-04-13 11:58:29
닉네임
