Perl使用技巧20：一组操作文件的方法

arche77

use File::Copy; #copy move core:rename unlink mkdir rmdir
use File:ath qw(make_path remove_tree rmtree);


mkdir('/tmp/a');
system('ls -ld /tmp/a');
创建一个目录
drwxr-xr-x  2 arche  wheel  68 Dec 15 14:28 /tmp/a

rmdir('/tmp/a');
system('ls -ld /tmp/a');
删除一个目录
ls: /tmp/a: No such file or directory

make_path('/tmp/a/b/c');
创建一个多级类目，类似mkdir -p。

rmtree('/tmp/a');
删除目录，等于rm -rf

write_file('/tmp/a.txt','sss');
生成一个文件。内容为3个字符。
-rw-r--r--  1 arche  wheel     3 Dec 15 14:30 /tmp/a.txt

rename('/tmp/a.txt','/tmp/b.txt');
system("ls -l /tmp/*.txt";
改名
-rw-r--r--  1 arche  wheel     3 Dec 15 14:31 /tmp/b.txt

write_file('/tmp/a.txt','sss');
copy('/tmp/a.txt','/tmp/b.txt');
system("ls -l /tmp/*.txt";
say;
move('/tmp/b.txt','/tmp/c.txt');
system("ls -l /tmp/*.txt";
拷贝一个文件，再mv一下。

-rw-r--r--  1 arche  wheel  3 Dec 15 14:32 /tmp/a.txt
-rw-r--r--  1 arche  wheel  3 Dec 15 14:32 /tmp/b.txt

-rw-r--r--  1 arche  wheel  3 Dec 15 14:32 /tmp/a.txt
-rw-r--r--  1 arche  wheel  3 Dec 15 14:32 /tmp/c.txt

大概这个样子，日常够用了。

minirain

能否将你在贴子中程序代码前后加上［code]和［/code]。
回复 1# arche77