我正在接收来自某个进程的输出,我想使用 perl 从该进程的输出中搜索特定元素,我已经完成如下操作,但即使有元素,它仍然返回 FALSE。我认为我在解析时做错了帮助任何指针。谢谢
过程输出:
origin-server-pool-1
http_TestABC
https_TestABC
脚本:
use strict;
use warnings;
my @result_listosp; #assigned from output process given above
my $osp="http_TestABC";
my $status_osp_check= check_if_entity_exists($osp,@result_listosp);
print $status_osp_check;
sub check_if_entity_exists()
{
my $entity = shift;
my @entityarray = @_;
my $status="FALSE";
if ( grep { $_ eq $entity} @entityarray) {
$status="TRUE";
return $status;
}
else {
return $status;
}
}