Re: Golf: Files Containing a Pattern

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

Update:

#        1         2         3
#2345678901234567890123456789012
grep{@ARGV=$_;grep/$_[0]/,<>}<*>
[download]

Has caveats of course..

Makeshifts last the longest.

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

Replies are listed 'Best First'.
Re: Re: Golf: Files Containing a Pattern by Pug (Monk) on Oct 18, 2002 at 22:55 UTC
Changing your 2nd grep to a map saves 1. `#234567890123456789012345678901234 grep{open F,$_;map/$_[0]/,<F>}<*>` [download] -- Pug	[reply] [d/l]
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