文字列配列に特定の値が含まれているかどうかを確認するサブ プロシージャを perl で作成しました。
sub check_if_entity_exists() {
my $entity = shift;
my @entityarray = @_;
print "my entity to be checked $entity \n";
print "entity array before change @entityarray : \n";
join(" ", map { s/^\s*|\s*$//g; $_ } @entityarray);
print " array after change @entityarray \n";
my $status = "FALSE";
if (grep { $_ eq $entity } @entityarray) {
$status = "TRUE";
return $status;
}
else {
return $status;
}
}
上記のコード@entityarray
= xyz.com
$entity
= xyz.com エンティティはエンティティ配列にあるため、true に設定することを期待していますが、フローは false になります。
出力ログ: チェック対象の my entity xyz.com 変更前のエンティティ配列 xyz.com : 変更後の配列 xyz.com