サブルーチンに渡されるすべての引数をPerlの文字列として取得する

Question

すべての引数をとり、入力されたとおりに文字列として出力できる関数を作成しようとしています。次の関数の使用例については

：私はしたい

"'arg1' => $arg1, 'arg2' => $arg2" 

を：

test('arg1' => $arg1, 'arg2' => $arg2); 

私は機能の内部に次の文字列を取得したいと思いをEXACTLYの下に見られるようにを書式設定これを行うと、デバッグ/テストの目的で入力されたのと同じ方法ですべての引数を出力できます。

Answer 1

Perlは、debugging hooksを提供し、コンパイルされたソースファイルの生の行を表示できます。サブルーチンが呼び出されるたびに元の行を出力するカスタムデバッガを書くことができます。

次に、一致させる1つ以上のサブルーチンを指定します。一致するサブルーチンが呼び出されるたびに、対応する行が印刷されます。

package Devel::ShowCalls; 

our %targets; 

sub import { 
    my $self = shift; 

    for (@_) { 
     # Prepend 'main::' for names without a package specifier 
     $_ = "main::$_" unless /::/; 
     $targets{$_} = 1;   
    } 
} 

package DB; 

sub DB { 
    ($package, $file, $line) = caller; 
} 

sub sub { 
    print ">> $file:$line: ", 
      ${ $main::{"_<$file"} }[$line] if $Devel::ShowCalls::targets{$sub}; 
    &$sub; 
} 

1; 

---

次のプログラムで機能fooとBaz::quxの呼び出しをトレースする：

sub foo {} 
sub bar {} 
sub Baz::qux {} 

foo(now => time); 
bar rand; 
Baz::qux(qw/unicorn pony waffles/); 

実行：これが唯一の最初の行を印刷すること

$ perl -d:ShowCalls=foo,Baz::qux myscript.pl 
>> myscript.pl:5: foo(now => time); 
>> myscript.pl:7: Baz::qux(qw/unicorn pony waffles/); 

注意呼び出すためには

のような呼び出しでは機能しません

foo(bar, 
    baz); 

Answer 2

私はこれはおそらく最良の解決策ではないことを知っているが、それは動作します：

sub test { 
    my (undef, $file_name, $line_number) = caller; 
    open my $fh, '<', $file_name or die $!; 
    my @lines = <$fh>; 
    close $fh; 

    my $line = $lines[$line_number - 1]; 
    trim($line); 

    print $line."\n"; 
} 

sub trim { 
    return map { $_ =~ s/^\s+|\s+$//g } @_; 
} 

を今、あなたはこれを実行すると：

：

test(time); 

あなたが出力としてこれを取得します

試験（時間）;