2.2. Perl の例

以下の例では、system.listUserSystems コールを使って、ユーザーがアクセスできるシステム一覧を取得しています。この例では、各システム名をプリントします。Frontier::Client Perl モジュールは、perl-Frontier-RPC RPM ファイル内にあります。
#!/usr/bin/perl
use Frontier::Client;

my $HOST = 'satellite.example.com';
my $user = 'username';
my $pass = 'password';

my $client = new Frontier::Client(url => "http://$HOST/rpc/api");
my $session = $client->call('auth.login',$user, $pass);

my $systems = $client->call('system.listUserSystems', $session);
foreach my $system (@$systems) {
   print $system->{'name'}."\n";
}
$client->call('auth.logout', $session);

このページには機械翻訳が使用されている場合があります (詳細はこちら)。