这个为什么不成功呢??

yelanxin

UID: 27365
帖子: 148
积分: 340
在线时间: 1 天 6 小时

1^# yelanxin 发表于 2008-07-28 23:27

这个为什么不成功呢??

#!/usr/bin/perl -w
use strict;
opendir ETC,"/etc";
for(sort readdir ETC){
next if /^x/ and /^y/;
print "$_\n";
}

把next if /^x/ and /^y/;改称 next if /^[xy]/;就可以,为什么呢???

yelanxin

UID: 27365
帖子: 148
积分: 340
在线时间: 1 天 6 小时

2^# yelanxin 发表于 2008-07-28 23:32

恩,知道了,应该是or