#!/usr/bin/perl $DIR = $ENV{'SCRIPT_FILENAME'}; $DIR =~ s/preview.cgi//; $in=qx!cd $DIR; ls -A1 *.jpg *.gif *.png *.avi!; @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 = $out . "\n"; } print < The thermal forces and torques changing the orbits and spins of small asteroids The thermal forces and torques changing the orbits and spins of small asteroids Presentation at the European Geosciences Union, General Assembly 2007, April 15 - 20, Vienna, Austria list directory PDF [3.7 MB] $out Miroslav Broz, miroslav.broz\@email.cz, Apr 20th 2007
$out