[[
perl
]]
Applied Mechanics Lab. WIKI
トレース:
文書の表示
以前のリビジョン
最近の変更
サイトマップ
ログイン
この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。
====== perlのスクリプト ====== * perlのことをよく知らないので汚いと思います. ===== ディレクトリ内のepsをjpgに変換 ===== epsをjpgに変換しておくと,nautilusやビューワでサムネイルが見れる. (epsを見れるビューワがあればいいんだけど) :-) 普通にnautilusでepsファイルのサムネイルを見れました... <code perl> #!/usr/bin/perl $dir = './'; opendir DH, $dir or die "$dir:$!"; while ($file = readdir DH) { if( $file =~ m/\.eps$/ ){ @array = split(/\./,$file); $value = $array[0].".jpg"; print $file,$value; system "convert $file $value"; } } closedir DH; </code> ===== 数値計算で得られた連番ファイルを可視化 ===== <code perl> #!/usr/bin/perl $gpfile .= sprintf("%s\n","set terminal gif"); $gpfile .= sprintf("%s\n","set pm3d map"); for($i=1;$i < 30;$i++){ $file = sprintf("hoge%04d",$i*10); $gpfile .= sprintf("%s\n","set output \"$file.gif\""); $gpfile .= sprintf("%s\n","splot \"$file.dat\" using 1:2:5"); }; open (GP, "| gnuplot" ) or die "no gnuplot"; print GP "$gpfile"; close GP; system("gifsicle --delay 50 hoge*gif > anime.gif"); </code> gifsicle はgifアニメを作成するツール.アニメを見るにはgifview. <code bash> gifview -a anim.gif </code>
perl.txt
· 最終更新: 2010/02/27 13:16 by
saito
文書の表示
以前のリビジョン
[unknown link type]
文書の先頭へ