in reply to Custom Sort Array

Oh, and you can declare your variable in loop. No need for my $file = $_ later: 
sub by_id {
    # extract numbers
    my ($A) = $a =~ /(\d+)/;
    my ($B) = $b =~ /(\d+)/;
    # return comparison
    return $A <=> $B;
}

for my $f (sort by_id @files) {
    say $f;
}

[download]

Replies are listed 'Best First'.
Re^2: Custom Sort Array
by 2teez (Vicar) on Aug 10, 2013 at 20:42 UTC

    Hi,
    arkturuz, will even work if the regex matches the values to be sorted like this: 

    chomp(my @files = <DATA>);  ## added 

sub by_id {
    # extract numbers
    my ($A) = $a =~ /.+?-(\d+)\..+$/; # changed
    my ($B) = $b =~ /.+?-(\d+)\..+$/; # changed
    # return comparison
    return $A <=> $B;
}

for my $f (sort by_id @files) {
    print $f,$/;
}

__DATA__
abcd1_abc_123456.abc1a_A.201307290800-0900-0.gz
abcd1_abc_123456.abc1a_A.201307290800-0900-1.gz
abcd1_abc_123456.abc1a_A.201307290800-0900-10.gz
abcd1_abc_123456.abc1a_A.201307290800-0900-11.gz
abcd1_abc_123456.abc1a_A.201307290800-0900-2.gz
abcd1_abc_123456.abc1a_A.201307290800-0900-3.gz

    [download]

    If you tell me, I'll forget.
    If you show me, I'll remember.
    if you involve me, I'll understand.
    --- Author unknown to me
[reply]
[d/l]
Re^2: Custom Sort Array
by omegaweaponZ (Beadle) on Aug 10, 2013 at 19:43 UTC
    Thanks, however this seems to return the same array I had previously. 10 is still preceded by 2.

    I should clarify that the logs have numbers prior as well, so the log looks something like this:

    abcd1_abc_123456.abc1a_A.201307290800-0900-0.gz
    abcd1_abc_123456.abc1a_A.201307290800-0900-1.gz
    abcd1_abc_123456.abc1a_A.201307290800-0900-10.gz
    abcd1_abc_123456.abc1a_A.201307290800-0900-11.gz
    abcd1_abc_123456.abc1a_A.201307290800-0900-2.gz
    abcd1_abc_123456.abc1a_A.201307290800-0900-3.gz

[reply]
      You changed the requirements but I think you see where is the solution going: extract relevant fields and compare that.
[reply]
Re^2: Custom Sort Array
by Anonymous Monk on Aug 12, 2013 at 16:46 UTC
    I think you meant 
        my ($A) = $a =~ /(\d+)\.gz$/;
    my ($B) = $b =~ /(\d+)\.gz$/;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom