perl - 在 Perl 程序中写入和读取文件

Question

我有一个原始文件A.txt。我写信给A_Copy.txt。我想知道我是否可以在关闭之前和在同一个程序中关闭它之后阅读A_Copy.txt ？我想在同一个程序中修改 A_Copy.txt 。Tie::File

A -> A_Copy.txt

关闭前阅读 A_Copy.txt

关闭后读取 A_Copy.txt

修改 A_Copy.txt

Answer 1

使用 copy 应该足以确保旧文件可读，而新文件可写可读，copy 表现非常好。要检查文件是否可读，最好的方法是使用 -r ，它使用系统 stat 调用

#!/usr/bin/perl

use File::Copy;
use Tie::File;

my $i = "A.txt";      # input file
my $o = "A_Copy.txt"; # output file
my @a;                # array to use with tie

copy($i, $o) or die;  

# check that the new file is readable, actually unneeded since copy
# would fail on any error
die unless (-r $o);   

# fill an array with the lines of the new file
tie @a, "Tie::File", $o or die;
# change the first line of the new file
$a[0] = "Hi";