perl学习笔记(3)—— 坑

(1)用perl来ls一个目录:

写perl的时候,经常要调用到系统命令,perl有很多等价的函数可以用,但是,不小心任性了,就想用system来实现了,好吧,来个ls把,列出指定的一个目录,直接上代码

sub ls{
my ($dir) = @_;
system("ls -al $dir ");
}


不做参数校验了,直接ls一个目录,这个是试了一下,确实可以这样做,感觉是挺容易的,没压力。但是,你仔细想一想,这真的可行吗?仔细想一下使用场景,你会发现,这个是一个坑,据说,是惨痛的教训。

好了,不绕了,这是要在linux下使用的,linux下是允许文件名是有空格,要是我们输入一个带有空格的文件名,这里是会出错的,比如:你这样使用,

ls("files isnot done");

会被解释为“ls files isnot done”,这样就相当于ls了三个文件夹了,是不是很神奇。解决方法就是,把函数改为

sub ls{
my ($dir) = @_;
system("ls -al '$dir' ");
}

像你在linux下ls一个文件一样。

(2)函数的参数,如果把数组和标量作为参数,比如:

sub func{
my (@arrar, $var) = @_;
}

当你按函数定义传参的时候,你会发现,在函数体里$var为undef, 那时我纳闷了,说好的var去哪了,调试了一下,居然发现被存在@array里了,也是醉了,要解决这方法,可以把数组变为数组的引用,传参的时候也传一下数组的引用就可以了,这样var才不会被@array吞了。

版权声明:本文为博主原创文章,未经博主允许不得转载。

上一篇:JavaScript模块化---AMD规范


下一篇:使用net Manager工具远程连接Oracle配置监听