fork download
  1. #!/usr/bin/perl
  2. my @items;
  3. while (<>) {
  4. push @items, [split(/<>/)];
  5. }
  6. #foreach (sort {$b->[8] cmp $a->[8]} @items) {
  7. foreach (sort {$b->[1] <=> $a->[1] or $b->[2] <=> $a->[2] or $b->[3] <=> $a->[3]} @items) {
  8. my ($no,$year,$month,$day,$sub,$tail1,$W1,$H1,$date,$url,$view,$past,) = @$_;
  9. #~ここに各データを表示~
  10. print "$no, $date\n";
  11. }
  12.  
Success #stdin #stdout 0s 3564KB
stdin
1<>2014<>11<>11<>sub<>tail1<>W1<>H1<>2014/11/11<>url<>view<>past<>
2<>2014<>11<>15<>sub<>tail1<>W1<>H1<>2014/11/15<>url<>view<>past<>
3<>2014<>12<>11<>sub<>tail1<>W1<>H1<>2014/12/11<>url<>view<>past<>
4<>2013<>11<>11<>sub<>tail1<>W1<>H1<>2013/11/11<>url<>view<>past<>
5<>2014<>5<>11<>sub<>tail1<>W1<>H1<>2014/5/11<>url<>view<>past<>
6<>2014<>11<>3<>sub<>tail1<>W1<>H1<>2014/11/3<>url<>view<>past<>
7<>1914<>11<>11<>sub<>tail1<>W1<>H1<>1914/11/11<>url<>view<>past<>
stdout
3, 2014/12/11
2, 2014/11/15
1, 2014/11/11
6, 2014/11/3
5, 2014/5/11
4, 2013/11/11
7, 1914/11/11