Show
Ignore:
Timestamp:
04/24/08 13:22:15 (7 months ago)
Author:
yusukebe
Message:

example を修正、そろそろCPANにあげる

Location:
lang/perl/WebService-Simple/trunk/example
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/WebService-Simple/trunk/example/flickr_echo.pl

    r8681 r10275  
    22use warnings; 
    33use WebService::Simple; 
    4 use Cache::File; 
     4use Data::Dumper; 
    55 
    6 my $api_key = "your_api_key"; 
    7 my $cache   = Cache::File->new( 
    8     cache_root      => '/tmp/mycache', 
    9     default_expires => '30 min', 
    10 ); 
     6my $api_key = $ARGV[0] || "your_api_key"; 
    117 
    128my $flickr = WebService::Simple->new( 
    139    base_url => "http://api.flickr.com/services/rest/", 
    14     cache    => $cache, 
    1510    param    => { api_key => $api_key, } 
    1611); 
    … …  
    1813my $response = 
    1914  $flickr->get( { method => "flickr.test.echo", name => "value" } ); 
    20 my $ref = $response->parse_xml; 
    21 print $ref->{name} . "\n"; 
     15my $ref = $response->parse_response; 
     16print Dumper $ref; 

  • lang/perl/WebService-Simple/trunk/example/flickr_search.pl

    r8742 r10275  
    22use warnings; 
    33use WebService::Simple; 
    4 use YAML; 
     4use Data::Dumper; 
    55use utf8; 
    66binmode STDOUT, ":utf8"; 
    77 
    8 my $api_key = "your_api_key"; 
     8my $api_key = $ARGV[0] || "your_api_key"; 
    99 
    1010my $flickr = WebService::Simple->new( 
    … …  
    1414 
    1515my $response = 
    16   $flickr->get( { method => "flickr.photos.search", text => "富士山" } ); 
    17 print Dump $response->parse_xml; 
     16  $flickr->get( { method => "flickr.photos.search", text => "cat" } ); 
     17print Dumper $response->parse_response; 

  • lang/perl/WebService-Simple/trunk/example/lingr.pl

    r10071 r10275  
    33use WebService::Simple; 
    44 
    5 my $api_key  = "your_api_key"; 
    6 my $room_id  = "hO4SmQWTdJ4"; # http://www.lingr.com/room/hO4SmQWTdJ4 
     5my $api_key = $ARGV[0] || "your_api_key"; 
     6my $room_id = "hO4SmQWTdJ4";    # http://www.lingr.com/room/hO4SmQWTdJ4 
    77my $nickname = "lingr.pl"; 
    8 my $message  = $ARGV[0] || "Hello, World."; 
     8my $message  = "Hello, World."; 
    99 
    1010my $lingr = WebService::Simple->new( 
    … …  
    2121$response = $lingr->get( 
    2222    'api/room/enter', 
    23                     { 
     23    { 
    2424        session  => $session, 
    2525        id       => $room_id, 
    … …  
    3232$response = $lingr->get( 
    3333    'api/room/say', 
    34                     { 
     34    { 
    3535        session => $session, 
    3636        ticket  => $ticket, 
    … …  
    4141 
    4242# destroy session 
    43 $lingr->get( 'api/session/destroy' , { session => $session, } ); 
     43$lingr->get( 'api/session/destroy', { session => $session, } );