ぜろちゃんねるスクリプトを改造するスレ

534 ：7M. ◆dq7M./4Uw. ：2005/07/01(金) 23:35:46 ID:???0

すみませぬ、私が間違っていた…。我ながらなに阿呆な事やっとんじゃ、
sub GetIDPart
{
my $this = shift;
my ($Set,$Form,$Sec,$id,$capID,$agent) = @_;
my $host = $Form->Get('HOST');
my $subject = $Form->Get('subject');
my $mode = '';
my $force;
if($subject=~/test/){$force = 1;}

$force and return " ID:$id";
(以下オリジナルと同じ)

これで大丈夫だヴぁー。ちゃんと動かしたヴぁー。
にしても描き方汚いなー。。。