Perlプログラム例
私の作成したプログラムを掲載します．かなりいい加減なプログラムです.
目次
ファイルの調査・操作
文字コードをEUCに変換
ディレクトリー内の特定の拡張子を持つテキストファイルの文字コードをEUCに変換します．
$ toeuc.pl ディレクトリー 拡張子
指定したディレクトリーの文字コード調査
サブディレクトリーを含め指定したディレクトリー内の文字コードを調べます．このプログラムは web のファイル(*.html と *.php) を調べ，EUC-JP あるいは ASCII と異なる場合にパスとファイル名を表示します．WEB ページをメンテナンスするときに使いました．少しの変更で，いろいろな調べかたができます．文字コードの解析には，nkf を使っています．
$ get_char_code.pl ディレクトリー
指定したディレクトリーの文字列の調査
サブディレクトリーを含め指定したディレクトリー内のファイルの特定の文字列の検索を行います．このプログラムは web のファイル(*.html と *.php) を調べ，指定した文字列が含まれているファイル名とその行を示します．WEB ページをメンテナンスするときに使いました．文字列の指定には正規表現も使えます．
$ search_txt.pl ディレクトリー 文字列
例えばディレクトリー「www」にあるファイル中の文字列「<span class="command"」を調べるためには，「search_txt.pl www "<span class=\"command\""」あるいは「search_txt.pl www '<span class="command"'」とタイプします．
TeX 関係
web 公開のための一括処理
texの文書をWEBで公開するための以下の処理を行います．
- dviファイルを作る．
- pdfファイルを作る．
- htmlファイルを作る．ここでは，CSSとgoogle analyticsの設定も行っています．
$ tex2html.pl texのソースファイル(*.tex)
web ページのファイル操作
SSIをphpに変換
サーバーでSSIが使えなくなったので，ソースを書き換えるために作りました．私のWEBページのサイドバーを書き換えるときに使ったものです．SSIの部分をPHPのコードにしています．
$ html2php.pl htmlソースファイル(拡張子は付けない)
CSSの変更とgoogle analytics追加
htmlのCSSの部分を書き換えとgoogle analyticsのスクリプトを追加します．latex2htmlで作成したファイルの変換に使っています．
$ chhtml.pl texのソースファイルがあるディレクトリー
講義ノートページの一括変更
私の講義ノートのページを修正するために作成しました．16行目の変数 $top_dir に修正するディレクトリーを入れます．再帰的に，ファイルを修正します．
$ change_lecture.pl
画像関係
eps を gif に一括変換
ディレクトリー内の EPS ファイルを，一括して gif ファイルに変換するスクリプトです．使い方は，
$ eps2gif.pl epsファイルのディレクトリー
です．eps ファイルが読み込まれた順番に，0から整数のファイル名がつけられて，gif ファイルに変換されます．eps ファイルのディレクトリーにサブディレクトリー gif_dir が作成され，そこに gif ファイルは保存されます．これは，GNUPLOT で作成したグラフをアニメーションにするために作りました．
データ処理
csv データ解析
ディレクトリー内のcsvデータを合計する．詳細は忘れた．