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 Truly\n";
print $outfilehandler $lines;
}
&add_copyright_in_file;

需要注意的地方是：

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

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