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 = shif

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

#!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 文件读写 *** 作全部内容，希望文章能够帮你解决Perl 文件读写 *** 作所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/langs/1283444.html