Re: Extract the middle part of a list

You want grep, with some data extraction in the choice routine.

our ($starttime, $endtime) = init();
# . . .
my @selected = grep {
    my $time = (split /[_.]/)[2];
    $time > $starttime and $time <= $endtime;;
} </path/to/*>;
[download]

Not having to sort helps, since we don't need to keep values for comparison. If there are files there which don't follow the naming scheme, you may need to filter them out with another grep or with map, or a refinement of the glob in angles.

After Compline,
Zaxo

Comment on Re: Extract the middle part of a list Download Code

Replies are listed 'Best First'.
Re^2: Extract the middle part of a list by chrism01 (Friar) on Jun 29, 2007 at 04:51 UTC
Guys, Thx for both of those. I decided to go with Zaxo because it's simpler and works down the page (I think). However, it's complaining about the curr/parent dir files (., ..) which i tried to fix, but I'm not good with these nested code layouts. I tried: `@t_arr = grep { grep { $_ !~ /^\./ } $var3 = (split /[_.]/)[2]; $var3 > $var1 and $var3 <= $var2; } readdir(EVT_DIR);` [download] and a couple of variations, but still get warnings: `Use of uninitialized value in pattern match (m//) at ./t.pl line 341. Use of uninitialized value in numeric gt (>) at ./t.pl line 345. Use of uninitialized value in pattern match (m//) at ./t.pl line 341. Use of uninitialized value in numeric gt (>) at ./t.pl line 345.` [download] I also need to ignore any dirs that exist. Any chance of the correct code? Guess I need a tutorial article on nested code blocks (if that's the correct description) Cheers Chris	[reply] [d/l] [select]
Re^3: Extract the middle part of a list by Zaxo (Archbishop) on Jun 29, 2007 at 05:04 UTC
As you say, your blocking is incorrect. Here's how to write that: `@t_arr = grep { $var3 = (split /[_.]/)[2]; $var3 > $var1 and $var3 <= $var2; } grep { !-d and $_ !~ /^\./ } readdir(EVT_DIR);` [download] where I've added `!-d` to exclude directories. You might want to use `-f` instead to admit only regular files. After Compline, Zaxo	[reply] [d/l] [select]
Re^4: Extract the middle part of a list by chrism01 (Friar) on Jun 29, 2007 at 05:38 UTC
Zaxo, close... it ignores curr, parent dirs fine, but still trips up over 'normal' dir. Tried it both as you said { !-d and $_ !~ /^\./ } and replace whole line with { -f }, no go. Chris BTW, am I right in believing that the logic is up/back for outer sub-blocks ie greps, but fwd/down for sub-block contents? Also, why 'and' not '&&'? This is a very educational thr (for me at least) :-)	[reply]
Re^5: Extract the middle part of a list by doom (Deacon) on Jun 29, 2007 at 10:00 UTC


Just another Perl shrine
	PerlMonks