#!/usr/bin/perl use CGI; my $TITLE = "Preparation of ethanol solutions"; my $CGI = CGI->new(); my $SCONC = $CGI->param("StockConc") || ''; my $FVOL = $CGI->param("FinalVol") || ''; my $WCONC = $CGI->param("WantedConc") || ''; print < $TITLE sabina.anzlovar.com
$TITLE EOF display_form(); display_result(); print "\n"; # ---------------------------------------------------------- sub display_result { return if $FVOL eq '' or $SCONC eq ''; print "\n"; print "\n"; my ($nn,$conc, $etoh, $water, $total); my ($class,@class); $nn = 0; my %CONC = (10=>1,20=>1,30=>1,40=>1,50=>1,60=>1,70=>1,80=>1,90=>1,$WCONC=>1, $SCONC=>1); foreach $conc (sort {$a <=> $b} keys %CONC) { @class = (); next if $conc eq ''; $etoh = sprintf ("%d", ($conc / $SCONC * $FVOL)); # $etoh = $conc / $SCONC * $FVOL; $water = $FVOL - $etoh; $total = $etoh + $water; push (@class, "negative") if $water < 0; push (@class, "positive") if $water > 0; if ($conc eq $WCONC) { push (@class, 'selected'); } if ($conc eq $SCONC) { push (@class, 'zero'); } $class = ""; $class = "class='".join(' ',@class)."'" if @class; print "\n"; # print "\n"; } print "
Conc.
[%]		EtOH
[mL]		Distilled
water
[mL]		Total
[mL]
${conc}%".sprintf("%d",$etoh)."".sprintf("%d",$water)."".sprintf("%d",$total)."
${conc}%$etoh$water$total
\n"; } # ---------------------------------------------------------- sub display_form { print <
Stock conc. %
Final volume mL
Wanted conc. %
EOF }