Perl 文件读写操作

实现在文件的第二行 添加版权信息。

#!perl

use strict;
use warnings;
use 5.012;

sub add_copyright_in_file
{
?? ?@ARGV = qw/exercise_4.txt exercise_4.txt.bak/;
?? ?my $filename = shift @ARGV;
?? ?my $filename_bak = shift @ARGV;
?? ?
?? ?open my $filehandler,"<",$filename or die "Can't open the $filename:$!";
?? ?open my $outfilehandler,">",$filename_bak or die "Can't open the $filename:$!";

?? ?my $firstline = <$filehandler>;
?? ?my $lines = join '',<$filehandler>;
?? ?print $outfilehandler $firstline;
?? ?print $outfilehandler "## Copyright (C) 20xx by Yours Trulyn";
?? ?print $outfilehandler $lines;
}
&add_copyright_in_file;

需要注意的地方是：

Print 第一个参数是 文件句柄，第二个参数是要写入的变量，他们之间没有逗号！

本人Perl 第一个上传的程序，欢迎大家评论指正！