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

[Jan Krajdl]

Tak snad takhle :)

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

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

SPM

On Friday 06 February 2009 16:34:10 KaCe wrote:
> Děkuji, děkuji, děkuji....
>
> Je to téměř dokonalé jen to má dvě "mušky":
>
> 1.
> ta horší - pokud se v souboru jhead.log objeví několi fotografií
> vytvořených ve stejný datuma a čas, jejichž nový název je odlišen jen
> posledním znakem (písmenem - sice jsem to do prvního postu napsal, ale
> nepopsal, takže se omlouvám) - např.
>
> dsc_0703.jpg --> 20080726_154713.jpg
> dsc_0704.jpg --> 20080726_154713a.jpg
> dsc_0705.jpg --> 20080726_154714.jpg
> dsc_0706.jpg --> 20080726_154714a.jpg
> dsc_0707.jpg --> 20080726_154721.jpg
>
> tak potom výstup skriptu vypadá takhle:
>
> 20080726_154713.jpg|26.7.2008<br>20080726_154714.jpg|26.7.2008<br>20080726_
>154721.jpg|26.7.2008<br>
>
> tzn., že to názvy souborů "s písmenem" nezpracuje.
>
> 2.
> menší mušička, která je vidět už na výše uvedeném výpisu - je to sloučeno
> do jednoho řádku
>
> Takže, pokud můžu poprosit o úpravu, tak moc prosím...
>
> --