#! /usr/bin/perl $filebase= $ARGV[0]; $filebase =~ s/\.drf//; @picfiles= glob("${filebase}[0-9]*.jpg"); $subframenummax= 0; # 存在する画像ファイルを数える。 SKIP: for($i=1; $i<100; $i++){ for($j=1; $j<100; $j++){ unless ( join(" ",@picfiles) =~ /${filebase}$i_$j.jpg/ ){ if ($j==1){ $xend= $i-1; last SKIP; }else{ $subframenum[$i]= $j-1; $subframenummax= ($subframenum[$i]>$subframenummax)? $subframenum[$i] : $subframenummax; last; } } } } print << 'END1'; \n"; # # END4 print "\n"; print "\n"; print "\n"; # print '',"\n"; printf(" $\"%s\"$ \n",$filebase); print "\n"; # print "

\n"; print "

\n"; # ------------------------------- print << 'END5'; END5 # ------------------------------- # print << 'END6'; # # # # # # # # # # # # # END6 print "\n";