perl模块之File::Util

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

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