Perl学习笔记 No.12

1.     chdir改变工作目录...chdir "/etc" or die "cannot chdir to /etc:$!";如果参数为空,改变到主目录

2.     my @all_files = glob "*"; my @bz_file = glob "*.bz2"; 只对当前目录下

3.     my @all_files = <*>;   my $dir = "/etc"; my @dir_files = <$dir/* $dir/.*>;

4.     如果尖括号之间是一个严格意义上的(单纯的)标识符,则其为文件句柄读入操作;否则,为 globbing 操作

5.     如果没有加上目录名,则测试部分将只检测当前目录下的文件,而不是$dirname 下的文件.这是使用目录句柄最常犯的一
个错误

6.      unlink删除文件...管理员权限下慎用

7.      rename 重命名,rename "old","new";

8.      foreach my $file (glob “ *.old” ){ my $newfile = $file; $newfile =~ s//.old$/.new/; if ( -e $newfile){ warn “ can’t rename $file to $newfile: $newfile exists/n”; }elsif(rename $file, $newfile){ ##成功,什么也不做 } else { warn “ rename $file to $newfile failed: $!/n ”; } }  批量改名

9.     在极少情况下,希望欺骗别的程序,关于文件最近修改的时间,以及被访问的时间,你可以使用 utime 函数来做到这些.

        前两个参数给出最近访问时间和修改时间,剩下的参数是需要改变这些值的文件列表

         my $now = time;

         my $ago = $now - 24*60*60;

         utime $now,$ago,glob"*";

         更新当前目录下的所有文件,使它们看起来是昨天修改的,而访问时间为现在.