２ch型掲示板 その２
701 ：名無しさん：
頭の中でシミュレートした感じだと、この条件→if(@temp == $low){ が
満たされることが無いからなんじゃないの。
抜いた後でお尻にくっつければいいわけだから、こんな感じ？
実行してないけど。
foreach(@PAGEFILE){
if($_ ne $keyfile){
$temp[@temp]=$_;
print SUBW "$_<>$SUBJECT{$_}\n";
}
}
push @temp, $keyfile;
print SUBW "$subtm\n";
あと、$FORM{'mail'} =~/dame/←これって$FORM{'mail'} eq 'dame'じゃだめなん？
満たされることが無いからなんじゃないの。
抜いた後でお尻にくっつければいいわけだから、こんな感じ？
実行してないけど。
foreach(@PAGEFILE){
if($_ ne $keyfile){
$temp[@temp]=$_;
print SUBW "$_<>$SUBJECT{$_}\n";
}
}
push @temp, $keyfile;
print SUBW "$subtm\n";
あと、$FORM{'mail'} =~/dame/←これって$FORM{'mail'} eq 'dame'じゃだめなん？
|
|
|