Changeset 10435 for lang/perl/WebService-Simple/trunk/example
- Timestamp:
- 04/25/08 17:28:20 (7 months ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
lang/perl/WebService-Simple/trunk/example/flickr_search_liteparser.pl
r10434 r10435 14 14 my $format = 'http://static.flickr.com/${server}/${id}_${secret}_m.jpg'; 15 15 for my $photo ($response->parse_response->select_nodes('/rsp/photos/photo')) { 16 my $image = $format;17 print $image =~ s/\${(\w+)}/$photo->{attributes}->{$1}/ge && "$image\n";16 my $image = $format; 17 print $image =~ s/\${(\w+)}/$photo->{attributes}->{$1}/ge && "$image\n"; 18 18 }
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)