Re: Najde se dobrá duše, která umí a napíše... (skript-text)

[KaCe]

Ano,

teď je to, to pravé ořechové.
Takže ještě jednou děkuji a klaním se, protože vždycky žasnu nad tím, co
dokážete (myšleno Vy, kteří "umíte") vytvořit pro mě nesmysluplnou
posloupností znaků v jednom řádku.
Kdybych se nakonec po studiu propracoval k řešení, tak by to bylo pár
desítek řádků s několika cykly - naštěstí mě potomek zaměstnává natolik, že
není času na zbyt, ani na cykly :-)

Nyní očekávám váš požadavek na odměnu.

Karel Čečil

2009/2/6 Jan Krajdl <spm na spamik.cz>

> 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...
> >
> > --
>
> _______________________________________________
> Linux mailing list
> Linux na linux.cz
> http://www.linux.cz/mailman/listinfo/linux
>