Data:: Dumper 모듈 사용 사례

최근 에 Data:: Dumper 모듈 을 사 용 했 습 니 다. 느낌 이 좋 고 강해 서 작은 예 를 썼 습 니 다.data:: Dumper 모듈 의 주요 용 도 는 인용 을 포함 하여 하나 이상 의 변 수 를 제시 하고 PERL 문법 으로 이 변수의 내용 을 되 돌려 주 는 것 입 니 다.예 를 들 어 여기 복잡 한 hash 가 있 는데 데이터 구조 가 복잡 해서 이 hash 안의 내용 을 보고 싶 습 니 다.일반적인 방식 (print 또는 keys 로 직접 출력) 을 제외 하고 data:: Daumper - > Dump ([\% hash]) 형식 도 사용 할 수 있 습 니 다.또한 모듈 에 서 는 인쇄 형식 을 조정 할 수 있 도록 많은 설정 파 라 메 터 를 정의 합 니 다.모듈 $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
";
print "and without maxdepth
";
$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
";
print "and with maxdepth is 1
";
$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.plShow 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           }