今天加班,没事做,正好学习下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 }