Question

我想用“#hello”替换字符串“hello”。 “\ NHI” .. 这就是我所做的......

#!/perl/bin/perl
use strict;
use Tie::File;

my $filename = "abc.txt";
tie my @lines, 'Tie::File', $filename or die;

for(my $i=0; ; $i++) {
    last if !defined $lines[$i]; 

    if($lines[$i]= /^[\s]*hello*/){
        $lines[$i] = "#" . $lines[$i] . "\nHi";
        last;
    }

但新线路不起作用。有谁知道答案？

Answer 1

来自Tie::File docs：

此模块不支持插入包含记录分隔符字符串的记录。它可能会产生合理的结果，但是这个结果可能会在将来的版本中发生变化。使用'splice'插入记录或用一些记录替换一条记录。

连接新线 - Perl

1 个答案: