В PHP есть очень полезная функция print_r, предназначенная для отображения содержимого переменной в удобочитаемой форме.
В Perl такой функции нет, однако есть дополнительные модули для этих целей, например Data::Dump.
Модуль Data::Dump содержит всего одну процедуру — dump (), выполняющую тоже самое, что и функция print_r в PHP.
Ниже представлен Perl-скрипт, скачивающий с блога Youtube rss-ленту и отображающий ее на экране.
#!/usr/bin/perl use strict; use LWP::Simple; use XML::Simple; use Data::Dump qw(dump); my $data = get "http://feeds.feedburner.com/youtube/PKJx"; my $xs = new XML::Simple(); my $ref = $xs->XMLin($data, keyattr => []); print dump($ref);
Вывод скрипта будет примерно следующим:
{
"atom10:link" => [
{
href => "http://feeds.feedburner.com/youtube/PKJx",
rel => "self",
type => "application/atom+xml",
"xmlns:atom10" => "http://www.w3.org/2005/Atom",
},
{
href => "http://pubsubhubbub.appspot.com",
rel => "hub",
"xmlns:atom10" => "http://www.w3.org/2005/Atom",
},
],
author => {
email => "noreply\@blogger.com",
name => "Mia",
uri => "http://www.blogger.com/profile/15107966915236088370",
},
entry => [
{
"app:edited" => {
content => "2010-01-26T04:00:07.373-08:00",
"xmlns:app" => "http://www.w3.org/2007/app",
},
author => {
email => "noreply\@blogger.com",
PS: Спасибо Алексею Кощееву за свой пост про Data::Dump.
Webmoney Z163628999150, R61715184597
|
Leave a reply