急，帮忙看下这个perl语法

本帖最后由 zjm6533637 于 2010-09-04 12:56 编辑

对不起，我没做过perl 但现在一个项目急需若干perl脚本  分给我了。
#!/usr/bin/perl

opendir (DIR, '.') or die "Couldn't open directory, $!";-------------$!这是啥意思？？？
while ($file = readdir DIR)
{
  print "$file\n";   ----------------------另外这里我需要用个数组把目录给存起来，并且不确定子目录的个数。有可变长数组吗？？像其他语言那样 a[0] =1 a[1]=2这样赋值吗？
}
closedir DIR;


#!/usr/bin/perl

opendir(DIR, '.') or die "Couldn't open directory, $!";
foreach (sort grep(/^.*\.c$/,readdir(DIR)))   -------------这句话解释下  尤其是(/^.*这。。。
{
   print "$_\n";
}
closedir DIR;

另外我想问的是  这个能实现遍历多层子目录吗？ 即子目录下还有子目录

我需要得到这些子目录  然后把在里面的文件CP到另外的地方  UNIX环境

感谢大家了

另外perl 如何判断某个目录存不存在？？？ 不存在就建个目录，并授权777

另外啥叫数组的引用啊？

$!存放错误信息·
perl数组就是可变的·
额···

LS 谢谢你。
我看了一点说perl 数组 往里面插数据是 通过 push???

其问题你知道吗 ？