Re: slurp mode

[Spidy]

This node falls below the community's threshold of quality. You may see it by logging in.

[tinita]

Generally when I'm reading in a file, I'll do something like this: open(FILENAME,">>filename.file");

this opens the file for writing (appending), not for reading.

for slurping i usually do


my $content = do { local $/; <$fh> };
# or even
my $content = do { open my $fh, '<', $file or die $!; local $/; <$fh> 
+};

[sauoq]

As tinita said, you are appending. But, even if you corrected that, your while loop isn't so much slurping as sipping. Or something. You are losing most of the benefits of slurping and paying to do so with a number of unnecessary concatenations equal to the number of lines in your data. Just avoid all that rigamarole and use one of the methods presented here. (I.e. set $/ to undef either explicitly or by localizing it to a block.) It'll be one less reason for maintenance programmers to curse you.