Perlの検索を反復処理で実装する方法

Perl では、配列やハッシュテーブルの要素を反復処理して検索するためにループ構造や条件文を使用できます。以下に例を示します。

配列内の要素を繰り返し探す

my @array = (1, 2, 3, 4, 5);
my $target = 3;
my $found = 0;
foreach my $element (@array) {
if ($element == $target) {
$found = 1;
last;  # 找到目标元素后跳出循环
}
}
if ($found) {
print "目标元素 $target 存在于数组中。\n";
} else {
print "目标元素 $target 不存在于数组中。\n";
}

ハッシュテーブルから要素をイテレートして見つける：

my %hash = (
"apple" => "苹果",
"banana" => "香蕉",
"orange" => "橙子"
);
my $target = "香蕉";
my $found = 0;
foreach my $key (keys %hash) {
if ($hash{$key} eq $target) {
$found = 1;
last;  # 找到目标元素后跳出循环
}
}
if ($found) {
print "目标元素 $target 存在于哈希表中。\n";
} else {
print "目标元素 $target 不存在于哈希表中。\n";
}

上記のサンプルコードでは、配列やハッシュ内の要素を繰り返し処理し、条件式を使用して目的の要素を検索できます。