#!/usr/bin/env perl
 
# On ne s'en passe pas...
use strict;
use PDF;
 
my @table;
 
#on fait une liste de tableaux anonymes a deux elements: le nom de fichier et son nombre de pages 
push @table,["$_",(sprintf "%4i",PDF->new($_)->Pages)] foreach @ARGV;
 
#on trie avec une transformee de Schwartz par le nombre de pages, et on aligne vulgairement.
print join "\n", map {join " :: ", reverse @$_} sort { $a->[1] <=> $b->[1] } @table;
 
#encore plus de fun
# print join"\n",map{join" :: ",reverse@$_}sort{$a->[1]<=>$b->[1]}map{["$_",(sprintf"%4i",PDF->new($_)->Pages)]}@ARGV;
perl/trier_des_pdfs_par_nombre_de_pages.txt · Last modified: 2010/01/12 13:29 (external edit)
www.chimeric.de Creative Commons License Valid CSS Driven by DokuWiki do yourself a favour and use a real browser - get firefox!! Recent changes RSS feed Valid XHTML 1.0