Edited at

Perlでのダンプ処理

More than 1 year has passed since last update.

use strict;

use warnings;
use Data::Dumper;

:

# ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
# ■ デバッグ用
# ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

my $print_header = 0;

sub dump
{
my $param = shift;
my $exit = shift;

if( !$print_header )
{
print "Content-type: text/html\n\n";
local $Data::Dumper::Deparse = 1;
$print_header = 1;
}

print Data::Dumper::Dumper $param;

# 第二引数があればそこで終了
if( $exit ne undef )
{
exit;
}
}

こうしておいて、ダンプしたくなったら。

&dump($self);

&dump($env);

一旦処理を止めたい場合

&dump($params, 1);