0

私は、リモート ファイル システムからプレーン データを取得する純粋な perl サービス クラス PlainData を持っています。テキストとステータス フラグ (エラー、警告) を生成するパッケージ PlainData。どうすればそれを perl mason Web コンテキストに (配置、リンク) できますか。私はこのようなことをします:

<%init>
use PlainData;
my $stn = $ARGS{"STN"};
my $yr  = $ARGS{"YR"};
my $mo  = $ARGS{"MO"};
my $dy  = $ARGS{"DY"};
...do something with $stn,$yr,$mo,$dy,
my $plainDataHandler = new PlainData(); 
my ($status, $text) = $plainDtaHandler->listStationsByDay( $stn, $yr, $mo, $dy); 
if ($status>10) {
  print "<h1>ERROR REQUEST DATA STATIONS</h1>\n";
  print $text;
} else {
  print $text;
}
</%init>

私も試してみました

my $plainDataHandler = $m->comp('/var/perl/PlainData.pm');
4

1 に答える 1