21 野に咲く名無し@転載禁止 2023/10/04 13:49:22 ID:H94yjEq4
noribenの正規表現での一致対象が見てて面白い
# noriben
my $noriben = $Threads->GetAttr($threadid, 'noriben') || 0;
$noriben = 1 if $tt =~ /\s\[海苔\]/;
if ($noriben && !$capID && !$isowner)
$msg =~ s/(?:(?:安|&#(?:023433|x05b89);).(?:\x94\x7b|部|&#(?:0(?:20493|37096)|x0(?:500d|90e8));).)?(?:晋|普|&#(?:0(?:26187|26222)|x0(?:664b|666e));).(?:三|3|&#(?:0(?:19977|51)|x0(?:4e09|33));)/【████】/gi;
$msg =~ s/(?:晋|普|&#(?:0(?:26187|26222)|x0(?:664b|666e));).さん.どうして/【████】/gi;
$msg =~ s/ア.ベ.シ.ン.ゾ(?:.ウ)?|あ.べ.し.ん.ぞ(?:.う)?|シ.ン.ゾ.ア.ベ|ｱ.ﾍﾞ.ｼ.ﾝ.ｿﾞ(?:.ｳ)?|ｼ.ﾝ.ｿﾞ.ｱ.ﾍﾞ|a.?b.?e.?s.?(?:h.?)?i.?n.?z.?o.?u?/【████】/gi;
$msg =~ s/紫.雲.院.殿.政.(?:誉|譽).清.浄.晋.寿.大.居.(?:士|土)/【████】/gi;
$msg =~ s/(?:晋|普|&#(?:0(?:26187|26222)|x0(?:664b|666e));).さん.どうして/【████】/gi;
$msg =~ s/ま.(?:あ|ぁ).い.い.ん.そ.う.(:い|ゆ).う.の|マ.(?:ア|ァ).イ.イ.ン.ソ.ウ.(:イ|ユ).ウ.ノ/【████】/gi;
$msg =~ s/(?:意味の(?:な|無)い|(?:バカ|馬鹿)みたいな).{0,32(?:いつも)?/【████】/gi;
$msg =~ s/(?:下|くだ)らない.終.また/【████】/gi;
$msg =~ s/(?:早|はや)く.しろよ/【████】/gi;
$msg =~ s/こんな.ける(?:訳|わけ)には.ない/【████】/gi;
$msg =~ s/非常に(?:し|ひ)つこい/【████】/gi;
$msg =~ s/いわばまさに/【████】/gi;
$msg =~ s/だから.てるじゃないか/【████】/gi;
$msg =~ s/そんなに興奮しないでください/【████】/gi;
$msg =~ s/これはちょっと.くらい.分かることだと思いますよ/【████】/gi;
$msg =~ s/これは.随分.辛口だ/【████】/gi;
$msg =~ s/みっともない.はっきり.て/【████】/gi;
$msg =~ s/理由を.えるのではなく/【████】/gi;
$msg =~ s/いい.ですから.前に進めてください/【████】/gi;
$msg =~ s/\x83\x60\x83\x87\x81\x5b\x83\x5b\x83\x6f/【████】/gi;
$msg =~ s/(?:晋|&#(?:026187|x0664b);)/【████】/gi;
$msg =~ s/[<]/【████】/gi;
$msg =~ s/!(?:rmj|randmoji)[<]*/【████】/gi;
$Form->Set('MESSAGE', $msg);
}