0

文字列 "hello" を "#hello" に置き換えたい。"\nこんにちは"..これが私がやったことです..

#!/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;
    }

しかし、改行がうまくいきません。誰も答えを知っていますか?

4

1 に答える 1