Perlでのダンプ処理 #Perl

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);