为什么seek不起作用，想在文件开头插入两行

dyytx · 发表于 2016-3-29 12:44:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

#！/usr/bin/perl -w
use strict;

my @lines;
my $file;

if(!open $file,'>>',$ARGV[0])
{die "can not oen";}

seek $file,0,0;

print $file "author:xxx\n";
print $file "date:yyy\n";

close $file;

dyytx · 发表于 2016-3-30 21:04:10

？？？？？？？

dyytx · 发表于 2016-4-5 20:33:32

？？？？？？？？

[求助] 为什么seek不起作用，想在文件开头插入两行

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

站长推荐 /2