【雪だるま】bbsd⇔各cgi間のI/F仕様について考え・詰めていくスレッド

[252 ▲ ◆cZfSunOs.U 2005/11/30(水) 20:40:39 ID:0+e07y/o0]

まぁ手をかけるといっても数行程度ですが......

use LWP::UserAgent;
my $ua = LWP::UserAgent->new(agent => '', timeout => 5);
my $res = $ua->get("http://localhost/$GB->;{'FORM'}->{'bbs'}/dat/$GB->{'FORM'}->{'key'}.dat", Host => $ENV{'SERVER_NAME'});
if ($res->is_error) {
    DispError2($GB, 'ＥＲＲＯＲ！', 'ＥＲＲＯＲ：>>1取得失敗');
}
my $firstlog = (split(/\n/, $res->content, 2))[0];