Cos'è il PaLUG?? II - Aridaglie [Proto-o-matic.pl]

[Joe Oblivian]

On Thu, 2006-01-19 at 03:33 +0100, The Hand wrote:
> ## Inizio ##
> @elements = `ls $dir`;
> chomp @elements;
> for (@elements){
>         if (/^(\d+_\d+)_\d+\.ps/)

Vediamo se ho capito bene:
i tuoi files si chiamano 
3412343141_14313413_XX.ps
dove XX sono dei numeri progressivi, giusto?
(se sbaglio dimmelo)

Tra l'altro da come avete fatto lo script suppongo si tratti di numeri
scritti a nomero di cifre fissato o minori di 11. In caso contrario,
sarebbe nata la necessita' di "ordinare" in qualche modo le pagine,
altrimenti pagina 11 sarebbe prima di pagina 2...
> {
>                 push @{$a{$1}}, $&;

Ecco questa e' l'unica cosa che non conoscevo ed e' davvero figa!

>                 }
>         }
> 
> `psmerge @{$a{$_}} |ps2pdf - $_.pdf` for (keys %a);
> 

E qui forse sarebbe bello utilizzare qualche opzione ma mi rendo conto
che alle tre di notte...

Comunque ottimo script!

Ciao
Joe