perl学习感悟

学perl有了一段时间了,但一直没怎么用过,今天突然起兴想写一个遍历文件与文件夹的代码,于是挥笔写起

#/usr/bin/perl
$s=;
chomp($s);
&file($s."//*");
sub file(){

foreach $a1 (sort(glob($_[0]))){
print $a1."/n";
if(-d $a1){
&file($a1."//*");}
}}
以上代码在perl builder 2.0    active perl 5.8.8  winxp环境中编译通过.

写完很是兴奋,发现perl很是强大,但在调试中出现一个问题,就是无法显示路径带空格的文件及文件夹,很是郁闷.

发现问题出现在glob这个函数上,上网查了下资料,发现这个函数有两个参数,其中一个是用空格隔开的.

研究了半天,没找到解决方案,想用常规的opendir,readdir代替,发现竟无法支持正则表达式.不知道是不是我代码的问题.看来只有用第三方模块了(file:find).

继续努力,寻找解决方案........