Re^3: Replacing an entire line if a substring is found

[victorz22]

Thanks for the help but how would i set up that while statement to iterate through a scalar variable rather than a file handle? I have all my data stored in a scalar variable called $fileContent. So in other words how would i set up the while block using $fileContent rather than <DATA>

#This is how I read in the file
my $fileContent = do {
    open(my $fileHandle, $inputFile) or die "Could not open file '$inp
+utFile' $!";

    local $/;
    <$fileHandle>;
};

[huck]

Any particular reason it be to be in a single string? an array would be much easier to process and involve less character handling while doing the replacements.

use strict; use warnings; use feature 'say';
my @lines=<DATA>; 
for my $line (@lines) {
    chomp $line;
    if (index($line, 'SUBSTR') > -1 ) {$line='FOO'; } 
}

#for my $line (@lines) {  say $line; }

my $fileContent=join("\n",@lines); 
say $fileContent; 

__DATA__
path/to/some/file
path/to/some/other/file
path/to/SUBSTR/file #replace entire line if SUBSTRING is found
path/to/file

[1nickt]

I imagine you have seen and copied syntax like:

my $data = do { local $/, <DATA> };

... which Monks use a lot around here to demonstrate solutions using data contained in the script.

But in your case, if you are interested in handling the lines one at a time, and they exist in a separate file, there's no good reason to combine them all in a scalar.

open my $fh, '<', $filename or die $!;
while ( <$fh> ) {
    ... # process one line at a time
}

Hope this helps!