Perl哈希表实现字符串去元音输出为空问题排查求助

你遇到的核心问题是变量作用域和代码逻辑结构的问题，以下是具体分析和修正方案：

原代码的问题点 #

• 块级变量作用域：@letter_array是在遍历@ARGV的foreach代码块内用my声明的，这个变量只在该代码块内有效，外面的foreach $letter (@letter_array)根本访问不到这个数组，所以这部分循环完全没执行，自然没有输出。
• 逻辑结构错位：处理单词字符的逻辑应该嵌套在遍历每个单词的循环内部，否则就算作用域没问题，也只能处理最后一个单词，原代码把字符遍历放在单词遍历的外部，逻辑完全脱节。
• split参数的小问题：split(undef, $word)虽然能实现字符分割，但Perl里更标准的写法是split //, $word，效果一致但可读性更好。

修正后的代码 #

my @vowels = qw(a e i o u A E I O U);
my %vowel;
foreach my $v (@vowels) {
   $vowel{$v} = undef;
}

foreach my $word (@ARGV) {
   my @letter_array = split //, $word;  # 改用标准的字符分割写法
   foreach my $letter (@letter_array) {
      print $letter if !exists $vowel{$letter};
   }
   print "\n";  # 每个单词处理完换行，可根据需求调整
}

代码说明 #

1. 把字符遍历的逻辑移到了单词遍历的内部，确保每个单词的字符都能被依次处理。
2. 给所有循环变量加上my声明，保证变量作用域清晰（Perl里不声明变量会默认用全局变量，虽能运行但不规范，易引发其他问题）。
3. 替换split参数为更标准的//，和原逻辑效果一致但更符合Perl编码习惯。

现在运行脚本输入hello，就能得到预期的hll输出了。

内容的提问来源于stack exchange，提问作者pbear520