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

796 ：0ch+開発担当 ◆0chp.sx.ik ：2013/12/13(金) 20:43:06.96 ID:PQ9ZGH3B0

>>792,794
これでどうでしょうか。
  $Page->Print("<a href=\"$path\">$i: $name($res)</a><br>\n");
  if (open(my $fh, '<', "$basePath/dat/$key.dat")) {
    my @lines = <$fh>;
    close($fh);
    require Encode;
    for my $n ($#lines-2 .. $#lines) {
      next if ($n < 0);
      my $text = (split(/<>/, $lines[$n], -1))[3];
      $text =~ s/<[bh]r>/ /gi;
      $text =~ s/<[^>]+>//g;
      $text =~ s/\s+/ /g;
      $text = Encode::decode('sjis', $text);
      $text = substr($text, 0, 100);
      $text = Encode::encode('sjis', $text);
      $n++;
      $Page->Print("&nbsp; $n: $text<br>\n");
    }
  }
  #$Page->Print("<br> \n");