Re: Re: Golf: Files Containing a Pattern

Changing your 2nd grep to a map saves 1.

#234567890123456789012345678901234
grep{open F,$_;map/$_[0]/,<F>}<*>
[download]

--
Pug

Comment on Re: Re: Golf: Files Containing a Pattern Download Code

Replies are listed 'Best First'.
Re^3: Golf: Files Containing a Pattern by tadman (Prior) on Oct 19, 2002 at 08:50 UTC
Getting a little crazy can save three more strokes: `grep{open _,$_;map/@_/,<_>}<*>` Not much wiggle room left, I think.	[reply] [d/l]
Re: Re^3: Golf: Files Containing a Pattern by broquaint (Abbot) on Oct 19, 2002 at 18:23 UTC
Untested, but should work in theory ... `grep{open _;map/@_/,<_>}<*>` [download] And that's another three off. `_________ broquaint`	[reply] [d/l]
Re^5: Golf: Files Containing a Pattern by tadman (Prior) on Oct 19, 2002 at 18:45 UTC
I had no idea that my attempt at obfuscation would actually lead to something, as I was just using underscore as a variable name to amuse myself. From open: If EXPR is omitted, the scalar variable of the same name as the FILEHANDLE contains the filename. (Note that lexical variables--those declared with "my"--will not work for this purpose; so if you're using "my", specify EXPR in your call to open.) See the perlopentut manpage for a kinder, gentler explanation of opening files.	[reply]