Perl使用技巧10：读写文件模块File::Slurp

arche77

在工作中，读文件恐怕是最最频繁的动作之一了。

普通的文件句柄：

open(TMP,"tmp.txt");
while ($line=<TMP>) {
    chomp($line);
    say $line;
}
close(TMP);

模块法大概如下：
$fh=new FileHandle 'test.pl';
$line=$fh->getline;
say $line;
$fh->close();

say '-' x 50;

$fh=new FileHandle 'test.pl';
@lines=$fh->getlines;
say @lines;
$fh->close();

使用getline和getlines方法获取1行或者所有内容。

另外一种简便的方法是：

use File::Slurp;
$line=read_file('test.pl');
say $line;

@lines=read_file('test.pl');
p @lines;

注意这个$line不是一行，是所有内容的字符串变量，用数组接收的话，则变成一行一行的数组。

其他方法，例如write_file等自己研究吧，$line @lines对我来说，足够用了。

104359176

这个常用的模块，竟然不是 Perl 的核心模块，需要另外安装。不得不在所有的程序中加上这两个子程序。

1. 
   
2. 
   
3. sub read_file {
   
4.   my $file = shift;
   
5.   error("file: $file not exists") if not -e $file;
   
6.   local $/;
   
7.   open my ($fh), '<', $file or die $!;
   
8.   return <$fh>;
   
9. }
   
10. 
    
11. sub write_file {
    
12.   my ($file, $str) = @_;
    
13.   open my ($fh), '>', $file or die $!;
    
14.   print {$fh} $str;
    
15.   return $file;
    
16. }

复制代码

kingfighters

这个模块太久不更新, 都被建议废弃了,建议使用File::Slurper

用法基本一样

wexinperl

以及 Path::Tiny 以及 IO::All