Re: getfile( $filename )

my $contents = do { local(*ARGV, $/); @ARGV = "filename"; <> };
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Comment on Re: getfile( $filename ) Download Code

Replies are listed 'Best First'.
Re^2: getfile( $filename ) by harleypig (Monk) on Jul 29, 2005 at 03:46 UTC
Yeah, I've run across that little ditty before, most recently as a yak shaving on my IPC::Open3 journey, but it doesn't handle wantarray. It just occurred to me that it doesn't chomp the lines either ... hmmm ... `return wantarray ? do { my @lines = <$FH> ; chomp @lines ; @lines } : do { local $/ ; <$FH> };` [download] I wish there was a way to chomp <$FH>. Harley J Pig	[reply] [d/l]
Re^3: getfile( $filename ) by merlyn (Sage) on Jul 29, 2005 at 03:55 UTC
I wish there was a way to `chomp <$FH>`. How about: `my @result = map /(.*)/, <$FH>;` [download] A teeny bit inefficient, but probably insignificant for anything but hammered code. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l] [select]
Re^4: getfile( $filename ) by japhy (Canon) on Jul 29, 2005 at 12:31 UTC
Why not `my @result = map scalar(chomp, $_), <$FH>`? Jeff `japhy` Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and `perl` hacker How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart	[reply] [d/l]
Re^5: getfile( $filename ) by merlyn (Sage) on Jul 29, 2005 at 16:10 UTC
Re^5: getfile( $filename ) by harleypig (Monk) on Jul 29, 2005 at 18:03 UTC
Re^5: getfile( $filename ) by greenFox (Vicar) on Aug 03, 2005 at 07:55 UTC
Re^4: getfile( $filename ) by harleypig (Monk) on Jul 29, 2005 at 07:55 UTC
Thanks! Updated. Harley J Pig	[reply]