ちょっとしたツール集

あなたは 人目のお客様です．

坂井が作った，「ちょっと便利なツール」を公開してみることにしました． 使いたい人にあげます．かってにどうぞ．
当然ですが，まったく無保証です．利用結果に対しての責任も一切もちません． 更新も気がむいたときにしかしません．
たいていのものは，ソース中に詳しい説明がコメントされているか， -help オプションとかがありますので，具体的な使用方法は， そっちを参照してください．

• mnewsでメール送信時にファイルを添付させるスクリプト
  • mnewsでメール送信時にファイルを添付する際に利用します．
  • ここで紹介されている mmfilterと同様の使いかたをします．
  • 上記mmfilterは添付できるファイルのサイズに上限があるみたいなので，perlで 同等のスクリプトを書いてみました．こちらはファイルサイズに上限がありません．
• 簡易プリプロセッサ
  • ##ifdef, ##ifndef, ##else, ##endif のみ処理できる，簡易プリプロセッサです．
  • ネストも適切に処理してくれます．
  • htmlの処理にプリプロセッサを使用したかったが，cpp だとhtml中で紹介している ソースコードなどの中で #ifdef とか # で始まる行とかがあると，そこも処理対象に なってしまうのと，cpp の標準の定義文字が変換されてしまったり，/* */ は コメントと解釈されて削除されてしまったりと，いろいろ考えなきゃならなくて 面倒だったので，##ifdef のみ適切に処理してくれるプリプロセッサを自作しました．
  • 文書処理に便利です．
• FreeBSD でパッケージを自動でインストールするためのperlスクリプト
  • 他のマシンにインストールしてあるパッケージのリストを与えてやると， そのパッケージを自動でインストールしてくれます．同じアプリケーション環境の マシンを複数作りたいときに便利．
    (パッケージインストール済みのマシンで ls /var/db/pkg > pkgs とかして， 別マシンで pkgsadd.pl pkgs を実行すると，同じパッケージを自動でインストール することができる)
  • 必要なら ftp でパッケージをもってきてくれます．
  • パッケージの依存関係も再帰的に解決してくれます．
  • $pkgdir を変えることにより，CD-ROM とかからもインストール可能．
• メール受信用簡易perlスクリプト
  • メール(SMTP)を受信し，メールの本文を指定したプログラムにパイプで流し込む．
  • OpenBlockSでのメール受信用に作成．
  • 25番ポートを使用する場合には，sendmail を kill して，スーパーユーザで 起動する必要がある．(一般ユーザでは 25 番ポートは使用できないので注意)
• tail互換の簡易perlスクリプト
  • OpenBlockSでtailを使いたかったので作成．
• rpmファイルの展開用スクリプト
  • FreeBSD上で rpm ファイルを展開するのに使用してます．
• 複数のファイルを複数のフィルタにまとめて通して ファイルをまとめて変換してくれるperlスクリプト

  • > filters.pl "nkf -e" sort "head -n 3" -f sample1.txt sample2.txt sample3.txt
    

    のように実行すると，以下と等価の動作をします．

    > mv sample1.txt sample1.txt.old
    > cat sample1.txt.old | nkf -e | sort | head -n 3 > sample1.txt
    > mv sample2.txt sample2.txt.old
    > cat sample2.txt.old | nkf -e | sort | head -n 3 > sample2.txt
    > mv sample3.txt sample3.txt.old
    > cat sample3.txt.old | nkf -e | sort | head -n 3 > sample3.txt
    

  • 使用例1:複数のHTMLファイルを全部 nkf に通して，漢字コードを全部 EUC に 統一したいときの例

    > filters.pl "nkf -e" -f *.html */*.html */*/*.html
    

• html文書中の表をテキスト形式の表(罫線つき)に変換する フィルタ
  • html ファイル中の，＜table＞＜/table＞で囲まれた部分を罫線つきの テキストの表に変換します．
  • ＜tableofcontents＞も変換しようとしてしまうバグがあるので， htmltoc を使用している場合には注意してください．
  • やっつけで書いたソースを適当に修正しただけのものなので，汚いです．謝々．
• mnews でバイナリファイルを送りたいときなどに， 複数のテキストファイルやバイナリファイルを multipart 形式にして結合して， メールで送信できるようにする perl スクリプト(2001/7/29改良版)
  • mnews はバイナリファイルの送信に対応していないので， バイナリファイルをメールで送信したいときに multipart 形式にするための プログラムです．
  • バイナリファイルはbase64でエンコードするように改良しました． (uuencode だと mnews が正しくデコードしてくれなかったため)(2001/1/17改良)
  • multipart の boundary line は RFC 的には -- で始まらなければならないの だが，そうなってなかったために，メーラによってはちゃんとデコード できなかった問題を修正しました．(2001/3/7改良)
  • ↑バグがありました．修正しました．ついでに拡張子のデータベースに .bmp, .tiff, .lhz, .Z を追加．(2001/3/8改良)
  • .c, .h, .doc, .xls ファイル対応．(2001/7/29改良)
• ソース中の #ifdef 〜 #else 〜 #endif で くくられている部分を色別に表示して，#ifdef の対応を調べてくれるフィルタ

  • cat sample.c | ./colorif.pl

    のようにして使います．
  • 会社の先輩が作った改良版．自分のコーディングの 下手さが身にしみる...
  • オプションは，-d で #ifdef の深さを数値で表示．-nc でカラー無し．

  • (行頭)(0個以上の空白文字)#(0個以上の空白文字)ifdef
    

    のようになっている部分を検索するが，/* */のコメントは解釈してくれないので，

    /*
    #ifdef HOGEHOGE
    */
    

    のようなのがあると，期待どおりに動作しません．(こんなコード書くなよな!)

    /*
     * #ifdef HOGEHOGE
     */
    

    や，

    /* #ifdef HOGEHOGE */
    

    や，

       #   elsif BOGEBOGE
    

    は，期待どおりに動作します．
• Socket接続の通信の内容を調べるためのperlスクリプト その２
  • その１のほうは，以下の問題点があったので，改良しました．
  • \n単位で読みとっていたので，\nでなく\rを使ってたり，そもそも改行コードを 使ってなかったりするサービスだと，動作しなかった．このため， telnetなどで動作しなかった．
  • 対策として，getcで一文字ずつ読みとってファイルに書き込むように改良した．
  • このため，バイナリデータも wrap できるようになった．
  • 詳しい使い方は，その１のほうを参照してください．このページの 下の方にあります．
• HTML文書にセクション番号を入れるための Perlスクリプト
  • htmltoc と組み合わせて，HTML文書に目次を入れるのに使ってます．
  • このページ は，htmlsec.pl と htmltoc を使って目次を作成しました．
  • さまざまな機能を追加して， htmlsection というフリーソフトにして公開してます(2001/10/02)．
    今後はこちらをお使いください．はるかに高機能です．
• kterm上でバイナリファイルを表示しようとしたら 文字が化け化けになってしまって，Ctrl + マウスの中ボタンでのリフレッシュも なぜかできないときにリフレッシュするためのコマンド
• ファイルの漢字コードを変換するためのスクリプト
  • 複数のHTMLファイルの漢字コードをまとめて変換するために作りました．

  • code2euc.sh `find . -name "*.html" -print`
    

    のようにして，使用します．
• テキストファイル中のtabコードを，適切な数の 空白に置き換えてくれるフィルタ
• バイナリファイルのダンププログラム
  • 拡大フォント作成プログラムを作ったときに，フォントデータの バイナリファイル中に埋め込まれた文字列を調べるのに使用した，のだと思うたしか．
• プログラムソース中の括弧の対応関係を調べるための プログラム
• ターミナルの文字の色や属性(ブリンクとか，リバースとか， アンダーラインとか)を操作するためのプログラム
  • Librettoのコンソールで作業をするときに，文字をハイライトにして 明るく見やすくしたかったので，作りました．
• プログラム中でCPU使用時間を測定するための ライブラリ
• Socket接続の通信の内容を調べるためのperlスクリプト その１
  • こういうことをします．

    (通常のftp接続)
    host1      |     host2
    ftpd ← 21port → ftp
               |
    
    (wrapper.plにより，通信内容をダンプする)
    host1      |                  host2
    ftpd ← 21port → wrapper.pl ← 10023port → ftp
               |          ↓
               |   標準出力にダンプ
    

  • host2> wrapper.pl host1 21 10023    (host1 の ftpd に接続し，host2 の 10023ポートを開く)
    host2> ftp host2 10023              (host2 の 10023 ポートに ftp 接続する)
            (wrapper.pl が host1 の ftpd と host2 の ftp の間の橋渡しをして，
             ついでに通信の内容を標準出力にダンプする)
    

    とか，

    host2> wrapper.pl www.hogehoge.ac.jp 80 10023
    host2> netscape www.hogehoge.ac.jp:10023
    

    のようにして使います．
  • ソケット通信の内容を表示するためのラッパです． サーバとクライアントの間に入って，サーバとクライアント間の通信の 橋渡しをして，通信の内容をダンプします．
  • FTPやHTTPのプロトコルをちょっと 知りたいときとか，ネットワークアプリケーションのデバッグとかに便利．
• ファイルをまとめてダウンロードするための perlスクリプト

  • > httpget.pl www.hogehoge.jp/~hoge hanabi1.png hanabi2.png ...
    

    のようにして使用します．複数ファイルを，まとめてダウンロードしてくれます． (HTTPのみです．FTPには対応してません)
  • これを作った後に，wget という便利なプログラムの存在を知りました...
    いつものことだけど，「作る前に，もうちょっと調べろ」と思った...
  • くわしい使いかたは，ソースのコメント参照．
• apache のログを読むためのperlスクリプト
  • apache のログ(/usr/local/apache/logs/access_log)を80カラムの端末で 読むときのためのフィルタです．重要な情報だけを抽出してくれます．

  • > cat /usr/local/apache/logs/access_log | logread.pl | more
    

    のようにして利用します．

• トップページに戻る