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

[The Hand]

Pochi giorni fa discutevamo ancora su cosa fosse il PaLUG, di che tipo
fosse il nostro gruppo etc.

Ecco, questa sera(Riunione del 18 Gennaio 2006) ho rivisto il mio
concetto preferito di PaLUG, dopo una discussione sui vari punti
all'ordine del giorno mi è capitato di fare una domanda a Taklimakan su
uno script in Perl che stavo cercando di scrivere...ecco, una semplice
domanda ha riunito tutti intorno al mio Notebook a...

Codare com'i pazzi!!

La questione non era particolarmente difficile da sbrigare, ma è stato
bello vedere tutti che cercavano di apportare una modifica elegante, o
comunque che ci si scambiava consigli, pareri...bello...un gruppo di
amici, che si confrontano, disposti a mettere da parte la propria idea,
riconoscendo magari che quella degli altri è migliore...che sanno far
valere le proprie però, quando necessario...

Il risultato? Eccolo:

[code]

#!/usr/bin/perl
# Proto-O-Matic #
## Variabili di sistema ##
$dir = "/home/thehand/Scansioni";

## Inizio ##
@elements = `ls $dir`;
chomp @elements;
for (@elements){
        if (/^(\d+_\d+)_\d+\.ps/){
                push @{$a{$1}}, $&;
                }
        }

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

open LOG, ">>$dir/log";
print LOG "\n\n\n-------\n";
print LOG `date`;
print LOG "-------\n";

$"="\n"; print LOG "\t$_:\n@{$a{$_}}\n\n" for (keys %a);

unless (-d "$dir/SRC") {
        `mkdir $dir/SRC`;
        }
`mv *.ps SRC`;
#### Fine ####

[/code]

Bè? Che ne pensate? Sicuramente starete pensando:"A che caspita serve?"
semplicemente a creare dei files .pdf multipagina partendo dai singoli
fogli, che componevano il documento originale, s-canditi!YUM! (o
scansionati? :P) in formato PS.

Bè grazie alla sua devozione al Perl, Taklimakan(Il nostro Don
Quisciotte(si scrive r'accussì?)) ha resistito(erano le 03:00 quando
abbiamo terminato) quel tanto che basta per permettere allo script anche
di conservare i PS "sorgenti" in una directory a parte e di scrivere
anche un log delle operazioni compiute.

Chiudo sorridendo, questa mail...ripenso ad una bella serata, fatta di
amicizia, stimoli e cooperazione...e cosa più importante di PASSIONE!!

Buona notte PaLUG!
Il Vostro Dio

-- 
:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:
    _____ _            _   _                 _
 _ |_   _| |__   ___  | | | | __ _ _ __   __| |_ _
(_|_)| | | '_ \ / _ \ | |_| |/ _` | '_ \ / _` (_|_)
 _ _ | | | | | |  __/ |  _  | (_| | | | | (_| |_ _
(_|_)|_| |_| |_|\___| |_| |_|\__,_|_| |_|\__,_(_|_)

        +------------------------------------+
        | E-M@il to: thehand82_at_gmail.com  |\
        + - - - - - - - - - - - - - - - - - -+|
        | JabberID: thehand@jabber.linux.it  ||
        +- - - - - - - - - - - - - - - - - - +|
        |   http://www.thehandwebcorner.org  ||
        + - - - - - - - - - - - - - + - - - -+|
        |    .:The Hand:.           |\________\
        |  Linux User #342882       ||
        +---------------------------+|
         \___________________________\

:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-: