文字列 "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;
}
しかし、改行がうまくいきません。誰も答えを知っていますか?