펄을 이용한 투표 프로그램

소개글

펄을 이용한 투표 프로그램에 대한 보고서 자료입니다.

본문내용

#!/usr/bin/perl
require "cgi-lib.pl";
&ReadParse(*input);
print &PrintHeader;
@city = (0,0,0,0,0,0);
open(voteread,"vote.txt") || die "cannot open file";
for($i = 0; $i < 6; $i++)
{
$city[$i]=;
}
close(voteread);

for($i = 0; $i < 6; $i++)
{
$city[$i]=$city[$i]+0;
}

if($input{'city'}eq"seoul")
{
$city[0]++;

키워드

펄,   투표,   소스,   perl,   vote