http://qs321.pair.com?node_id=624017


in reply to 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

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]

      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]
        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]

In Section Seekers of Perl Wisdom