in reply to Re^2: Sort files by date in the file name.
in thread Sort files by date in the file name.

A number that must be used as a key ..... The first and last column should be the sort keys.

:) you gave sample input and sample output

the sample output does not appear in the sample input

its not clear what you mean by "first column code" and I cannot deduce/guess from the sample you provided

The word explanations do not clarify which part is which

  • Comment on Re^3: Sort files by date in the file name.

Replies are listed 'Best First'.
Re^4: Sort files by date in the file name.
by leoberbert (Novice) on Jul 07, 2016 at 23:57 UTC
    See this example: 1020300000_XXXXXXXXX_20160707193000.TXT 1020300000_XXXXXXXXX_20160707170000.TXT I need to return only the oldest file using the file name date. 1020300000_XXXXXXXXX_20160707170000.TXT
[reply]
      #!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
my @in = qw/
1020300000_XXXXXXXXX_20160707193000.TXT
1020300000_XXXXXXXXX_20160707170000.TXT
1020300000_XXXXXXXXX_20160707190000.TXT
/;
my $final = GiveMeItTheThingIWant( \@in );
dd( $final, \@in );
sub GiveMeItTheThingIWant {
    my( $in ) = @_;
    my @ordered = 
    map { $$_[1] }
    sort { $$a[0] cmp $$b[0] }
    map { 
#~         my( $left, $right ) = $_ =~ m{^([^_]+)_[^_]+_([^_]+)};
        my( $left, $middle, $right , $txt ) = split /[_\.]/, $_;
        [ $right, $_ ];
    }
    @{$in};
    
    return $ordered[0];
#~     return '1020300000_XXXXXXXXX_20160707170000.TXT';
}
__END__

      [download]
[reply]
[d/l]
        Hello friend, thanks for the tip. It has helped me .. but I own many other files as for example: 981139804_ABCDEF12345678765463565E_28062016172508.TXT 981139804_ABCDEF12345678765463565E_28062016192508.TXT 981139804_ABCDEF12345678765463565E_28062016112508.TXT 981139804_ABCDEF12345678765463565E_28062016102508.TXT 981139804_ABCDEF12345678765463565E_28062017102508.TXT 971305332_XXXXXX12345678765463565E_28062011102508.TXT 971305332_AAAAAAAA12345678765463565E_28062011102508.TXT 971305332_CCCC12345678765463565E_28062011102508.TXT 971305332_CCCC12345678765463565E_28062020102508.TXT And when that occurs, it is only returned to a number, that is, I needed to return ordering the first column and the last.
[reply]

      Ok thats easier to deduce from, its easier to understand the question if you take one file name, break it into parts, and label the parts so they match the word descriptions ... I'll be back in 1min

[reply]

In Section Seekers of Perl Wisdom