Question

我尝试记录所有的soap调用，调用subrutine并将参数传递给子例程，我的解决方案就是这样：

#!/usr/bin/perl -w
use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI   
    -> dispatch_to('SoapStatus')
    -> handle;

package SoapStatus;

use POSIX qw(strftime);

# Can I capture arguments and called sub from here ?
#&myLog(@_);

sub myLog
{
    my $now_string = POSIX::strftime "%Y-%m-%d %H:%M:%S", localtime;
    open(my $tmp_file, ">>", "/tmp/soap.log") or die "Can not open log file: $!\n";
    print $tmp_file $now_string.' '.$ENV{'REMOTE_USER'}.' '.$ENV{'REMOTE_ADDR'}.' '.(caller(1))[3].'('.(join(', ', @_)).')'."\n";
    close($tmp_file) or die "Can not close file: $!\n";
    return 0;
}

sub test
{
    myLog(@_);
    ...
    return @something;
}

我的问题是，有一种方法可以从包块内部捕获参数，但是在sub之外，所以我不需要从每个sub调用myLog？

修改这是进行调用的脚本（脚本在另一台服务器上）

#!/usr/bin/perl -w
use SOAP::Lite;
use Data::Dumper;
$user='myUser';
$pass='myPass';

@soap = SOAP::Lite
  -> uri('https://example.com/SoapStatus')
  -> proxy('https://'.$user.':'.$pass.'@example.com/cgi-bin/soap/soap.cgi')
  -> test('var1', 'var2')
  -> result;
print Dumper \@soap;

日志文件如下所示：

2010-08-16 17:38:33 myUser 10.10.10.1 SoapStatus::test(SoapStatus, var1, var2)
2010-08-16 17:38:47 myUser 10.10.10.1 SoapStatus::test(SoapStatus, var1, var2)

在服务器脚本中使用SOAP跟踪：

#!/usr/bin/perl -w
use SOAP::Transport::HTTP;
use POSIX qw(strftime);

SOAP::Transport::HTTP::CGI   
    -> dispatch_to('SoapStatus')
    -> handle;
use SOAP::Lite +trace => [ method, parameters => \&myLog ];

sub myLog
{
    my $now_string = POSIX::strftime "%Y-%m-%d %H:%M:%S", localtime;
    open(my $tmp_file, ">>", "/tmp/soap.log") or die "Can not open log file: $!\n";
    print $tmp_file $now_string.' '.$ENV{'REMOTE_USER'}.' '.$ENV{'REMOTE_ADDR'}.' '.(join(', ', @_)).')'."\n";
    close($tmp_file) or die "Can not close file: $!\n";
    return 0;
}

package SoapStatus;

sub test
{
    myLog(@_);
    ...
    return @something;
}

我在日志文件中得到2行：

2010-08-16 17:19:56 radu.maris 193.231.238.8 var1,var2
2010-08-16 17:19:56 radu.maris 193.231.238.8 testResponse,response1,response2

response1和response 2是test子返回的@something的一部分。

如何让它打印出类似于以前的日志示例，我的意思是强制它在同一行上打印方法和参数，以及如何摆脱贴在被调用的子名称上的“Response”字样？，我在文档中找不到任何东西（仍在搜索...）

Answer 1

您的代码令人困惑。什么时候应该进行SOAP调用？什么时候应该记录呼叫？

您可以围绕SOAP调用创建一个包装器：

sub log_and_dispatch {
    log_soap( @_ );
    dispatch_soap( @_ );
}

然而，经过仔细研究，看起来Soap::Trace可能正是您所寻找的。

或者，您可以使用Hook::LexWrap或Sub::Override为要记录的所有例程编写包装器。我怀疑Hook::LexWrap会更适合你想要做的事情。

捕获传递给子例程外部包内的子例程的参数

1 个答案: