Re^3: Extracting selected fields form file record (don't use File::Slurp References)

[eyepopslikeamosquito]

Noone even mentioned File::Slurp! :)

If you must use a module for this, may I suggest Path::Tiny or File::Slurper? See File::Slurp is broken and wrong by Leon Timmermans for why.

... though I agree with haukex below that it's better to do it idiomatically without a module: my $string = do { local $/; <$fh> }

File Slurping References

• Any downsides to this slurp idiom? by haukex (2018) - prior discussion of this problem
• Timing and timing out Unix commands by me (2003) - crusty old code that contained a simple slurp_file function

References Added Later

• Does Perl have a baked-in memory llimit? by cormanaz (2023) - got an out of memory error slurping a half-gig file with File::Slurp
• Re^3: Does Perl have a baked-in memory llimit? by me (2023) - after being provoked by Bod I advised him to never use File::Slurp
• Re^3: Does Perl have a baked-in memory llimit? by hippo (2023) - ... suggested Bod try Path::Tiny instead of File::Slurp
• Re^2: how perl do 'envsubst' by vincentaxhe (2024) - expressed surprise that Path::Tiny could be used to slurp files
• Can't decode ill-formed UTF-8 octet sequence by Veraellyunjie (2024) - slurping files with raku slurp, replies mention Perl 5 File::Slurper and File::Slurp

[haukex]

If you must use a module for this, may I suggest Path::Tiny or File::Slurper?

While those modules are nice, I personally find it a bit difficult to keep track of all of the different modules' opinions on how to best slurp files. And considering that slurping a file takes at most two lines of pure Perl code and I remain in full control over layers etc., I no longer see the need to load a module just for that. The following only requires knowing some of the details of layers, such as knowing the effect of ${^OPEN}, using :encoding(UTF-8) instead of :utf8, and that UTF-16 files on Windows require the layers :raw:encoding(UTF-16):crlf (the latter two being documented in PerlIO and "open" Best Practices).

my $all = do { open my $fh, '<', $filename or die "$filename: $!";
    local $/; <$fh> };

my @lines = do { open my $fh, '<', $filename or die "$filename: $!";
    <$fh> }; chomp @lines;

[choroba]

Related prior discussion: Any downsides to this slurp idiom?