所以我没什么问题，因为我需要打印主机名，即bettwen“（？@）”，例如：
Apr 17 23:39:02 test pure-ftpd: ([email protected]) [INFO] New connection from researchscan425.eecs.umich.edu
而且我需要打印“ researchscan425.eecs.umich.edu”。
我尝试了类似的东西：
if(my ($test) = $linelist =~ /\b\(\?\@(\S*)/)
{
print "$test\n";
}
但这并没有给我印任何东西。
您可以使用此正则表达式：
\(\?@(.*?)\)
researchscan425.eecs.umich.edu 将被捕获到组1中。
观看演示
样例代码：
my $linelist = 'Apr 17 23:39:02 test pure-ftpd: ([email protected]) [INFO] New connection from researchscan425.eecs.umich.edu';
if(my ($test) = $linelist =~ /\(\?@(.*?)\)/)
{
print "$test\n";
}
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句