perl修改文件的方法

发布时间：2020-12-16 00:10:47 所属栏目：大数据来源：网络整理

导读：#!perl use strict; use warnings; use 5.014; my $filename=$ARGV[0]; open FILE1,"$filename" or die "Can't open '$filename':$!"; open FILE2,"+$filename" or die "Can't open '$filename':$!"; my $lines = join '',FILE1; $lines =~ s/^/$filename:/g

#!perl

use strict;
use warnings;
use 5.014;

my $filename=$ARGV[0];
open FILE1,"<$filename" or die "Can't open '$filename':$!";
open FILE2,"+<$filename" or die "Can't open '$filename':$!";
my $lines = join '',<FILE1>;
$lines =~ s/^/$filename:/gm;
print? FILE2 "$lines";

close FILE1;
close FILE2;

将filename文件每行的开头加上文件名：

简要说一下原理:F1和F2将使用不用的文件指针,F1的指针一定大于等于F2的指针,F2为可读写方式打开,可以对其进行修改

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!