#!/usr/bin/perl
use SOAP::Lite;
use Encode;
use open OUT => ":euc-jp";
my $sfcardfandb = SOAP::Lite -> service("http://www.denno.net/SFCardFan/sfcardfandb.wsdl");
my $areacode = 0;
my $linecode = 1;
my $stationcode = 3;
my $result = $sfcardfandb->getStationName($areacode, $linecode, $stationcode);
print "Content-type: text/html; charset=euc-jp\n\n";
print "SOAP test client\n";
print "\n";
printf("地域コード : %d
\n", $result->{"AreaCode"});
printf("路線コード : %d
\n", $result->{"LineCode"});
printf("駅順コード : %d
\n", $result->{"StationCode"});
printf("会社名 : %s
\n", Encode::encode("euc-jp", $result->{"CompanyName"}));
printf("路線名 : %s
\n", Encode::encode("euc-jp", $result->{"LineName"}));
printf("駅名 : %s
\n", Encode::encode("euc-jp", $result->{"StationName"}));
printf("備考 : %s
\n", Encode::encode("euc-jp", $result->{"Note"}));
print "\n";