Аналог print_r в Perl

Категория: Perl Комментариев: 0

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

Автор: Кто-то   @   26 января 2010 Комментариев: 0
Метки : ,

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

Webmoney Z163628999150, R61715184597

Комментариев: 0


Leave a reply

;) :| :x :twisted: :) 8O :( :roll: :P :oops: :o :mrgreen: :lol: :idea: :D :evil: :cry: 8) :arrow: :? :?: :!:

Предыдущая запись
«
Следующая запись
»