memo/program/perl

perl †

calmass.pl †

NNDCのmassテーブルをよみこんで原子核の質量を計算

ecisangle.pl †

ECISのoutputからINELASTIC CROSS SECTION を抜き出してfileに書き出す

ecisangle.pl ecis.out ecis.dat

ecis.outというECISのoutputからINELASTICの部分の断面積をecis.datに書く

コマンドラインでのperl の例 †

> perl -e 'for($i=0;$i<10;$i++){print "$i\n";}'
0
1
2
3
4
5
6
7
8
9
>

これを使うとANAファイルでID1-100とかのヒストグラムの定義も楽チン。

ファイル内の文字の置換 †

> perl -p -i.bak -e 's/\'/a/g' *.html
htmlファイル中の「'」を「a」に置換

IPアドレスでソート †

ルーターのIPの設定一覧は

xxx xxx hostname IP

のようなフォーマットでhostnameでソートされている。これをIPでソートするために作ったスクリプト。