|
안녕하세요?
얼마전에 소스를 찾습니다에 부탁하여 아이디를 입력
받으면 그 아이디가 제 계정에 디렉토리로 만들어지는 것을
만든 적이 있습니다. 그런데 생각해보았더니,
만약에 다른 사람이 good 라는 아이디를 입력하여 good 라는
디렉토리가 이미 생성되어 있는데 또 다른 사람이 good를
입력할 경우 "이미 있는 아이디입니다."라고 나오게 하고 싶거든요..
그래서 수정을 했는데 잘 안되네요. 아래 소스 좀 보시고 답변 좀
부탁드립니다.
#!/usr/bin/perl
$Truthee = 0;
$i = 0;
read(STDIN, $buffer, $ENV{
CONTENT_LENGTH
});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($kname, $value) = split(/=/, $pair);
$value =~ tr/ / /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$$kname=$value;
}
opendir(DIR,"./");
@dirdata=readdir(DIR);
closedir(DIR);
while( $i < $dirdata){
if($dirdata[$i] eq $dir){
$Truthee = 1;
}
$i = $i 1;
}
print "$Truthee";
if($Truthee == 0 ){
rmdir ("$dir","755");
print "content-type:text/html
";
print "$dir 디렉토리가 만들어졌습니다.";
}
else{
print "content-type:text/html
";
print "there is same id";
}
|
49
556
2000-03-19 18:42:17
닉네임
