#! c:/perl/bin/perl # # calc.cgi # # A calculator # # 1.0 : 10/5/05 : Created # # $Id: calc.cgi,v 1.1 2005/10/06 02:15:46 Hideki Kanayama Exp $ use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); use File::Basename; my $lastupdatedyear = '2005'; my $version = '1.0'; my $script = basename($0); my $charset = 'Shift_JIS'; my $lang = 1; my $back = "calc.html"; my $q = new CGI; my $cgierror = $q->cgi_error; &error($cgierror) if ($cgierror); my $expression = $q->param('expression'); my $title = ('“d‘ì','Calculator')[$lang]; &htmlhead($title); &inputform; &calc if ($expression); &htmltail; sub backlink { print ""; print (('–ß‚é','Back')[$lang]); print "\n"; } sub calc { my $result; if ($expression !~ /[a-zA-z]/){ $result = eval $expression; if ($@){ print '
Invalid input
'; &htmltail; } print "
$expression = $result
"; } else { print '
Invalid input
'; &htmltail; } } sub inputform { print "
\n"; print "
\n"; print ""; print "\n"; print "
\n"; print "
\n"; } sub htmlhead { my $title = shift; print $q->header(-charset=>"$charset"); print ""; print < $title HEADPRINT } sub htmltail { &backlink; my $mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang]; print "
$script $version
Copyright(c) $lastupdatedyear, hidekik.com
\n"; print ""; print ""; exit; } sub error { my ($msg) = shift; &htmlhead($msg); print "
$msg
\n"; &htmltail; exit; }