ぜろちゃんねるプラス質問スレ

816 ：0ch+開発担当 ◆0chp.sx.ik ：2013/12/15(日) 12:43:40.07 ID:Bdmv8/Gd0

>>815
  $elem[3] =~ s/<[bh]r>/ /gi;
  $elem[3] =~ s/<[^>]+>//g;
  $elem[3] =~ s/\s+/ /g;
  require Encode;
  $elem[3] = Encode::decode('sjis', $text);
  # 表示範囲内か指定表示ならすべて表示する
  if ($oSYS->GetOption(5) == 1 || length($elem[3]) <= 100) {
    $elem[3] = Encode::encode('sjis', $elem[3]);
  # 表示範囲を超えていたら省略表示をする
  } else {
    $elem[3] = substr($elem[3], 0, 90);
    $elem[3] = Encode::encode('sjis', $elem[3]);
    my $respath = $oConv->CreatePath($oSYS, 'O', $oSYS->Get('BBS'), $oSYS->Get('KEY'), "${n}n");
    $elem[3] = "$elem[3] ...<a href=\"$respath\">省略</a>";
  }
  $Page->Print("<br>\n") if ($n == 1);
  $Page->Print("$n: $elem[3]<br>\n"); # 名前は$elem[0] 日時IDは$elem[2]

動作確認はしていません。