ぜろちゃんねるプラス質問スレ

425 ：名無しさん＠ぜろちゃんねるプラス：2013/06/03(月) 20:46:54.81 ID:4/yoJ/8g0

>>418
ご回答ありがとうございます。
ですが上手くいきませんでした。。。

sub execute
{
my $this = shift;
my ($sys,$form) = @_;

$name = $form->Get('FROM');
$bbs = $form->Get('bbs');
$key = $sys->Get('KEY');
$mes = $form->Get('MESSAGE');

$file0 = "/フルパス/$bbs/dat/$key.dat";

if ($name =~ /!aiu/){

$kakiko0 ="テスト中。。。<>tes<>201x/01/78(月) 00:00:00.00 ID:testes<>$mes<>";
$kakiko1 ="テスト中。。。<>tes<>201x/01/78(月) 00:00:00.00 ID:testes<><br>せやろか。テスト中。。。 <>";
$kakiko2 = "$kakiko0$kakiko1";
#DATに直に書込み
open(OUT,">> $file0");
print OUT "$kakiko2";
close(OUT);

my $Threads = $Sys->Get('MainCGI')->{'THREADS'};
$Threads->Update($Sys);
$Threads->Save($Sys);
}else{return 0}

return 0;
}