２ch型掲示板 その２
17氏のスクリプトにdame機能（スレを一番下までsageる奴）付けようと思って
# dameのときは一番下に追いやる
} elsif ($FORM{'mail'} =~/dame/ && $FORM{'subject'} eq "") {
my (@temp,$low);
$low = int(@PAGEFILE);
foreach(@PAGEFILE){
if(@temp == $low){
$temp[@temp]=$keyfile;
print SUBW "$subtm\n";
}
if($_ ne $keyfile){
$temp[@temp]=$_;
print SUBW "$_<>$SUBJECT{$_}\n";
}
}
@PAGEFILE=@temp;
こんな感じのを書き足したんだけど上手くいかないんだよな。どうして？
# dameのときは一番下に追いやる
} elsif ($FORM{'mail'} =~/dame/ && $FORM{'subject'} eq "") {
my (@temp,$low);
$low = int(@PAGEFILE);
foreach(@PAGEFILE){
if(@temp == $low){
$temp[@temp]=$keyfile;
print SUBW "$subtm\n";
}
if($_ ne $keyfile){
$temp[@temp]=$_;
print SUBW "$_<>$SUBJECT{$_}\n";
}
}
@PAGEFILE=@temp;
こんな感じのを書き足したんだけど上手くいかないんだよな。どうして？
|
|
|