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

36 ：0ch+開発担当 ◆0chp.sx.ik ：2014/03/09(日) 12:30:13.81 ID:RJ1LJpta0

>>33
こんな感じで取得できます(未確認ですが)。
  require 'module/gondor.pl';
  my $datpath = $Sys->Get('DATPATH');
  my $readonly = 1;
  my $Thread = ARAGORN->new();
  $Thread->Load($Sys, $datpath, $readonly);
  $Thread->Close();
 
  my $res1 = $Thread->Get(0);
  my ($name1, $mail1, $info1, $text1, $title) = split /<>/, $res1;
  my $res2 = $Thread->Get(1);
  my ($name2, $mail2, $info2, $text2, undef) = split /<>/, $res2;