hirax.net::Keywords::「スクリプト」のブログ

■blosxom starter kit　

　「シンプルでかつ拡張性の高いCGIスクリプトであるblosxomを「blogっぽく」というコンセプトで簡単に導入できるようにしたアーカイブ」のblosxom starter kit. from void GraphicWizardsLair( void ); //

■エクセルで円グラフを描くPerlスクリプト　

　「エクセル＝時間泥棒犯人説」というものもあるが、それに加えて「エクセルのおかげでプログラムを組んだことのない物理・化学系の学生」が増えているような気がする。かつては、イヤでもN88 BASICでGP-IB制御をしたりしなければいけない状況が多かったり、データ解析も手作りでやらなければいけない(既存のものは高価だったり、そういった既存ソフトの情報が入手できなかったりするといった)状況も多かったせいかもしれないが、おそらく今よりはもう少し「プログラムを組んだことのある学生が多かった気がする」
　そして、その傾向を助長しているのが、「便利この上ない使い勝手の良いExcel」のせいではないかと私は少し疑っていたりもする。とはいえ、もちろん「物理・化学系の学生での割合」での話、しかも「曖昧な印象」での話である。

　それはさておき、AmetMulti用に引数で渡されたデータを元に、「Excelで円グラフを描いて画像ファイルを保存する」小人さんPerlスクリプトを作成。円グラフ作成はGnuPlotでは描けないし、せっかくあるExcelを使わないのも損だし、だけどExcelでのグラフ作成を手作業でやるはもっと損だし、というわけでテキトーに仕立ててみました。ちなみに、サンプルそのままのだと

>excelPiChart.pl USA,102;CANADA,150;日本,340;中国,34 金メダル

■エクセルで円グラフCGI　

　昨日のエクセルで円グラフを描くPerlスクリプトでエクセルで円グラフCGIを動かしてみる。とりあえず、デフォルトの入力値は「洋式トイレのふち裏汚れ」の研究結果を使ってみよう。適当にデータをコピペして、ボタンクリックでエクセルのグラフができあがり。
　ちなみに、下のグラフ例の「その他」はウソっこデータですので、気にしないで下さい。

　とりあえず、「アイデアを適当にスケッチする」「データを眺めながら遊ぶ」ような作業以外でExcelを使うのは避けたいもの。

■webrick で proxy server　

　webrick で proxy server.　サンプルスクリプトは「mixiの広告をカットするプロキシサーバ」

■WindowsのCUI版zphoto　

　WindowsのCUI版zphotoが欲しい、という話題。以前は、Windows版もCUIのみだったが、今ではGUI版のみのバイナリが配布されている。そこで、マウスを使いたくない時、だけどコンパイル作業がメンドクサイ時に作ったスクリプトがこれ。あぁ、なんて強引。「マウスは使ってない(あくまで私は)」という強引さ。

use Win32::GuiTest qw( FindWindowLike GetWindowText SetForegroundWindow MouseMoveAbsPix SendMouse GetWindowRect SendKeys);
my $pid = fork;
die unless defined $pid;
if($pid) { sleep 1;
@windows = FindWindowLike(0, "フォトアルバムを作成");
foreach my $win (@windows) { SetForegroundWindow($win);
SendKeys("{ENTER} {TAB}{ENTER}{ENTER}");
} for(my $i = 0;
$i < 61;
$i++){ @windows = FindWindowLike(0, "フォトアルバムが作成されました");
if(@windows > 0){ last;
} else{ sleep 1;
} if($i == 60){ &error("Time Out!");
exit;
} }foreach my $win (@windows){ SetForegroundWindow($win);
SendKeys("{TAB}{ENTER}%{F4}");
} exit;
}system("\"$zphoto\" -o \"$SwfPath\" --photo-width=800 --gamma 1.25 --title \"ppt2zphoto\" $Slides");
exit;