ぜろちゃんねるプラス プラグイン総合

166 ：名無しさん＠ぜろちゃんねるプラス：2014/07/10(木) 20:05:05.15 ID:kLoPI1k40

すみません、ものすごく初歩的な部分であると思うのですが、
セッションバージョンの個人のレスカウンタを、てすととしてすこしいじり、下記のように改変を行いました
Perl自体に慣れていないところが大きいため、そもそも質問のレベルが低いとは思いますが、お時間のあるときに問題点をお教えいただけると幸いです


記

# 名前欄取得
#my $name = $Form->Get('FROM');

# 名前欄書き換え
if($count < 10){$name =~ s|!lv|</b>【てすとー】<b>|g;}
elseif($count == 10){$name =~ s|!lv|</b>【てすとーなんだぜー】<b>|g;}
else{
my $name = $Form->Get('FROM');$name =~ s|!lv|</b>【テストっていっとろうが】<b>|g;};

# 名前欄再設定
$Form->Set('FROM', $name);