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行或者所有內(nèi)容。

另外一種簡便的方法是：

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

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

注意這個$line不是一行，是所有內(nèi)容的字符串變量，用數(shù)組接收的話，則變成一行一行的數(shù)組。

其他方法，例如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. }

復(fù)制代碼

kingfighters

這個模塊太久不更新, 都被建議廢棄了,建議使用File::Slurper

用法基本一樣

wexinperl

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