#!/usr/bin/perl ####################################################################################### $movie0 = < Nobeyama Radioheliograph 3min Movies

Nobeyama Radioheliograph 3 min Movies

END ####################################################################################### $movie1 = <

Comments:service\@solar.nro.nao.ac.jp
END ####################################################################################### $html = '/nfs/nobeyama_solar/3min_arc/3min_fits_db/3mins/index.html'; $dir = '/nfs/nobeyama_solar/3min_arc/3min_fits_db/3mins/'; open(HTML,">$html"); print HTML $movie0; opendir(DIR,$dir); @dir = readdir(DIR); closedir(DIR); @years = grep(/[0-9][0-9][0-9][0-9]/,@dir); @years = sort (@years); $n_years=@years; print HTML '

Go to '; for ($my=$n_years-1;$my>=0;$my--) { print HTML ' : '; print HTML ''.$years[$my].''; }; print HTML '

'."\n"; print HTML '

'."\n"; ###for ($my=0;$my<$n_years;$my++) { for ($my=$n_years-1;$my>=0;$my--) { opendir(DIRY,"$dir/$years[$my]"); @months = readdir(DIRY); closedir(DIRY); @months = grep(/[0-9][0-9]/,@months); @months = sort (@months); $n_months=@months; print HTML ''.$years[$my].'
'."\n"; # for ($mm=0;$mm<$n_months;$mm++) { for ($mm=$n_months-1;$mm>=0;$mm--) { opendir(DIRM,"$dir/$years[$my]/$months[$mm]"); @days = readdir(DIRM); closedir(DIRM); @days = grep(/[0-9][0-9]/,@days); @days = sort (@days); $n_days=@days; print HTML ''.$months[$mm].'....'."\n"; for ($md=0;$md<$n_days;$md++) { print HTML ''.$days[$md].','."\n"; } print HTML '
'."\n"; } print HTML '

'."\n"; } #print HTML '

Images

'."\n"; # #opendir(DIR,$dir); #@dir = readdir(DIR); #closedir(DIR); #@years = grep(/[0-9][0-9][0-9][0-9]/,@dir); #@years = sort (@years); #$n_years=@years; ####for ($my=0;$my<$n_years;$my++) { #for ($my=$n_years-1;$my>=0;$my--) { # opendir(DIRY,"$dir/$years[$my]"); # @months = readdir(DIRY); # closedir(DIRY); # @months = grep(/[0-9][0-9]/,@months); # @months = sort (@months); # $n_months=@months; # # print HTML ''.$years[$my].'
'."\n"; # ## for ($mm=0;$mm<$n_months;$mm++) { # for ($mm=$n_months-1;$mm>=0;$mm--) { # opendir(DIRM,"$dir/$years[$my]/$months[$mm]"); # @days = readdir(DIRM); # closedir(DIRM); # @days = grep(/[0-9][0-9]/,@days); # @days = sort (@days); # $n_days=@days; # # print HTML ''.$months[$mm].'....'."\n"; # # for ($md=0;$md<$n_days;$md++) { # # print HTML ''.$days[$md].','."\n"; # # } # print HTML '
'."\n"; # } #} # # print HTML $movie1; close(HTML);