Perl 资料读写操作

2012-08-11

Perl 文件读写操作实现在文件的第二行添加版权信息。#!perluse strictuse warningsuse 5.012sub add_co

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 第一个上传的程序，欢迎大家评论指正！

热点排行

perl python

Perl 资料读写操作