Changeset 10435 for lang/perl/WebService-Simple/trunk/example

Timestamp:

04/25/08 17:28:20 (7 months ago)

Author:

mattn

Message:

* タブ修正
* 私は自己顕示欲はそれ程強くありませんが...

Files:

• lang/perl/WebService-Simple/trunk/example/flickr_search_liteparser.pl (modified) (1 diff)

lang/perl/WebService-Simple/trunk/example/flickr_search_liteparser.pl

@@ -14 +14 @@
 my $format = 'http://static.flickr.com/${server}/${id}_${secret}_m.jpg';
 for my $photo ($response->parse_response->select_nodes('/rsp/photos/photo')) {
-        my $image = $format;
-        print $image =~ s/\${(\w+)}/$photo->{attributes}->{$1}/ge && "$image\n";
+    my $image = $format;
+    print $image =~ s/\${(\w+)}/$photo->{attributes}->{$1}/ge && "$image\n";
 }