改造

改造に協力しろ。

最近の株価の変動をビジュアルに表示する。

kabu.cgiのケツの方をこんな感じで。

---

↑自分のレベルの低さに泣ける。cgiとか触った程度のド素人だぜぃ。

これってソースの一文でみんな把握できるもんなの？環境こっそりつくってがんばってみるよ。公開とんくす

棒グラフとか描くには、GD::Graphを使うべきか、それはサーバー依存なのか、負荷がどのくらいあるか

まだまだ課題が多いです。でもちょっとづつやるお＜int

---

↑これはGDとか使ってないかなりおバカなグラフだよ。そんなに難しいことはやってない。

	print "<table border='1' bgcolor='#ffffff' cellspacing='0' cellpadding='0' align='center' width='80%'>\n";
	print "<tr><td><b>株価動向</b><br>". _chart() ."</td></tr></table>\n";
	print "<div align=\"right\">Edit:たっちゃん<div>\n";
	&hooter("login_view","戻る");
	exit;
}

sub _chart{
	if( -z "./log_dir/kab_hendou.cgi" ){
		error( "データファイルが壊れました。1" );
	}
	open( $in, '<', './log_dir/kab_hendou.cgi' ) || error( "Open Error : ./log_dir/kab_hendou.cgi" );
	@event_log = <$in>;
	close( $in );
	$_current = shift @event_log;
	@stock_price = split( "<>", $_current, 6 );
	pop @stock_price;
	unshift @chartA, $stock_price[0];
	unshift @chartB, $stock_price[1];
	unshift @chartC, $stock_price[2];
	unshift @chartD, $stock_price[3];
	unshift @chartE, $stock_price[4];
	$ret = '';
	foreach( @event_log ){
		chomp;
		$l = $_;
		$ret .= $l;
		
		$l =~ s/<br>//ig;
		( $movement, $move ) = split( /\s/, $l );
		if( $movement =~ /([A-E])新商品(成功|失敗)/ ){
			$meigara = $1;
			$stock_price[0] -= $move if "A" eq $meigara;
			$stock_price[1] -= $move if "B" eq $meigara;
			$stock_price[2] -= $move if "C" eq $meigara;
			$stock_price[3] -= $move if "D" eq $meigara;
			$stock_price[4] -= $move if "E" eq $meigara;
		}else{
			@temp = split /,/, $move;
			$stock_price[0] -= (split /\s/, $temp[0])[0];
			$stock_price[1] -= (split /\s/, $temp[1])[0];
			$stock_price[2] -= (split /\s/, $temp[2])[0];
			$stock_price[3] -= (split /\s/, $temp[3])[0];
			$stock_price[4] -= (split /\s/, $temp[4])[0];
		}
		unshift @chartA, $stock_price[0];
		unshift @chartB, $stock_price[1];
		unshift @chartC, $stock_price[2];
		unshift @chartD, $stock_price[3];
		unshift @chartE, $stock_price[4];
	}
	$dev = 300;
	$img_width = 5;
	@loop = ('a','b','c','d','e');
	$al->{'A'} = \@chartA;
	$al->{'B'} = \@chartB;
	$al->{'C'} = \@chartC;
	$al->{'D'} = \@chartD;
	$al->{'E'} = \@chartE;

	$ret2 = '<h2>株価変動</h2>';
	foreach $key ( sort keys %$al ) {
		$ret2 .= "<p>$key株チャート</p>";
		$ret2 .= '<p>';
		foreach $a( $al->{$key} ){
			foreach( @$a ){
				$h = int( $_ / $dev );
				$ret2 .= "<img src='$key.gif' height='${h}' width='$img_width'>";
			}
		}
		$ret2 .= '</p>';
	}
	return $ret . $ret2;
}

表示サンプル