新手求实例

zqy1005

我想实现一个脚本，完成这样的一个功能－－删除指定目录下的所有文件

不熟悉文件编程

请各位給个例子了

谢谢了。。。

Shell_HAT

1. 
   
2. rm -f /tmp/*
   

复制代码

zqy1005

Shell_HAT 发表于 2010-06-17 13:30

........
perl的 谢谢

iamlimeng

我有一个自己写的递归函数，能获得指定目录下所有子目录内的文件名。我按你的用途改了一个简易模型，可以删除多个指定目录内的文件（含子目录）：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @path = ('d:/test','c:/test2');
   
7. my @files;
   
8. readsub($_) for @path;
   
9. unlink for @files;
   
10. print "All files deleted OK!\7";
    
11. <STDIN>;
    
12. 
    
13. 
    
14. sub readsub
    
15. {
    
16.         my $file_t = shift;
    
17.         if (-f $file_t)
    
18.         {
    
19.                 push(@files,$file_t); #或者在这里直接unlink
    
20.         }
    
21.         if (-d $file_t) {
    
22.                 opendir(AA,$file_t);
    
23.                 my @list = readdir(AA);
    
24.                 close (AA);
    
25.                 my $file_to_act;
    
26.                 foreach $file_to_act (sort @list)
    
27.                 {
    
28.                         if ($file_to_act =~ /^\.|\.$/) { next; }
    
29.                         else
    
30.                         {
    
31.                                 readsub("$file_t/$file_to_act");
    
32.                         }
    
33.                 }
    
34.         }
    
35. }

复制代码

toniz

buzzle

用unlink 系统调用来删除文件.

Shell_HAT

回复 6# buzzle


楼主的疑问不是用哪个命令来删除文件，而是如何删除所有文件。

buzzle

回复 7# Shell_HAT


    unlink不是个命令啊,楼主的意思不就是不知道用perl删除文件的方式么,具体的算法自己写就可以了.

Shell_HAT

回复 8# buzzle


nod, 楼主是不知道怎样用unlink删除所有文件

luanqibazao

强，学习ing