- or download this
__DATA__
0.ids.xml 500 2004-10-01
...
7.ids.xml 1 2004-10-01
8.ids.xml 100000 2004-10-01
9.ids.xml 90000 2004-10-01
- or download this
2004-10-01 100000
2004-10-01 90000
...
2004-10-01 30
2004-10-01 2
2004-10-01 1
- or download this
push @{$hash{$common}}, [ $input_file, $date, $time ];
- or download this
@files = sort {$b->[1] cmp $a->[1] || $b->[2] <=> $a->[2]} @{$hash
+{$k}};