perl模块之File::Util

liuming794

　　今天加班，没事做，正好学习下PERL模块中的File::Util,话不多说，开始。
　　1.File:Util能帮我们做些什么事情：
　　1.修改文件内容。
　　2.列出当前文件夹下有哪些文件。
　　3.向文件中追加内容。
　　4.计算文件中有多少行。
　　5.列出文件属性。
　　开始写代码：



#这个测试文件是用来读取文件，然后写入文件操作，功能强大
use File::Util;
#这个方法是最常用的，用这个模块就不用重命名的方式替换文件内容了。
$util=File::Util->new();
$content=$util->load_file(".\\file1.txt");
$util->write_file(
'file' => '.\\file2.txt',
'content' => $content,
'bitmask' => 0644
);
#把文件的每一行放入一个数组中
my(@lines) = $util->load_file('.\\file1.txt', '--as-lines');
foreach $line  (@lines){
#print $line;
}
#列出这个文件目录中所有的文件
my @dir=$util->list_dir('.',qw/ -files-only --recurse /);
#print @dir;
#只列出以.txt结尾的文件
my(@textfiles) = $util->list_dir('.', '--pattern=\.txt$');
#print @textfiles;
#计算文件的行数
my $file_line_count=$util->line_count("file1.txt");
print $file_line_count;
#用来向文件末尾追加内容
if ($f->can_write('wibble.log')) {
my($HANDLE) = $f->open_handle(
'file' => 'wibble.log',
'mode' => 'append'
);
print $HANDLE "Hello World! It's ", scalar localtime;
close $HANDLE
}