论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2010-10-19 16:43 |只看该作者 |倒序浏览

$ 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;

文库|博客

珞水的大叔

小富即安

论坛徽章:: 0

2楼 [报告]

发表于 2010-10-19 16:46 |只看该作者

回复 1# Magicloud

$ENV{ARCHES}改为$ENV{"ARCHES"}

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

Magicloud

小富即安

论坛徽章:: 0

3楼 [报告]

发表于 2010-10-19 16:52 |只看该作者

回复 2# 珞水的大叔

无效啊。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

珞水的大叔

小富即安

论坛徽章:: 0

4楼 [报告]

发表于 2010-10-19 16:58 |只看该作者

回复 3# Magicloud

我测了，有效。把你改后的代码贴出来看看

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

Magicloud

小富即安

论坛徽章:: 0

5楼 [报告]

发表于 2010-10-19 17:06 |只看该作者

回复 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;