正则表达式问题,大家帮忙看看，谢谢了！！！

fwt11

我想把windows分区都挂在上，又不想每次装系统都要去改fstab 就写了下面几句
#!/usr/bin/perl
@inf_disk=`fdisk -l`;
#print $inf_disk[1];
foreach (@inf_disk) {
        if (m#^(/dev/hd(\w\d)).*FAT32$#) {
                my $dir=/mnt/win$2;
                unless (-e $dir) {
                        system "mkdir /mnt/win$2";
                        }
                system "mount -t  vfat -o umask=0,iocharset=utf8, $1 /mnt/win$2";
        }
}


有两个问题
1.我已经有unless (-e $dir)就是目录存在就不创建，为什么每次运行还显示无法创建。。。文将已经存在。
2.为什么/mnt下有类似win5的文件夹，也会挂在里面呢，按理应该是/mnt/win$2，而$2是(\w\d)呀，为什么一个数字也能匹配？

谢谢！！

yongjian

在怀疑有问题的语句之前打印变量值看看. 我这运行了一下, 都没有错误. 另外,
system "mkdir /mnt/win$2" unless (-e $dir);
或是 (-e $dir) || system "mkdir /mnt/win$2";
会直观和简练些...