为什么SEEK_SET失败？

当我运行下面的脚本，我得到为什么SEEK_SET失败？

Can't use an undefined value as a symbol reference at ./yaml-test.pl line 52.

其中线52是

seek $fh, 0, SEEK_SET; # seek back to the beginning of file

脚本的目的是为了重现为什么我收到损坏的YAML文件，所以全球的文件句柄是假设到那里。

我的理论是，新编写的yaml文件不会被覆盖，因此如果新编写的yaml比旧的小，那么旧的数据将仍然在新的yaml文件中。

问题

有人能看到什么是错我的脚本？

#!/usr/bin/perl 

use strict; 
use YAML::Syck; 
use Fcntl ':flock', 'SEEK_SET'; 
use warnings; 
use Data::Dumper; 

my $acc; 
my $acc_fh; 

$acc->{1}{name1} = "abc"; 


system("rm -f test.yaml"); 

# write initial 
open F, '>', 'test.yaml'; 
print F YAML::Syck::Dump($acc); 
close F; 


$acc->{1}{name2} = "abc"; 

write_yaml_with_lock($acc, $acc_fh); 

$acc->{1}{name3} = "abc"; 

($acc, $acc_fh) = read_yaml_with_lock('test.yaml'); 

$acc->{1}{name4} = "abc"; 

write_yaml_with_lock($acc, $acc_fh); 



sub read_yaml_with_lock { 
    my ($file) = @_; 

    open my $fh, '+<', $file or die $!; 
    flock($fh, LOCK_EX) or die $!; 

    my $obj = YAML::Syck::LoadFile($fh); # this dies on failure 
    return ($obj, $fh); 
} 

sub write_yaml_with_lock { 
    my ($obj, $fh) = @_; 

    my $yaml = YAML::Syck::Dump($obj); 
    $YAML::Syck::ImplicitUnicode = 1; 
    seek $fh, 0, SEEK_SET; # seek back to the beginning of file 

    print $fh $yaml . "---\n"; 
    close $fh; 
}

来源

2012-09-05 Sandra Schlichting

使用'system'去除文件是愚蠢的。只要使用'取消链接'test.yaml''。但是，不需要这样做，因为您使用'>'文件打开模式，无论如何都会截断您的文件。 – TLP

您拨打write_yaml_with_lock()两次。您第一次给它打电话$acc_fh仍然是undef，因为它没有设置，直到通过read_yaml_with_lock()进一步下降两行。

来源

2012-09-05 13:43:29

为什么SEEK_SET失败？

回答

相关问题