Golf: Files Containing a Pattern

Here's a fun little hole: Write a function that runs under use strict; which returns a list of the files in the current directory that contain a certain pattern. The pattern to match is passed to the function. Here's an example usage:

use strict;

sub filegrep {
  ...
}

my @files = filegrep('Match this!');
[download]

My best is 56:

sub filegrep {

#         1         2         3         4         5
#12345678901234567890123456789012345678901234567890123456
 my@k;for(<*>){open F,$_;push@k,$_ if grep/$_[0]/,<F>};@k
}
[download]

How many strokes can you shave?

kelan

Yak it up with Fullscreen ChatterBox

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

Replies are listed 'Best First'.
Re: Golf: Files Containing a Pattern by Aristotle (Chancellor) on Oct 18, 2002 at 22:51 UTC
`# 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.	[reply] [d/l] [select]
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
Re^5: Golf: Files Containing a Pattern by tadman (Prior) on Oct 19, 2002 at 18:45 UTC
Re: Golf: Files Containing a Pattern by Juerd (Abbot) on Oct 19, 2002 at 11:13 UTC
All solutions thus far are broken. They don't list dotfiles :) - Yes, I reinvent wheels. - Spam: Visit eurotraQ.	[reply]
Re: Golf: Files Containing a Pattern by abell (Chaplain) on Oct 18, 2002 at 22:38 UTC
(44) 42. `#!/usr/bin/perl use strict; sub filegrep { # 1 2 3 4 5 #12345678901234567890123456789012345678901234567890123456 my$a=$_[0];grep{open F,$_;grep/$a/,<F>}(<>) }` [download] Antonio Update:* gets down to 42 omitting the parenthesis in `(<>)`. It becomes `#12345678901234567890123456789012345678901234567890123456 my$a=$_[0];grep{open F,$_;grep/$a/,<F>}<>` [download] Update²: As pointed out by others, the usage of variable `$a` is totally useless. Update³: If `$a` were of any use, one wouldn't need `my` anyway, since `$a` and `$b` are special (think `sort`) and don't upset `strict`. Update⁴: As observed by crazyinsomniac, `$a` ~~becomes global~~ refers to the package global `$a` without `my`.which is a bad thing. This is a potentially bad thing. The stupider the astronaut, the easier it is to win the trip to Vega - A. Tucket	[reply] [d/l] [select]
Re: Golf: Files Containing a Pattern by BUU (Prior) on Oct 19, 2002 at 03:07 UTC
`sub filegrep { # 1 2 3 #1234567890123456789012345678901234 map{@ARGV=($_);grep{/$_[0]/}<>}<*> }` [download] which gives me a total of 34, as i couldnt think of a better way to get the value into ARGV =[	[reply] [d/l]
Re: Golf: Files Containing a Pattern by Pug (Monk) on Oct 18, 2002 at 22:51 UTC
I borrowed a bit/most of your code but how about 39 `# 1 2 3 4 #1234567890123456789012345678901234567890 grep{open F,$_;$_ if grep/$_[0]/,<F>}<*>` [download] Update: Added Code Tags. -- Pug	[reply] [d/l]
Re: Golf: Files Containing a Pattern by kelan (Deacon) on Oct 19, 2002 at 14:25 UTC
Just wondering, but anyone know why this was moved from Obfu to Meditations? I would have thought golf was more of and obfu kind of thing. kelan	[reply]
Re^2: Golf: Files Containing a Pattern by Aristotle (Chancellor) on Oct 19, 2002 at 14:48 UTC
But you're wrong. :) Obfu intentionally tries to mislead the reader, which is not the case for golfing, and to this end, complex obfus are often the very opposite of a golf - using verbosity to conceil the real intent. Go to Super Search, put "golf" in the "match titles" field and select "do not include replies" at the bottom of the page. You'll notice that nearly all golf challenges are in Meditations. Makeshifts last the longest.	[reply]


P is for Practical
	PerlMonks