ルモーリン
ホーム 更新 Perl Sample ランドナー サービス 雑談 コースガイド 鉄ゲタ 自転車 Linux リンク 連絡先

dumperで漢字表示

2019-02-23

ログの次はdumper

漢字でコンソール出力とくりゃ、次はdumperです。

コード

プラグインにしました。 起動時に自分用のディレクトリからロードされます。
package QuoteLessDumper;
use Mojo::Base "Mojolicious::Plugin";
 
use Data::Dumper;
use Sub::Install;

sub register {
	my ($self, $app, $conf) = @_;

	# XSを使わないようにしてメソッドを変更できるようにする
	$Data::Dumper::Useperl = 1;

	# ハッシュのキーをクォートしない
	$Data::Dumper::Quotekeys = 0;

	# Data::Dumperのqquote
	Sub::Install::install_sub({
		code => sub {
			my $val = shift;
			return  qq("$val");
		},
		into => "Data::Dumper",
		as => "qquote",
	});

	my $dumper = { dumper => "漢字を表示"};
	$app->log->debug($app->dumper($dumper));
}

1;

実行結果

[2019-02-22 21:19:22.28532] [16943] [debug] プラグイン: QuoteLessDumper
[2019-02-22 21:19:22.28681] [16943] [debug] {
  dumper => "漢字を表示"
}