gpt4 book ai didi

perl - 使用perl替换文件第一行的问题

转载 作者:行者123 更新时间:2023-12-05 08:34:52 29 4
gpt4 key购买 nike

我有一个看起来像这样的文件:

I,like
blah...

我只想用'i,am'替换第一行得到:

i,am
blah...

这些都是大文件,所以这就是我所做的 ( based on this ):

open(FH, "+< input.txt") or die "FAIL!";
my $header = <FH>;
chop($header);
$header =~ s/I,like/i,am/g;
seek FH, 0, 0; # go back to start of file
printf FH $header;
close FH;

但是,当我运行它时,我得到了这个:

i,amke
blah...

我看起来 like 中的 'ke' 还在那里。我该如何摆脱它?

最佳答案

我会做的大概是这样的:

perl -i -pe 'if ($. == 1) { s/.*/i,am/; }' yourfile.txt

当当前文件句柄 $. 的行计数器等于 1 时,这只会影响第一行。正则表达式将替换除换行符之外的所有内容。如果您需要它来匹配您的特定行,您可以将其包含在 if 语句中:

perl -i -pe 'if ($. == 1 and /^I,like$/) { s/.*/i,am/; }' yourfile.txt

您还可以查看 Tie::File ,这允许您将文件视为一个数组,这意味着您可以简单地执行 $line[0] = "i,am\n"。然而,有人提到此模块可能存在性能问题。

关于perl - 使用perl替换文件第一行的问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17176316/

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com