Scale conversions for styrene sheet

#!/usr/bin/perl ###############################################################################3 ###############################################################################3 # # genSheetChart.pl # # Author : Dan Hay ( dan@onepointed.com http://www.onepointed.com/dan/ ) # # Version 1.0 # # Date: April 1, 2005 # # Copyright 2005 Dan Hay # # This script will generate an HTML page containing a scale conversion chart # for various common sheet styrene sizes. # ###############################################################################3 ###############################################################################3 use strict; if ( $#ARGV < 0 ) { print "Usage:: $0 \n"; print "Please try again...\n\n"; exit (-1); } my ( $outfile ) = ( $ARGV[0] ); if ( ! open ( OUTFILE, ">$outfile" ) ) { print "Unable to open the output destination file '" . $outfile ."' for writing.\n"; print "Fatal error...exiting\n\n"; exit (-1); } my ( @data ) = ( .005, .010, .015, .020, .030, .040, .050, .060 ); print OUTFILE "\n"; print OUTFILE " \n"; print OUTFILE " Scale conversions for styrene sheet\n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE "

Scale conversions for styrene sheet

\n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n\n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n\n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n\n"; my ( $sizeInches, $sizeMilimeters ) = ( undef, undef ); my ( $darkColour, $lightColour ) = ( "lightskyblue", "white" ); my ( $rowColourFlag ) = ( 1 ); my ( $in72, $mm72 ) = ( undef, undef ); my ( $in76, $mm76 ) = ( undef, undef ); my ( $in48, $mm48 ) = ( undef, undef ); my ( $in35, $mm35 ) = ( undef, undef ); foreach $sizeInches ( @data ) { $sizeMilimeters = $sizeInches * 25.4; $in72 = 72 * $sizeInches; $mm72 = 72 * $sizeMilimeters; $in76 = 76 * $sizeInches; $mm76 = 76 * $sizeMilimeters; $in48 = 48 * $sizeInches; $mm48 = 48 * $sizeMilimeters; $in35 = 35 * $sizeInches; $mm35 = 35 * $sizeMilimeters; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n"; print OUTFILE " \n\n"; } #end foreach print OUTFILE "

Sheet thickness	Scale size
in	mm	1/72	1/76	1/48	1/35
in	mm	in	mm	in	mm	in	mm
" . $sizeInches . "	" . $sizeMilimeters . "	" . $in72 . "	" . $mm72 . "	" . $in76 . "	" . $mm76 . "	" . $in48 . "	" . $mm48 . "	" . $in35 . "	" . $mm35 . "

\n\n"; print OUTFILE "\n"; print OUTFILE "\n\n"; close OUTFILE; exit (0);