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

582 ：◆hikArinCL2 ：2005/12/09(金) 00:50:22 ID:???0

管理画面からの個別置換は不可能ですがプラグインならソースを
編集することによって可能になります
@tag変数をカンマの左にNGワード、カンマの右に置換文字列を入れて
変更することで文字列を好きなように置換できますが多すぎると
遅くなるので注意です
↓こんな感じ
package ZERO_PLUGIN;
use strict;
sub new { bless {}, $_[0] }
sub getName { 'NGワード置換機能\' }
sub getExplanation { 'NGワードを特定の文字列を置換する(複数指定可)' }
sub getType { 1 | 2 }
sub execute {
$_[2]->Set('FROM',_replace($_[2]->Get('FROM')));
$_[2]->Set('mail',_replace($_[2]->Get('mail')));
$_[2]->Set('MESSAGE',_replace($_[2]->Get('MESSAGE')));
$_[2]->Set('subject',_replace($_[2]->Get('subject')));
}
sub _replace {
my $src = shift;
my @tag = ('死ね,生きろ','（　＾ω＾）,（　´∀｀）');
foreach my $one (@tag){
my($key,$var) = split(/,/,$one);
$key = qr($key);
$src =~ s/$key/$var/g;
}
return $src;
}
1;

583 ：◆hikArinCL2 ：2005/12/09(金) 00:54:37 ID:???0

注意
「表示」といった文字列を入れると置換されないので
特に正規表現を使わないのであれば
$key = qr($key);
を
$key = qr(\Q$key\E);
に変更すれば「表示」でも置換可能になります