perl 打印复杂数据结构

2017-01-24 13:13:13来源:CSDN作者:Shao_You人点击

方法1:

#!/usr/bin/perl -w

use strict;

my %hash = ( a => 3, b => 1, c => 4);

map{ print "$_ => $hash{$_}/n"}

    sort{ $hash{$b} <=> $hash{$a} } keys %hash;

方法2:

Perl由于有了引用,使得我们可以在不同的数据结构之间灵活的嵌套数据结构。
比方说,Hash的value可以是标量,也可以嵌套list,甚至还可以继续嵌套hash。

这样使得我们写代码的确方便了不少,但有的时候我们希望对这些复杂的数据结构
有个直观的感受,也就是说能够用perl的语法吧数据结构以及实际值表示出来。这在开发阶段尤其
有用!

正好Perl的模块Data::Dumper可以帮助我们干这件事。

Data::Dumper有面向对象和直接使用函数两种调用方法,

这里介绍直接使用函数的方式,简单好用,应该能够满足绝大多数需求:

Dumper接收的参数为一个标量的列表或者一个引用的列表。
my $a = "good";
my $b = "bad";
my @my_array = ("hello", "world", "123", 4.5);
my %some_hash = ("foo", 35, "bar", 12.4, 2.5, "hello",
          "wilma", 1.72e30, "betty", "bye/n");

##使用函数
print Dumper($a);
print Dumper(/@my_array);
print Dumper(/%some_hash);
print Dumper((/%some_hash, /@my_array));

运行效果:
perl dump.pl
$VAR1 = 'good';
$VAR1 = [
          'hello',
          'world',
          '123',
          '4.5'
        ];
$VAR1 = {
          'betty' => 'bye
',
          'bar' => '12.4',
          'wilma' => '1.72e+30',
          'foo' => 35,
          '2.5' => 'hello'
        };
$VAR1 = {
          'betty' => 'bye
',
          'bar' => '12.4',
          'wilma' => '1.72e+30',
          'foo' => 35,
          '2.5' => 'hello'
        };
$VAR2 = [
          'hello',
          'world',
          '123',
          '4.5'
        ];
程序的输出会按照引用在list中的位置自动命名VAR[n].

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/peng_zhou/archive/2008/12/16/3530192.aspx

 

 

Data::Dumper模块使用小例文章分类:综合技术

最近用了一把Data::Dumper模块,感觉很好很强大,故写了个小例子。

Data::Dumper模块主要用途是:给出一个或多个变量,包括引用,以PERL语法的方式返回这个变量的内容。
比方说,这里有个很复杂的hash,数据结构很复杂,我想看看这个hash里面的内容。除了常见的方式(直接
用print或者编历keys然后打印), 我们也可以使用Data::Daumper->Dump([/%hash])的形式。同时,
模块中定义了很多的配置参数,让用户可以调整打印格式。

简单列举几个(具体参见perldoc),这些变量在模块
$Data::Dumper::Indent 
这个设置打印的缩进格式,可以设置成0,1,2和3。用户可以自己尝试下。
$Data::Dumper::Terse
如果设置这个变量,则不打印变量的名字,只打印变量的内容。
$Data::Dumper::Maxdepth
不超过这个变量的限制深度,才打印变量的内容。

下面写个程序说明问题:

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my%people=(
    'name'=>'ray',
    'age'=> 24,
    'sex'=>'man',
    'food'=>['egg','apple'],
);

# See Data::Dumper module to get the default vaule of the 
# following module gobal variable. You can overwrite the
# default value to user defined one.

print"Show perl hash, with pre-defined variable name/n ";
print"and without maxdepth/n";
$Data::Dumper::Terse = 0;# default is 0
$Data::Dumper::Indent = 3;# default is 2
$Data::Dumper::Maxdepth = 0;# default is 0
my$variable_name='*'."my_info";
print Data::Dumper->Dump([/%people],[$variable_name]);

print"Show perl hash, without pre-defined variable name/n ";
print"and with maxdepth is 1/n";
$Data::Dumper::Terse = 1;# default is 0
$Data::Dumper::Indent = 2;# default is 2
$Data::Dumper::Maxdepth = 1;# default is 0
$variable_name='$'."my_info";
print Data::Dumper->Dump([/%people],[$variable_name])

 

ray@localhost perl]$ perl data_dumper.pl
Show perl hash, with pre-defined variable name
 and without maxdepth
%my_info = (
             'food' => [
                         #0
                         'egg',
                         #1
                         'apple'
                       ],
             'name' => 'ray',
             'sex' => 'man',
             'age' => 24
           );
Show perl hash, without pre-defined variable name
 and with maxdepth is 1
{
             'food' => 'ARRAY(0x91d68c4)',
             'name' => 'ray',
             'sex' => 'man',
             'age' => 24
           }


最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台