请问perl怎样实现win Linux/unix通用的 rm -rf 目录？，谢谢

earth2mars

请问perl怎样实现win Linux/unix通用的 rm -rf 目录？，谢谢

q1208c

估计只能遍历目录, 一个个删除了吧.

yybmsrs

File:ath

jeppeter

回复 1# earth2mars


    windows下用rmdir /s /q dir这样就可以了。至于PERL，只要调用这个命令就可以。

旋转小马

逛一逛，学习

ttcn_cu

我封装了一个Win下的文件管理模块，你可以参考一下，看下原来模块的文档

1. package Win32FSHelper;
   
2. use strict;
   
3. use warnings;
   
4. use 5.010001;
   
5. use utf8;
   
6. use Readonly;
   
7. use Data::Dumper;
   
8. use base 'Exporter';
   
9. 
   
10. #our @EXPORT = qw(FileCat);
    
11. 
    
12. use File::Spec;
    
13. use File::Slurp;
    
14. use File::Path;
    
15. use File::Copy;
    
16. use File::Remove;
    
17. use File::Basename;
    
18. 
    
19. ##------------------------------------------------------------------------------
    
20. 
    
21. sub FileCat {
    
22.     return File::Spec->catfile(@_);
    
23. }
    
24. 
    
25. ##------------------------------------------------------------------------------
    
26. 
    
27. sub ReadFile {
    
28.     return File::Slurp::read_file(@_);
    
29. }
    
30. 
    
31. ##------------------------------------------------------------------------------
    
32. 
    
33. sub MakePath {
    
34.     return File::Path::make_path(@_);
    
35. }
    
36. 
    
37. ##------------------------------------------------------------------------------
    
38. 
    
39. sub Move {
    
40.     return File::Copy::move(@_);
    
41. }
    
42. 
    
43. ##------------------------------------------------------------------------------
    
44. 
    
45. sub Remove {
    
46.     return File::Remove::remove(@_);
    
47. }
    
48. 
    
49. ##------------------------------------------------------------------------------
    
50. 
    
51. sub FileParse {
    
52.     return File::Basename::fileparse(@_);
    
53. }
    
54. 
    
55. ##------------------------------------------------------------------------------
    
56. 
    
57. sub Basename {
    
58.     return File::Basename::Basename(@_);
    
59. }
    
60. 
    
61. ##------------------------------------------------------------------------------
    
62. 
    
63. sub Dirname {
    
64.     return File::Basename::dirname(@_);
    
65. }
    
66. 
    
67. 1;
    

复制代码