#!/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 Long-Term Evolution of J2/1, J3/2 and J4/3 Resonant Asteroids During Planetary Migration and Beyond The Long-Term Evolution of J2/1, J3/2 and J4/3 Resonant Asteroids During Planetary Migration and Beyond Presentation at the 38th Annual DPS Meeting 2006, October 8 - 13, Pasadena, CA, USA. list directory PS.GZ [1.3 MB] PDF [2.2 MB] $out Miroslav Broz, miroslav.broz\@email.cz, Oct 13th 2006
$out