- 872 名前：nobodyさん [2007/09/07(金) 19:59:56 ID:y9OmwNJ6]
- 自分のサーバー内に
フォームより送信したディレクトリ（フォルダ）を作成し
その中に決められた名前のhtmlファイルで
フォーム内容を書き出す物を作りたいのですが
----------------------------------------
#!/usr/bin/perl
$len = read(STDIN, $param, 1024);
$param =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
@plist = split(/&/, $param);
foreach $strdat (@plist){
($key, $val) = split(/=/, $strdat);
$prm{$key} = $val;
}
$userid = "test";
$userpwd = "test";
if (($prm{userid} eq $userid) and ($prm{userpwd} eq $userpwd)){
mkdir $prm{folder},eval("0$prm{fmod}");
print "作成完了！<br><br>\n";
print "フォルダ名：$prm{folder}<br>\n";
print "パーミッション：$prm{fmod}<br>\n";
}else{
print "<h3>ユーザーID、パスワードが違います。</h3>";
}
--------------------------------------------
|
 |
