INPUT

#! /usr/bin/perl require './jcode.pl'; #外部ファイル読み込み###################################### #かなり使います。また書き込み時や読み込みの方法によって #文法が変わります。 ########################################################### open(IN, "<./test2.txt"); @inbun=; close (IN); #外部ファイル読み込み終了################################## #Content-type: text/htmlとの間は２回改行が必要！！ # #したがってContent-type: text/html\n\nと\nを２回入れる # #ｈｔｍｌ書き出し########################################## ########################################################### #売上状況 # ########################################################### if ($ENV{'REQUEST_METHOD'} eq "POST"){ read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } ############################################################### #文字変換の内容しょっちゅう使います # #htmlのフォームからの入力とセットで使います　　　　　　　　　 # #$bufferを最終的には$nameと$valueという形にsplitによって切り出# #します。 # ############################################################### #$FORMには配列の@FORMが入っています？ @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/\r//g; &jcode'convert(*value,'euc'); $FORM{$name}=$value; } ############################################################### #切り出した$nameと$valueのセットを$day(時間）と$number # #の文字列をつけた状態の物を$bunに代入 # ############################################################### ############################################################### #文字を変換し書く変数に代入　# ############################################################### $nen1=jcode::jis("年"); $getu1=jcode::jis("月"); $nichi1=jcode::jis("日"); $ji1=jcode::jis("時"); $fun1=jcode::jis("分"); $ut1=jcode::jis("売上点数"); $uk1=jcode::jis("売上金額"); $ht1=jcode::jis("返品点数"); $hk1=jcode::jis("返品金額"); $zt1=jcode::jis("在庫点数"); $zk1=jcode::jis("在庫金額"); $tokki1=jcode::jis("特記事項"); $denp1=jcode::jis("伝票番号"); $rui1=jcode::jis("累計"); $kaiten1=jcode::jis("回転率"); $t1=jcode::jis("（点数）"); $k1=jcode::jis("（金額）"); $jyunu1=jcode::jis("純売上"); $jyunk1=jcode::jis("純売上金額"); $modoru1=jcode::jis("戻る"); #$bunsyou1=jcode::jis("純売上"); #$bunsyou1=jcode::jis("純売上"); #$bunsyou1=jcode::jis("純売上"); print"Content-tytpe: text/html\n\n"; print"INPUT"; print""; print""; print""; print""; print""; print""; for($i=0;$i<@inbun;$i++){ my @retu=split(/\t/,$inbun[$i]); print ""; for($j=0;$j<@retu;$j++){ print""; } print ""; } print"

$nen1

$getu1

$nichi1

$ji1

$fun1

$ut1

$uk1

$ht1

$hk1

$zt1

$zk1

$tokki1

$denp1

@retu[$j]

"; ###################################################################### #累計　 # ###################################################################### print"

"; print"$rui1"; print""; print ""; $gou = 0; $gouk = 0; $goukht = 0; $goukh = 0; $gouzt = 0; $gouzk = 0; for($i=0;$i<=$#inbun;$i++){ my @retu=split(/\t/,$inbun[$i]); $gou+=$retu[6];#累計売上点数 $gouk+=$retu[7];#累計売上金額 $goukht+=$retu[8];#累計返品点数 $goukh+=$retu[9];#累計返品金額 $gouzt+=$retu[10];#累計在庫点数 $gouzk+=$retu[11];#累計在庫金額 #$gou = $gou + $retu[6] #

} print""; print"

$rui1$ut1	$rui1$uk1	$rui1$ht1	$rui1$uk1	$rui1$zt1	$rui1$zk1
$gou	$gouk	$goukht	$goukh	$gouzt	$gouzk

"; ################################################################# #回転率　　# ################################################################# print"

"; print"$kaiten1"; print""; print""; #$kaitent =int($gou/$gouzt); $kaitent =$gou/$gouzt; #$kait = printf("%4d",$kaitent); $kaitenk =$gouk/$gouzk; print""; print"

$kaiten1$t1	$kaiten1$k1
$kaitent	$kaitenk

"; ################################################################## #純売上 # ################################################################## print"

"; print"$jyunu1"; print""; print""; $jun=$gouk-$goukh; print""; print"

$jyunk1

$jun

\n\n"; print"
$modoru1
"; print"";