执行Perl脚本时遇错误：Can't use string as a HASH ref

这个错误的根源很明确：你在use strict模式下，试图把一个普通字符串当作哈希引用（HASH ref）来使用，而Perl的严格模式不允许这种操作。

错误原因分析 #

你的代码里，split /;/, $result_string会把原字符串分割成一个普通字符串列表，每个元素都是像RCSoWLAN这样的纯文本。但你却用了$_->{$index}->{ssid}这种哈希引用的访问语法——这完全是错误的，因为$_在这里是字符串，不是指向哈希的引用。

直接修正方案（匹配你的原始需求） #

如果你的需求只是按索引输出分割后的每个SSID字符串，只需要去掉错误的哈希引用写法即可：

#!/perl64/bin/perl
use strict;
use warnings;

my $result_string= 'RCSoWLAN;ePDG-2;Qguest;ASUS_ATT_VOWIFI';
my $index = 1;
for ( split /;/, $result_string ) {
    print "SSID[$index]: $_\n";
    $index++;
}

运行这段代码会输出：

SSID[1]: RCSoWLAN
SSID[2]: ePDG-2
SSID[3]: Qguest
SSID[4]: ASUS_ATT_VOWIFI

如果你需要关联哈希数据的场景 #

如果你的本意是想把这些SSID字符串映射到某个预先定义的哈希结构中（比如每个SSID对应包含ssid字段的哈希），那你需要先构建对应的哈希数据，再正确访问：

#!/perl64/bin/perl
use strict;
use warnings;

# 预先定义SSID对应的哈希数据
my %ssid_info = (
    'RCSoWLAN' => { ssid => 'RCSoWLAN', type => 'corporate' },
    'ePDG-2' => { ssid => 'ePDG-2', type => 'enterprise' },
    'Qguest' => { ssid => 'Qguest', type => 'guest' },
    'ASUS_ATT_VOWIFI' => { ssid => 'ASUS_ATT_VOWIFI', type => 'voip' },
);

my $result_string= 'RCSoWLAN;ePDG-2;Qguest;ASUS_ATT_VOWIFI';
my $index = 1;
for my $ssid_name ( split /;/, $result_string ) {
    # 先检查哈希中是否存在这个SSID，避免未定义错误
    if (exists $ssid_info{$ssid_name}) {
        print "SSID[$index]: " . $ssid_info{$ssid_name}->{ssid} . "\n";
    } else {
        print "SSID[$index]: $ssid_name (no matching data found)\n";
    }
    $index++;
}

这个版本会根据你定义的哈希数据输出对应内容，同时避免了因字符串被当作哈希引用而触发的错误。

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