Najde se dobrá =?iso-8859-2?q?_du=B9e?=, která umí a napíše... (skript-text)

[Jan Krajdl]

Je to sice perl, ale to by snad neměl být takový problém :-) pustit v 
adresáři, kde je jhead.log

#!/usr/bin/perl
open (F, "jhead.log");
open (O, ">labels.txt");

while (my $line = <F>) {
  if ($line =~ /.*\-\-\> ([\d]{4})([\d]{2})([\d]{2})_([\d]+).jpg/) {
    print O "$1$2$3_$4.jpg|" . $3 * 1 . "." . $2 * 1 . ".$1<br>"
  }
}


SPM

On Friday 06 February 2009 13:24:18 KaCe wrote:
> Zdravím,
> pro webové fotoalbum a jeho popis používám textový soubor labels.txt, který
> ke každému obrázku obsahuje jeden řádek s popisem:
>
> 20090105_194627.jpg|5.1.2009<br>
>
> Před samotným popisem převádím název souboru na formát: YYYYMMDD_HHMMSSx
> pomocí programu jhead, jehož výstup ukládám do souboru jhead.log, kde pro
> každý obrázek je výstup ve tvaru:
>
> dsc1033.jpg --> 20090105_194627.jpg
>
> Soubor jhead.log následně osekám a rozsekám v openOffice Calc a pomocí
> vzorců přetvořím každý záznam na formát:
>
> název_souboru.jpg|datum<br>
> 20090105_194627.jpg|5.1.2009<br>
>
> Vzhledem k tomu, že manželka chce svá fotoalba tvořit sama a tento postup
> se jí zdá "zdlouhavý", napadlo mě vytvořit celý soubor skriptem, ale jsem
> na to krátký - sám stvořím jen:
>
> jhead -nf%Y%m%d_%H%M%S *.jpg | awk '{ print $3 }' > labels.txt (jen nové
> názvy obrázků)
>
> Najde se tu nějaká dobrá programátorská (BASH?) duše, která mi spíchne
> skriptík, který by z nového názvu souboru vytáhl datum ve tvaru D.M.RRRR
> (den a měsíc bez počáteční nuly) a spojil to celé do formátu uvedeného na
> začátku?
> Samozřejmě vím, že žádné kuře nehrabe zadarmo, takže akceptuji požadavek na
> odměnu :-)
>
> --
> Karel Cecil
> kace na jabber.cz
> mailto:kace.tuxuser na gmail.com
> _______________________________________________
> Linux mailing list
> Linux na linux.cz
> http://www.linux.cz/mailman/listinfo/linux