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

802 ：0ch+開発担当 ◆0chp.sx.ik ：2013/12/14(土) 11:41:58.49 ID:DQFXFJcS0

>>801
      my $text = (split(/<>/, $lines[$n], -1))[3];
を
      my (undef, undef, $date, $text) = split(/<>/, $lines[$n], -1);
      $date = $& if ($date =~ /^[^ ]+ [^ ]+/);
のようにすれば日付部分が取り出せます