Anselista oikealle

Kätsyä jelppiä toistuvaan lisäämiseen.

Koinpa käteväksi pienen palan koodia, nimittäin sellaisen joka tekee aina päivämäärän mukaan yksilöllisen ja aina uuden tiedoston / hakemiston. Pätkä on nyt perliä, mutta vastaavan yksinkertaisesti käännettävissä vaikkapa shell-skriptiksi, jolloin ei ole perl:n käynnistämisen 'overheadia'.

Pätkä:

$notedir = '/home/pvsavola/blog/laiffi'
my $dtstr = date +%y%m%d;
chop $dtstr;

while (-e "$notedir/${dtstr}-$i.txt") {
    print "${dtstr}-$i on olemassa, hyppy yli..\n";
    $i++;
};

Itse käytän sitä ainakin omassa 'getpics' -skriptissa joka a) liittää kortin tiedostojärjestelmään, b) tekee hakemiston sen päiväisille kuville (tässä se pätkä käytetään) ja c) siirtää ne kuvat sinne. Lopuksi se tulostaa komennon jolla saan selattua suoraan ne tiedostot gqview:lla, jolloin ei tarvitse kuin valita se komento, painaa hiiren keskinappia ja -enter-.

Toinen käyttö (lyhyen ajan sisällä) on tämä login satunnaisheiton lisäys, niille kun ei blosxomin alla jaksa aina keksiä eritystä nimeä, niin menevät päivämäärän mukaan. Ja kun saman päivän ajana tulee monta heittoa niin..
Tossa se on kuitenkin alla, se skripti, että näkyy mistä on kyse.

#!/usr/bin/perl -w

my $notedir = '/home/pvsavola/blog/laiffi';
my $i = 0;

my $dtstr = date +%y%m%d;
chop $dtstr;

while (-e "$notedir/${dtstr}-$i.txt") {
    print "${dtstr}-$i on olemassa, hyppy yli..\n";
    $i++;
};
$dayfile = "$notedir/${dtstr}-$i.txt";
        
exec("jed $dayfile");