̃Gg[͂ĂȃubN}[Nɒlj

Perl :: デバッグ用のファイル出力



  • 関数
sub print_log {
    my $str = shift;
    my $logfile = "/path/to/debug.log";
    my $msg = sprintf("%s\x0A", $str);
    open FH, ">> $logfile" or die "Can't open $logfile:$!";
    print FH $msg;
    close FH;
}
  • デバッグしたい箇所に以下を記述
my $str = "Now debugging!";
print_log($str);





programming/perl/etc/output_debug_log.txt