perl学习感悟（二）

接着上一话，说到perl的readdir不支持正则表达式问题，今天终于解决了，果然是自己代码问题

#/usr/bin/perl
#$s=<stdin>;
#chomp($s);
opendir(f,"c://");
foreach $a (sort(readdir(f))){
if($a=~/[/w/W]*(sx)$/){
unlink "c://".$a;}
#print $a."/n";
}
closedir(f);

注意unlink那一句，要用目录名来连接，原来readdir返回的是相对路径，而glob返回的是绝对路径，难怪我一直误解了readdir关于正则表达式的支持．汗啊～