Perl 文件读写操作

最新推荐文章于 2019-08-27 16:03:27 发布

liuna915

最新推荐文章于 2019-08-27 16:03:27 发布

阅读量684

点赞数

分类专栏： perl 文章标签： perl file join c

本文链接：https://blog.csdn.net/liuna915/article/details/7749269

版权

perl 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

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

#!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;