在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";
}
通過以上示例代碼，我們可以遍歷數組或哈希表中的元素，并使用條件語句來查找目標元素。
