#!/usr/bin/perl $in=qx!cd /home/mira/a/html/publications/semau2004; ls -A1 *.jpg *.gif *.png!; @l=split(/\n/,$in); $out=""; foreach $l1 (@l) { @l2 = split(/\./,$l1); $img = $l2[0]; for ($i=1; $i<@l2-1; $i++) { $img = $img . ".$l2[$i]"} $img = "icon/" . $img . ".icon.jpg"; $out .= "\n"; } print < Dlouhodobý orbitální vývoj některých asteroidálních rodin Dlouhodobý orbitální vývoj některých asteroidálních rodin Obrázky ze semináře Astronomického ústavu MFF UK (konaného 10. 3. 2004). výpis adresáře archiv [ semau2004.tar.gz, 3.8 MB ] $out Miroslav Broz, miroslav.broz\@email.cz, Mar 17th 2004
$out