perl if的简单问题

Magicloud

$ export ARCHES=i386
如下代码却没有进入if分支，为何？
my @ARCHES;
if ( $ENV{ARCHES} ) {
    push @ARCHES, 'i386' if $ENV{ARCHES} =~ /[^\s]i386[\s\$]/;
    push @ARCHES, 'amd64' if $ENV{ARCHES} =~ /[^\s]amd64[\s\$]/;
    print @ARCHES;
    push @ARCHES, grep { !/^(source|i386|amd64)$/ } split /\s+/, $ENV{ARCHES};
}
@ARCHES = qw{i386 amd64} unless @ARCHES;

Magicloud

回复 2# 珞水的大叔


    无效啊。

Magicloud

回复 4# 珞水的大叔


my @ARCHES;
if ( $ENV{"ARCHES"} ) {
    push @ARCHES, 'i386' if $ENV{"ARCHES"} =~ /[^\s]i386[\s\$]/;
    push @ARCHES, 'amd64' if $ENV{"ARCHES"} =~ /[^\s]amd64[\s\$]/;
    push @ARCHES, grep { !/^(source|i386|amd64)$/ } split /\s+/, $ENV{"ARCHES"};
}
@ARCHES = qw{i386 amd64} unless @ARCHES;