#!/usr/local/bin/perl -w #This program creates an html file for browse plots # DOES NOT YET WORK!!!!!! $input_file = $ARGV[0]; #open (IN,"$input_file") || die "can't open input file"; $output_file = $input_file . ".html"; open (OUT,">$output_file") || die "can't create output file '$output_file'"; print OUT"\n"; print OUT"\n"; print OUT"\n"; print OUT"ACE SEPICA Browse\n"; print OUT"\n"; print OUT"\n"; print OUT"\n"; print OUT"\n"; print OUT"\"Shaded\n"; print OUT"
\n"; print OUT"ULEIS\n"; &add_wht_space(2); print OUT"EPAM\n"; &add_wht_space(2); print OUT"SEPICA\n"; &add_wht_space(2); print OUT"SIS\n"; &add_wht_space(2); print OUT"CRIS\n"; &add_wht_space(2); print OUT"
\n"; print OUT"
\n

\n

\n"; print OUT"xxx\n"; print OUT"
\n"; print OUT"
Print Info
\n
\n"; print OUT"\n
\n"; print OUT"\n"; $ii=0; while (1){ print"enter element. enter Q or q to quit.\n"; $input = ; if ($input =~ /q/i){ last; }elsif ($input =~ /=/){ $element[$ii] = $element[$ii-1]; $abrev[$ii] = $abrev[$ii-1]; print"enter beginning range\n"; $start[$ii] = ; print"enter ending range\n"; $end[$ii] = ; }else{ $element[$ii] = $input; print"enter element abreviation.\n"; $abrev[$ii] = ; print"enter beginning range\n"; $start[$ii] = ; print"enter ending range\n"; $end[$ii] = ; chop($element[$ii]); chop($abrev[$ii]); } chop($start[$ii]); chop($end[$ii]); $ii++; } $jj=0; while ( $jj < $ii){ print "$element[$jj] $abrev[$jj]\n"; print " $start[$jj] - $end[$jj]\n"; $jj++; } print OUT"\n"; print OUT"\n"; print OUT"\n"; print OUT"\n"; print OUT"\n"; print OUT"\n"; print OUT"\n"; print OUT"\n\n"; close (OUT); #close (IN); print "\nFINI\n"; #----------- subroutine: add white space ----------------# sub add_wht_space { #put subroutine arguments into subroutine variables ($spaces) = @_; if ($spaces == 0){ $spaces = 1; } for ($ii=0; $ii<$spaces; $ii++){ print OUT"   "; } print OUT"\n"; }