Аналог print_r в Perl

В 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.

Поблагодарить автора

Оставить комментарий

Your email address will not be published. Required fields are marked *

*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>