已经解决.结贴 脚本 Perl - 关于模块 Tie::File 的几点疑问

MMMIX

回复 40# sunzhiguolu


   
#!/usr/bin/perl

use strict;
use warnings;

use v5.14;
use autodie;
use Data::Dumper;

use Tie::File;

if (@ARGV < 1) {
  die "Usage: $0 file.txt";
}

tie my @arr, 'Tie::File', $ARGV[0], autodefer => 0;

(tied @arr)->defer();

for (@arr) {
  $_ = '> ' . $_;
}

say "=== Before Flush ===";
system 'cat', $ARGV[0];

(tied @arr)->flush();

say "=== After Flush ===";
system 'cat', $ARGV[0];


Demo:
$ echo -e 'abc\ndef\nijk' > /tmp/d82.txt
$ cat /tmp/d82.txt
abc
def
ijk
$ ./p82.pl /tmp/d82.txt
=== Before Flush ===
abc
def
ijk
=== After Flush ===
> abc
> def
> ijk

sunzhiguolu

回复 41# MMMIX
大神您好, 看了您的代码学习了好多...
有两点不明白, 还请您解惑...
1.> (tied @arr)_>flush() 之后是否还有必要调用 (tied @arr)->autodefer(), 调用与否有什么影响吗?
2.> 对于 Tie::File 模块的使用, 您能否举一两个使用该模块的典型场景?