my $method = 'zoome.login';
my $apiarg = ({
    mailaddr => 'account@host.com',
    password => 'foo',
});
my $result = $server->call($method, $apiarg);
if ($result->{session}) {
    # login ok
}
else {
    # login error
}

<?xml version="1.0"?>
<methodCall>
<methodName>zoome.login</methodName>
<params>
<param><value><struct>
<member><name>mailaddr</name><value><string>account@host.com</string></value></member>
<member><name>password</name><value><string>foo</string></value></member>
</struct></value>
</param>
</params>
</methodCall>

<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><struct>
<member><name>session</name><value><string>xxxxxxxx</string></value></member>
</struct></value>
</param>
</params>
</methodResponse>

my $method = 'zoome.getUserInfo';
my $apiarg = ({
    zoomeurl => 'zoome',
});
my $result = $server->call($method, $apiarg);
if ($result) {
    printf("zoomeid: %s¥n",$result->{zoomeid});
    printf("zoomeurl: %s¥n",$result->{zoomeurl});
    printf("nickname: %s¥n",$result->{nickname});
    printf("mytitle: %s¥n",$result->{mytitle});
    printf("myurl: %s¥n", $result->{myurl});
    printf("image_small: %s¥n", $result->{imageurl}[0]);
    printf("image_middle: %s¥n", $result->{imageurl}[1]);
    printf("image_large: %s¥n", $result->{imageurl}[2]);
}
else {
    # no data
}

<?xml version="1.0"?>
<methodCall>
<methodName>zoome.getUserInfo</methodName>
<params>
<param><value><struct>
<member><name>zoomeurl</name><value><string>zoome</string></value></member>
</struct></value>
</param>
</params>
</methodCall>

<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><struct>
<member><name>imageurl</name><value><array><data>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value></data></array></value>
</member>
<member><name>mytitle</name><value><string>zoome-kunといっしょ</string></value></member>
<member><name>zoomeid</name><value><i4>1</i4></value></member>
<member><name>nickname</name><value><string>zoome-kun</string></value></member>
<member><name>myurl</name><value><string>http://zoome.jp/zoome/</string></value></member>
<member><name>zoomeurl</name><value><string>zoome</string></value></member>
</struct></value>
</param>
</params>
</methodResponse>

## テーマID指定
my $method = 'zoome.getThemeList';
my $apiarg = ({
    themeid => 1,
});
my $result = $server->call($method, $apiarg);
if ($result) {
    printf(qq{themeid: %d¥n}, $result->{themeid});
    printf(qq{themename: %s¥n}, $result->{themename});
}

## テーマリスト取得
$result = $server->call($method);
for my $row (@{$result}) {
    printf("themeid: %d¥n", $row->{themeid});
    printf("themename: %s¥n", $row->{themename});
}

<?xml version="1.0"?>
<methodCall>
<methodName>zoome.getThemeList</methodName>
<params>
</params>
</methodCall>

<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><array><data>
<value><struct>
<member><name>themeid</name><value><i4>1</i4></value></member>
<member><name>themename</name><value><string>生活・家族</string></value></member>
</struct></value>
<value><struct>
<member><name>themeid</name><value><i4>2</i4></value></member>
<member><name>themename</name><value><string>グルメ・クッキング</string></value></member>
</struct></value>
<value><struct>
<member><name>themeid</name><value><i4>3</i4></value></member>
<member><name>themename</name><value><string>ペット・動物</string></value></member>
</struct></value>
<value><struct>
<member><name>themeid</name><value><i4>4</i4></value></member>
<member><name>themename</name><value><string>健康・スポーツ </struct></value>
<value><struct>
<member><name>themeid</name><value><i4>5</i4></value></member>
<member><name>themename</name><value><string>スクープ・目撃</string></value></member>
</struct></value>
<value><struct>
<member><name>themeid</name><value><i4>6</i4></value></member>
<member><name>themename</name><value><string>パーソナル・日記・ブログ</string></value></member>
</struct></value>
<value><struct>
<member><name>themeid</name><value><i4>7</i4></value></member>
<member><name>themename</name><value><string>友達・仲間・グループ</string></value></member>
</struct></value>
<value><struct>
<member><name>themeid</name><value><i4>8</i4></value></member>
<member><name>themename</name><value><<string>文化・教養</string></value></member>
</struct></value>
<value><struct>
<member><name>themeid</name><value><i4>9</i4></value></member>
<member><name>themename</name><value><string>地域・旅行・レジャー</string></value></member>
</struct></value>
<value><struct>
<member><name>themeid</name><value><i4>10</i4></value></member>
<member><name>themename</name><value><string>趣味・エンタメ</string></value></member>
</struct></value>
<value><struct>
<member><name>themeid</name><value><i4>11</i4></value></member>
<member><name>themename</name><value><string>クルマ・バイク・乗り物</string></value></member>
</struct></value>
<value><struct>
<member><name>themeid</name><value><i4>12</i4></value></member>
<member><name>themename</name><value><string>音楽・芸術・クリエイター</string></value></member>
</struct></value>
</data></array></value>
</param>
</params>
</methodResponse>

use MIME::Base64 qw(encode_base64);

my $method = 'zoome.login';
my $apiarg = ({
    mailaddr => 'account@host.com',
    password => 'foo',
});
my $result = $server->call($method, $apiarg);
if (!$result->{session}) {
    exit;
}
my $session = $result->{session};

$method = 'zoome.newPost';
my $title = 'うちのワンコ';
my $body = '今日も元気です！';
my $themeid = 3;
my @tagname = ('日記', 'ペット', 'ワンコ');
my $publictype = 'all';
my $iscomment = 1;
my $isvote = 1;
my $istagpaste = 1;

my $movie_bin = undef;
my $movie_file = 'sample.avi'; # 動画ファイルを指定
my $movie_size = (-s $movie_file);
open(IN, $movie_file);
binmode(IN);
sysread(IN, $movie_bin, $movie_size);
close(IN);
my $movie = ({
    bin => $server->base64(encode_base64($movie_bin)),
    suffix => $movie_file,
});

my $image1_bin = undef;
my $image1_file = 'sample.jpg'; # 画像ファイルを指定
my $image1_size = (-s $image1_file);
open(IN, $image1_file);
binmode(IN);
sysread(IN, $image1_bin, $image1_size);
close(IN);
my $image1 = ({
    bin => $server->base64(encode_base64($image1_bin)),
    suffix => $image1_file,
});

$apiarg = ({
    session => $session,
    title => $title,
    body => $body,
    themeid => $themeid,
    tagname => \@tagname,
    publictype => $publictype,
    iscomment => $server->boolean($iscomment),
    isvote => $server->boolean($isvote),
    istagpaste => $server->boolean($istagpaste),
    movie => $movie,
    image1 => $image1,
#    image2 => $image2,
#    image3 => $image3,
});
$result = $server->call($method, $apiarg);
if ($result->{diaryid}) {
    ## 投稿成功
    printf("diaryid: %d\n", $result->{diaryid});
}
else {
    ## 投稿失敗
    printf("error: %s\n", $result->{error});
}

<?xml version="1.0"?>
<methodCall>
<methodName>zoome.newPost</methodName>
<params>
<param><value><struct>
<member><name>iscomment</name><value><boolean>1</boolean></value>
</member>
<member><name>publictype</name><value><string>all</string></value></member>
<member><name>body</name><value><string>今日も元気です！</string></value></member>
<member><name>istagpaste</name><value><boolean>1</boolean></value>
</member>
<member><name>image1</name><value><struct>
<member><name>bin</name><value><base64>/9j/4AAQSkZJRgABAgAAZABkAAD/7AARRHVja3
kAAQAEAAAAZAAA/+IMVElDQ19QUk9GSUxFAAEB
AAAMRFVDQ00CQAAAbW50clJHQiBYWVogB9MABAAEAAAAAAAAYWNzcE1TRlQAAAAAQ0FOT
1owMDkA
...画像1ファイルです。省略します。
</base64></value>
</member>
<member><name>suffix</name><value><string>sample.jpg</string></value></member>
</struct></value>
</member>
<member><name>movie</name><value><struct>
<member><name>bin</name><value><base64>AAAAHGZ0eXBtbXA0AAAAAW1tcDQzZ3A1M2dwN
AAAHXxtb292AAAAbG12aGQAAAAAwnLs7sJy7O4A
AAJYAAA/5gABAAABAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA
AAAAAAAAAEAA
...動画ファイルです。省略します。
</base64></value>
</member>
<member><name>suffix</name><value><string>sample.avi</string></value></member>
</struct></value>
</member>
<member><name>isvote</name><value><boolean>1</boolean></value>
</member>
<member><name>session</name><value><string>xxxxxxxxxxxxx</string></value></member>
<member><name>themeid</name><value><i4>3</i4></value></member>
<member><name>title</name><value><string>うちのワンコ</string></value></member>
<member><name>tagname</name><value><array><data>
<value><string>日記</string></value><value><string>ペット</string></value><value><string>ワンコ</string></value></data></array></value>
</member>
</struct></value>
</param>
</params>
</methodCall>

<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><struct>
<member><name>diaryid</name><value><i4>5</i4></value></member>
<member><name>error</name><value><string></string></value></member>
</struct></value>
</param>
</params>
</methodResponse>

my $method = 'zoome.login';
my $apiarg = ({
    mailaddr => 'account@host.com',
    password => 'foo',
});
my $result = $server->call($method, $apiarg);
if (!$result->{session}) {
    exit;
}
my $session = $result->{session};

$method = 'zoome.deletePost';
$apiarg = ({
    session => $session,
    diaryid => 5,
});
$result = $server->call($method, $apiarg);
if ($result->{status}) {
    ## 削除成功
}
else {
    ## 削除失敗
    printf("error: %s\n", $result->{error});
}

<?xml version="1.0"?>
<methodCall>
<methodName>zoome.deletePost</methodName>
<params>
<param><value><struct>
<member><name>diaryid</name><value><i4>5</i4></value></member>
<member><name>session</name><value><string>xxxxxxxxxx</string></value></member>
</struct></value>
</param>
</params>
</methodCall>

<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><struct>
<member><name>status</name><value><i4>1</i4></value></member>
<member><name>error</name><value><string></string></value></member>
</struct></value>
</param>
</params>
</methodResponse>

my $method = 'zoome.getDiaryInfo';
my $apiarg = ({
    zoomeid => 31,
    diaryid => 37,
});
my $result = $server->call($method, $apiarg);
if ($result) {
    printf("diaryid: %d¥n",$result->{diaryid});
    printf("title: %s¥n",$result->{title});
    printf("body: %s¥n",$result->{body});
    printf("themeid: %d¥n",$result->{themeid});
    printf("tagname: %s¥n","@{$result->{tagname}}");
    printf("publictype: %s¥n",$result->{publictype});
    printf("iscomment: %d¥n",$result->{iscomment}->value);
    printf("isvote: %d¥n",$result->{isvote}->value);
    printf("istagpaste: %d¥n",$result->{istagpaste}->value);
    printf("imageurl1: %s¥n","@{$result->{imageurl1}}");
    printf("imageurl2: %s¥n","@{$result->{imageurl2}}");
    printf("imageurl3: %s¥n","@{$result->{imageurl3}}");
    printf("externalplayer: %s¥n", $result->{externalplayer});
    printf("cntview: %d¥n",$result->{cntview});
    printf("diaryurl: %s¥n",$result->{diaryurl});
    printf("registtime: %s¥n",$result->{registtime}->value);
}

<?xml version="1.0"?>
<methodCall>
<methodName>zoome.getDiaryInfo</methodName>
<params>
<param><value><struct>
<member><name>zoomeid</name><value><i4>31</i4></value></member>
<member><name>diaryid</name><value><i4>37</i4></value></member>
</struct></value>
</param>
</params>
</methodCall>

<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><struct>
<member><name>imageurl1</name><value><array><data>
<value><string>http://img.zoome.jp/img1/xxxxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxxxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxxxx.jpg</string></value></data></array></value>
</member>
<member><name>iscomment</name><value><boolean>0</boolean></value>
</member>
<member><name>body</name><value><string>本文</string></value></member>
<member><name>diaryid</name><value><i4>37</i4></value></member>
<member><name>themeid</name><value><i4>1</i4></value></member>
<member><name>registtime</name><value><dateTime.iso8601>2007-08-01 13:10:05</dateTime.iso8601></value>
</member>
<member><name>cntview</name><value><i4>21</i4></value></member>
<member><name>publictype</name><value><string>all</string></value></member>
<member><name>externalplayer</name><value><string></string></value></member>
<member><name>imageurl2</name><value><array><data>
<value><string>http://img.zoome.jp/img1/xxxxx.jpg</string></value>
<value><string>http://img.zoome.jp/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value></data></array></value>
</member>
<member><name>diaryurl</name><value><string>http://zoome.jp/info/diary/37</string></value>
</member>
<member><name>istagpaste</name><value><boolean>1</boolean></value>
</member>
<member><name>imageurl3</name><value><array><data>
<value><string>http://img.zoome.jp/img1/xxx.jp</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value></data></array></value>
</member>
<member><name>isvote</name><value><boolean>1</boolean></value>
</member>
<member><name>title</name><value><string>タイトル</string></value></member>
<member><name>tagname</name><value><array><data>
<value><string>タグ1</string></value><value><string>タグ2</string></value><value><string>タグ3</string></value><value><string>タグ4</string></value></data></array></value>
</member>
</struct></value>
</param>
</params>
</methodResponse>

my $method = 'zoome.getDiaryList';
my $apiarg = ({
    zoomeid => 1,
    length => 3,
});
my $result = $server->call($method, $apiarg);
if ($result->{count}) {
    printf(qq{count: %d\n}, $result->{count});
    for my $row (@{$result->{list}}) {
        printf("diaryid: %d¥n", $row->{diaryid});
        printf("title: %s¥n", $row->{title});
        printf("body: %s¥n", $row->{body});
        printf("themeid: %d¥n", $row->{themeid});
        printf("tagname: %s¥n", "@{$row->{tagname}}");
        printf("publictype: %s¥n", $row->{publictype});
        printf("iscomment: %d¥n", $row->{iscomment}->value);
        printf("isvote: %d¥n", $row->{isvote}->value);
        printf("istagpaste: %d¥n", $row->{istagpaste}->value);
        printf("imageurl1: %s¥n", "@{$row->{imageurl1}}");
        printf("imageurl2: %s¥n", "@{$row->{imageurl2}}");
        printf("imageurl3: %s¥n", "@{$row->{imageurl3}}");
        printf("externalplayer: %s¥n", $row->{externalplayer});
        printf("cntview: %d¥n", $row->{cntview});
        printf("diaryurl: %s¥n", $row->{diaryurl});
        printf("registtime: %s¥n", $row->{registtime}->value);
    }
}

<?xml version="1.0"?>
<methodCall>
<methodName>zoome.getDiaryList</methodName>
<params>
<param><value><struct>
<member><name>zoomeid</name><value><i4>1</i4></value></member>
<member><name>length</name><value><i4>3</i4></value></member>
</struct></value>
</param>
</params>
</methodCall>

<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><struct>
<member><name>count</name><value><i4>61</i4></value></member>
<member><name>list</name><value><array><data>
<value><struct>
<member><name>imageurl1</name><value><array><data>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value></data></array></value>
</member>
<member><name>iscomment</name><value><boolean>1</boolean></value>
</member>
<member><name>body</name><value><string>本文1</string></value></member>
<member><name>diaryid</name><value><i4>81</i4></value></member>
<member><name>themeid</name><value><i4>3</i4></value></member>
<member><name>registtime</name><value><dateTime.iso8601>2007-10-18 19:01:52</dateTime.iso8601></value>
</member>
<member><name>cntview</name><value><i4>2</i4></value></member>
<member><name>publictype</name><value><string>all</string></value></member>
<member><name>externalplayer</name><value><string></string></value></member>
<member><name>imageurl2</name><value><array><data>
</data></array></value>
</member>
<member><name>diaryurl</name><value><string>http://zoome.jp/zoome/diary/81</string></value>
</member>
<member><name>istagpaste</name><value><boolean>1</boolean></value>
</member>
<member><name>imageurl3</name><value><array><data>
</data></array></value>
</member>
<member><name>isvote</name><value><boolean>1</boolean></value>
</member>
<member><name>title</name><value><string>件名1</string></value></member>
<member
2;<name>tagname</name><value><array><data> <value><string>日記</string></value>
<value><string>ペット</string></value><value><string>ワンコ
</string></value></data></array></value>
</member>
</struct></value>
<value><struct>
<member><name>imageurl1</name><value><array><data>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value></data></array></value>
</member>
<member><name>iscomment</name><value><boolean>0</boolean></value>
</member>
<member><name>body</name><value><string>本文2</string></value></member>
<member><name>diaryid</name><value><i4>79</i4></value></member>
<member><name>themeid</name><value><i4>7</i4></value></member>
<member><name>registtime</name><value><dateTime.iso8601>2007-10-12 16:35:32</dateTime.iso8601></value>
</member>
<member><name>cntview</name><value><i4>21</i4></value></member>
<member><name>publictype</name><value><string>all</string></value></member>
<member><name>externalplayer</name><value><string></string></value></member>
<member><name>imageurl2</name><value><array><data>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value></data></array></value>
</member>
<member><name>diaryurl</name><value><string>http://zoome.jp/zoome/diary/79</string></value>
</member>
<member><name>istagpaste</name><value><boolean>1</boolean></value>
</member>
<member><name>imageurl3</name><value><array><data>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value></data></array></value>
</member>
<member><name>isvote</name><value><boolean>1</boolean></value>
</member>
<member><name>title</name><value><string>タイトル2</string></value></member>
<member><name>tagname</name><value><array><data>
<value><string>タグ1</string></value><value><string>タグ2</string></value><value><string>
タグ3</string></value><value><string>タグ4</string></value></data></array></value>
</member>
</struct></value>
<value><struct>
<member><name>imageurl1</name><value><array><data>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value></data></array></value>
</member>
<member><name>iscomment</name><value><boolean>1</boolean></value>
</member>
<member><name>body</name><value><string>本文3</string></value></member>
<member><name>diaryid</name><value><i4>78</i4></value></member>
<member><name>themeid</name><value><i4>7</i4></value></member>
<member><name>registtime</name><value><dateTime.iso8601>2007-10-12 16:19:42</dateTime.iso8601></value>
</member>
<member><name>cntview</name><value><i4>8</i4></value></member>
<member><name>publictype</name><value><string>all</string></value></member>
<member><name>externalplayer</name><value><string></string></value></member>
<member><name>imageurl2</name><value><array><data>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value></data></array></value>
</member>
<member><name>diaryurl</name><value><string>http://zoome.jp/zoome/diary/78</string></value>
</member>
<member><name>istagpaste</name><value><boolean>0</boolean></value>
</member>
<member><name>imageurl3</name><value><array><data>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/img1/xxx.jpg</string></value></data></array></value>
</member>
<member><name>isvote</name><value><boolean>1</boolean></value>
</member>
<member><name>title</name><value><string>タイトル3</string></value></member>
<member><name>tagname</name><value><array><data>
<value><string>タグ1</string></value><value><string>タグ2</string></value><value><string>
タグ3</string></value><value><string>タグ4</string></value></data></array></value>
</member>
</struct></value>
</data></array></value>
</member>
</struct></value>
</param>
</params>
</methodResponse>

my $method = 'zoome.getMovieInfo';
my $apiarg = ({
    zoomeid => 1,
    diaryid => 14,
});
my $result = $server->call($method, $apiarg);
if ($result) {
    printf("diaryid: %d¥n", $result->{diaryid});
    printf("status: %s¥n", $result->{status});
    printf("playtime: %s¥n", $result->{playtime});
    printf("thumburl: %s¥n", "@{$result->{thumburl}}");
    printf("cntmyclip: %d¥n", $result->{cntmyclip});
    printf("cntvoteok: %d¥n", $result->{cntvoteok});
    printf("cntvoteng: %d¥n", $result->{cntvoteng});
    printf("pastehtml: %s¥n", $result->{pastehtml});
    printf("pasteblog: %s¥n", $result->{pasteblog});
}

<?xml version="1.0"?>
<methodCall>
<methodName>zoome.getMovieInfo</methodName>
<params>
<param><value><struct>
<member><name>zoomeid</name><value><i4>1</i4></value></member>
<member><name>diaryid</name><value><i4>14</i4></value></member>
</struct></value>
</param>
</params>
</methodCall>

<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><struct>
<member><name>pastehtml</name><value><string>&lt;script type=&quot;text/javascript&quot;
src=&quot;http://www.zoome.jp/swfwrite?param=xxxxx&quot;&gt;&lt;/script&gt;</string></value></member>
<member><name>cntvoteng</name><value><i4>26</i4></value></member>
<member><name>status</name><value><string>encoded</string></value></member>
<member><name>pasteblog</name><value><string>&lt;script type=&quot;text/javascript&quot;
src=&quot;http://www.zoome.jp/swfblog?param=xxxxx&quot;&gt;&lt;/script&gt;</string></value></member>
<member><name>diaryid</name><value><i4>14</i4></value></member>
<member><name>cntmyclip</name><value><i4>3</i4></value></member>
<member><name>cntvoteok</name><value><i4>34</i4></value></member>
<member><name>playtime</name><value><string>00:30</string></value></member>
<member><name>thumburl</name><value><array><data>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value></data></array></value>
</member>
</struct></value>
</param>
</params>
</methodResponse>

my $method = 'zoome.getMovieList';
my $apiarg = ({
    zoomeid => 1,
    length => 3,
});
my $result = $server->call($method, $apiarg);
if ($result->{count}) {
    printf("count: %d¥n", $result->{count});
    for my $row (@{$result->{list}}) {
        printf("diaryid: %d¥n", $row->{diaryid});
        printf("status: %s¥n", $row->{status});
        printf("playtime: %s¥n", $row->{playtime});
        printf("thumburl: %s¥n", "@{$row->{thumburl}}");
        printf("cntmyclip: %d¥n", $row->{cntmyclip});
        printf("cntvoteok: %d¥n", $row->{cntvoteok});
        printf("cntvoteng: %d¥n", $row->{cntvoteng});
        printf("pastehtml: %s¥n", $row->{pastehtml});
        printf("pasteblog: %s¥n", $row->{pasteblog});
    }
}

<?xml version="1.0"?>
<methodCall>
<methodName>zoome.getMovieList</methodName>
<params>
<param><value><struct>
<member><name>zoomeid</name><value><i4>1</i4></value></member>
<member><name>length</name><value><i4>3</i4></value></member>
</struct></value>
</param>
</params>
</methodCall>

<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><struct>
<member><name>count</name><value><i4>30</i4></value></member>
<member><name>list</name><value><array><data>
<value><struct>
<member><name>pastehtml</name><value><string>&lt;script type=&quot;text/javascript&quot;
src=&quot;http://www.zoome.jp/swfwrite?param=xxx&quot;&gt;&lt;/script&gt;</string></value></member>
<member><name>cntvoteng</name><value><i4>0</i4></value></member>
<member><name>status</name><value><string>encoded</string></value></member>
<member><name>pasteblog</name><value><string>&lt;script type=&quot;text/javascript&quot;
src=&quot;http://www.zoome.jp/swfblog?param=xxx&quot;&gt;&lt;/script&gt;</string></value></member>
<member><name>diaryid</name><value><i4>81</i4></value></member>
<member><name>cntmyclip</name><value><i4>0</i4></value></member>
<member><name>cntvoteok</name><value><i4>0</i4></value></member>
<member><name>playtime</name><value><string>00:27</string></value></member>
<member><name>thumburl</name><value><array><data>
<value><string>http://mov.zoome.jp/mov1/xxx.jp</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value></data></array></value>
</member>
</struct></value>
<value><struct>
<member><name>pastehtml</name><value><string>&lt;script type=&quot;text/javascript&quot;
src=&quot;http://www.zoome.jp/swfwrite?param=xxx&quot;&gt;&lt;/script&gt;</string></value></member>
<member><name>cntvoteng</name><value><i4>5</i4></value></member>
<member><name>status</name><value><string>encoded</string></value></member>
<member><name>pasteblog</name><value><string>&lt;script type=&quot;text/javascript&quot;
src=&quot;http://www.zoome.jp/swfblog?param=xxx&quot;&gt;&lt;/script&gt;</string></value></member>
<member><name>diaryid</name><value><i4>79</i4></value></member>
<member><name>cntmyclip</name><value><i4>3</i4></value></member>
<member><name>cntvoteok</name><value><i4>10</i4></value></member>
<member><name>playtime</name><value><string>02:08</string></value></member>
<member><name>thumburl</name><value><array><data>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value></data></array></value>
</member>
</struct></value>
<value><struct>
<member><name>pastehtml</name><value><string></string></value></member>
<member><name>cntvoteng</name><value><i4>15</i4></value></member>
<member><name>status</name><value><string>encoded</string></value></member>
<member><name>pasteblog</name><value><string></string></value></member>
<member><name>diaryid</name><value><i4>78</i4></value></member>
<member><name>cntmyclip</name><value><i4>1</i4></value></member>
<member><name>cntvoteok</name><value><i4>0</i4></value></member>
<member><name>playtime</name><value><string>02:08</string></value></member>
<member><name>thumburl</name><value><array><data> <value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://mov.zoome.jp/mov1/xxx.jpg</string></value></data></array></value>
</member>
</struct></value>
</data></array></value>
</member>
</struct></value>
</param>
</params>
</methodResponse>

my $method = 'zoome.tagSearch';
my $apiarg = ({
    tagname => '日記 ワンコ ペット',
    length => 3,
});
my $result = $server->call($method, $apiarg);
if ($result->{count}) {
    printf("count: %d¥n", $result->{count});
    for my $row (@{$result->{list}}) {
        printf("zoomeid: %d¥n", $row->{zoomeid});
        printf("diaryid: %d¥n", $row->{diaryid});
        printf("title: %s¥n", $row->{title});
        printf("body: %s¥n", $row->{body});
        printf("diaryurl: %s¥n", $row->{diaryurl});
        printf("mypageurl: %s¥n", $row->{mypageurl});
        printf("thumburl: %s¥n", "@{$row->{thumburl}}");
        printf("nickname: %s¥n", $row->{nickname});
        printf("playtime: %s¥n", $row->{playtime});
        printf("tagname: %s¥n", "@{$row->{tagname}}");
        printf("cntview: %d¥n", $row->{cntview});
        printf("registtime: %s¥n", $row->{registtime}->value);
    }
}

<?xml version="1.0"?>
<methodCall>
<methodName>zoome.tagSearch</methodName>
<params>
<param><value><struct>
<member><name>length</name><value><i4>3</i4></value></member>
<member><name>tagname</name><value><string>日記 ワンコ ペット</string></value></member>
</struct></value>
</param>
</params>
</methodCall>

<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><struct>
<member><name>count</name><value><i4>974</i4></value></member>
<member><name>list</name><value><array><data>
<value><struct>
<member><name>zoomeid</name><value><i4>1</i4></value></member>
<member><name>registtime</name><value><dateTime.iso8601>2007-10-17 19:21:56</dateTime.iso8601></value>
</member>
<member><name>nickname</name><value><string>zoome-kun</string></value></member>
<member><name>cntview</name><value><i4>8</i4></value></member>
<member><name>mypageurl</name><value><string>http://zoome.jp/zoome/</string></value></member>
<member><name>diaryurl</name><value><string>http://zoome.jp/zoome/diary/10</string></value>
</member>
<member><name>body</name><value><string>本文1</string></value></member>
<member><name>diaryid</name><value><i4>10</i4></value></member>
<member><name>title</name><value><string>タイトル1</string></value></member>
<member><name>playtime</name><value><string>01:05</string></value></member>
<member><name>thumburl</name><value><array><data>
<value><string>http://img.zoome.jp/mov1/diary/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/mov1/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/mov1/diary/xxx.jpg</string></value></data></array></value>
</member>
<member><name>tagname</name><value><array><data>
<value><string>タグ1</string></value><value><string>タグ2</string></value><value><string>
タグ3</string></value><value><string>タグ4</string></value></data></array></value>
</member>
</struct></value>
<value><struct>
<member><name>zoomeid</name><value><i4>31</i4></value></member>
<member><name>registtime</name><value><dateTime.iso8601>2007-09-26 12:07:42</dateTime.iso8601></value>
</member>
<member><name>nickname</name><value><string>zoomeおしらせ</string></value></member>
<member><name>cntview</name><value><i4>33</i4></value></member>
<member><name>mypageurl</name><value><string>http://zoome.jp/info/</string></value></member>
<member><name>diaryurl</name><value><string>http://zoome.jp/info/diary/1</string></value></member>
<member><name>body</name><value><string>本文2</string></value></member>
<member><name>diaryid</name><value><i4>1</i4></value></member>
<member><name>title</name><value><string>タイトル2</string></value></member>
<member><name>playtime</name><value><string></string></value></member>
<member><name>thumburl</name><value><array><data>
<value><string>http://www.zoome.jp/img/nomovie3.jpg</string></value>
<value><string>http://www.zoome.jp/img/nomovie3.jpg</string></value>
<value><string>http://www.zoome.jp/img/nomovie3.jpg</string></value>
<value><string>http://www.zoome.jp/img/nomovie3.jpg</string></value></data></array></value>
</member>
<member><name>tagname</name><value><array><data>
<value><string>テスト</string></value><value><string>ペット</string></value><value><string>
タグ3</string></value><value><string>タグ4</string></value></data></array></value> </member>
</struct></value>
<value><struct>
<member><name>zoomeid</name><value><i4>1</i4></value></member>
<member><name>registtime</name><value><dateTime.iso8601>2007-09-20 11:05:16</dateTime.iso8601></value>
</member>
<member><name>nickname</name><value><string>zoome-kun</string></value></member>
<member><name>cntview</name><value><i4>73</i4></value></member>
<member><name>mypageurl</name><value><string>http://zoome.jp/zoome/</string></value></member>
<member><name>diaryurl</name><value><string>http://zoome.jp/zoome/diary/46</string></value>
</member>
<member><name>body</name><value><string>本文3</string></value></member>
<member><name>diaryid</name><value><i4>46</i4></value></member>
<member><name>title</name><value><string>タイトル3</string></value></member>
<member><name>playtime</name><value><string></string></value></member>
<member><name>thumburl</name><value><array><data>
<value><string>http://img.zoome.jp/mov1/diary/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/mov1/diary/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/mov1/diary/xxx.jpg</string></value>
<value><string>http://img.zoome.jp/mov1/diary/xxx.jpg</string></value></data></array></value>
</member>
<member><name>tagname</name><value><array><data>
<value><string>test</string></value><value><string>テスト</string></value><value><string>
日記</string></value><value><string>タグ4</string></value></data></array></value>
</member>
</struct></value>
</data></array></value>
</member>
</struct></value>
</param>
</params>
</methodResponse>