note
2teez
<p>
Hi,
I really don't understand what you want but from, your desired output, I <b>suppose</b> you want to sort your files in the directory which has the same names ( about three files names with different date tags ), but different date tag.<br> Then get the latest of these files based on the date.<br> If an right, this is one way of doing that.<br>
<c>
use warnings;
use strict;
my %report = map { $_->[2] => $_->[0] }
sort {
$a->[1] <=> $b->[1]
||
$b->[2] <=> $a->[2]
}
map { [ $_, /^(\d+?)\/.+\/(\d+?)\./ ] } <DATA>;
print $report{$_}, $/ for reverse keys %report;
__DATA__
20120824/ABC/input/daily/11337111.xml
20120710/ABC/input/daily/11337101.xml
20120330/ABC/input/daily/11337111.xml
20130614/ABC/input/daily/11337890.xml
20130120/ABC/input/daily/11337111.xml
20120206/ABC/input/daily/11337111.xml
20121005/ABC/input/daily/11337890.xml
20130110/ABC/input/daily/11337111.xml
20120923/ABC/input/daily/11337111.xml
20130416/ABC/input/daily/11337101.xml
20120404/ABC/input/daily/11337111.xml
20130211/ABC/input/daily/11337111.xml
</c>
produces...
<c>
20130211/ABC/input/daily/11337111.xml
20130416/ABC/input/daily/11337101.xml
20130614/ABC/input/daily/11337890.xml
</c>
</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-918402">
If you tell me, I'll forget.<br>
If you show me, I'll remember.<br>
if you involve me, I'll understand.<br>
--- Author [unknown to me]
</div></div>
1050934
1050934