您的位置：首页 > 其它

Perl 文件读写操作

2012-07-15 19:52 337 查看

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

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

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航