#!/usr/bin/perl $DIR = $ENV{'SCRIPT_FILENAME'}; $DIR =~ s/preview.cgi//; $in=qx!cd $DIR; ls -A1 *.jpg *.gif *.png!; #foreach $key (keys %ENV) { $s .= "$key: " . $ENV{$key} . ""; } @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 < Yarkovsky-driven origin of the unstable population of asteroids in the 2:1 mean motion resonance with Jupiter Yarkovsky-driven origin of the unstable population of asteroids in the 2:1 mean motion resonance with Jupiter Figures from the 2004 DDA talk (Cannes, Apr 19-23, 2004). directory list PostScript version [ dda2004_r21.ps.gz, 590 kB ] animation dda2004_distmap22.avi in MJPEG AVI format, 13 MB] $out Miroslav Broz, miroslav.broz\@email.cz, Mar 17th 2004
$out