Perl::...eadline(3pm)

✨ NAME ✨

okay bestie, welcome to the Perl::...eadline(3pm) page from the User Contributed Perl Documentation πŸ’–. The star of the show is Perl::Critic::Policy::InputOutput::ProhibitJoinedReadline β€” and the whole point is: use local $/ = undef or Path::Tiny instead of joined readline. No cap. 🫢

🌸 AFFILIATION 🌸

This Policy is part of the core Perl::Critic distribution. πŸ’…

πŸ¦‹ DESCRIPTION πŸ¦‹

So like, it's really easy to slurp a whole filehandle in at once with "join q{}, <$fh">, but that's inefficient β€” Perl goes to the trouble of splitting the file into lines only to have that work thrown away. 😭 the audacity, right?

To save performance, either slurp the filehandle without splitting like so:

do { local $/ = undef; <$fh> }

or use Path::Tiny, which is even faster. ⚑

Note that if the ProhibitPunctuationVars policy is also in effect, it will complain about the use of $/ in the line above. In that case, write this instead:

use English '-no_match_vars';

do { local $INPUT_RECORD_SEPARATOR = undef; <$fh> };

πŸŽ€ CONFIGURATION πŸŽ€

This Policy is not configurable except for the standard options. That's it. no secret knobs πŸ’…

πŸ’€ CAVEATS πŸ’€

Due to a bug in the current version of PPI (v1.119_03) and earlier, the readline operator is often misinterpreted as less-than and greater-than operators after a comma. 😬 Therefore, this policy only works well on the empty filehandle, "<>". When PPI is fixed, this should just start working. manifesting that fix ✨

🌈 CREDITS 🌈

Initial development of this policy was supported by a grant from the Perl Foundation. 🫢

πŸ‘‘ AUTHOR πŸ‘‘

Chris Dolan <cdolan@cpan.org> πŸ’Œ

Copyright (c) 2007-2021 Chris Dolan. Many rights reserved. πŸ’–

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license can be found in the LICENSE file included with this module

periodt πŸ’…


mwah πŸ’‹ okay that's the whole vibe. This page came from perl v5.42.0, dated 2024-10-23, and it's the Perl::...eadline(3pm) manual page. byeeee bestie 🫢

πŸ“¦ where this page comes from