適当なスクリプト集

このページには、私が作った適当なスクリプトを載せております。
誰も使わないような物や、もっとスマートな解決方法があったり、環境にすごく依存したり、バグってたり、まともに動かなかったりするかもしれません。
あまり信用しないように。。。

Ｗｅｂ

ケイタイ手帳登録 for J-D05
JavaScript
InternetExplorer/NetscapeNavigator/...
OutlookExpress/Becky/...
2002.03.29
J-PHONEの携帯電話 J-D05（三菱）のケイタイ手帳にメールで登録するものです。
J-D05以降の三菱端末（J-D06, J-D07, J-D08, V301D, V401D）でも使用できます。
わかる人だけ使用してください。
ブラウザによっては、全く使い物にならなかったり一部制限（全角文字不可など）が出ます。
また、メール送信自体はメールソフトを使うので、ブラウザから連携可能なメーラが必要です。
ファイルを（メールアドレスなど初期値を編集して）自分のデスクトップに置いておくと便利です。
ＰＣにアニメっちゃがインストール済みの環境向けの改造例(for IE)
(2004.11.28) また、アイコン画像＆似顔絵簡易対応版を作成していただきましたので紹介しておきます。
Cookie保存にも対応しているので便利です。 Thanks Mr. Hata

連番展開
JavaScript
InternetExplorer/NetscapeNavigator/...
2002.03.29
URLでファイル名やディレクトリ名の数字が１から１００までなど連続している場合に展開します。
http://www.hogehoge.com/image/[1-100].jpg を展開すると言った方がわかるかな。
ダウンロードツールでこういう表記（連番展開）に対応している物もありますけどね。

IEが使用するMSXMLのバージョンを調べる
MSXML
InternetExplorer
2004.01.27
IEでXMLのスタイルシートを使用する際に適用されるmsxmlのバージョンを調べます。
旨く表示されない場合は対応していないほど古いということで。
IE6標準でmsxml3です。IE5.5でもmsxml3を入れることが可能です。
IEでスタイルシートを使う場合msxml3じゃないと制限が多いです。

ケイタイ手帳登録 for J-D05 JavaScript InternetExplorer/NetscapeNavigator/... OutlookExpress/Becky/... 2002.03.29	J-PHONEの携帯電話 J-D05（三菱）のケイタイ手帳にメールで登録するものです。 J-D05以降の三菱端末（J-D06, J-D07, J-D08, V301D, V401D）でも使用できます。わかる人だけ使用してください。ブラウザによっては、全く使い物にならなかったり一部制限（全角文字不可など）が出ます。また、メール送信自体はメールソフトを使うので、ブラウザから連携可能なメーラが必要です。ファイルを（メールアドレスなど初期値を編集して）自分のデスクトップに置いておくと便利です。ＰＣにアニメっちゃがインストール済みの環境向けの改造例(for IE) (2004.11.28) また、アイコン画像＆似顔絵簡易対応版を作成していただきましたので紹介しておきます。 Cookie保存にも対応しているので便利です。 Thanks Mr. Hata
連番展開 JavaScript InternetExplorer/NetscapeNavigator/... 2002.03.29	URLでファイル名やディレクトリ名の数字が１から１００までなど連続している場合に展開します。 http://www.hogehoge.com/image/[1-100].jpg を展開すると言った方がわかるかな。ダウンロードツールでこういう表記（連番展開）に対応している物もありますけどね。
IEが使用するMSXMLのバージョンを調べる MSXML InternetExplorer 2004.01.27	IEでXMLのスタイルシートを使用する際に適用されるmsxmlのバージョンを調べます。旨く表示されない場合は対応していないほど古いということで。 IE6標準でmsxml3です。IE5.5でもmsxml3を入れることが可能です。 IEでスタイルシートを使う場合msxml3じゃないと制限が多いです。

CoCoon関連

CoCoonの録画リスト取得とダウンロード
Perl, XML, XSL
Linux, Win
2004.01.27
2004.02.23更新
SONYのCoCoon CSV-E77, EX9, EX11（＜コクーン＞チャンネルサーバ）にアクセスする”実験用”です。
仕組みはSOAPAction: "urn:schemas-upnp-org:service:ContentDirectory:1#Browse"を使います。
　・録画済タイトルの一覧取得
　・リストのソート表示
　・ダウンロード（MPEG2-TS）
コマンドラインとして動かす他に、CGIとして動かすことができます。
実行結果はXMLデータとして出力します。MSXMLのXSLTを利用してIEで整形表示できます。
これをやってみるきっかけになったのはCCClientです。多謝。
スクリプトとは関係ありませんが、ついでなのでffmpeg mp3対応ビルド手順を書いておきます。
おまけでCCC_TS2PSCore cygwin対応ビルド手順を書きました。
もう一個CCC_TS2PSCoreをLinuxで使うなんてのも書いてみました。Solarisでも使えるそうです。
↑(2004.02.14)ffmpegとCCC_TS2PSCoreの音声多重（２ヶ国語）放送のＣＭカット対応差分を載せました。
↑(2004.02.22)ffmpegの音声多重（２ヶ国語）放送のＣＭカット対応差分を更新しました。

どんどん話がそれますがHDD換装したのでメモを残しました。

ssdp:discover
Perl
Linux, Win
2004.05.22
CoCoonを検索するときに使用される ssdp:discover です。
例によって低レベルなソケット記述で。
これを応用すればIPアドレス自動検索が実装できるでしょう。

CCClient Transcoding.ini TinyEditor
JavaScript
InternetExplorer/NetscapeNavigator/...
2004.02.08
2004.02.15更新
CCClientの変換定義ファイル Transcoding.ini の編集を手助けします。
個人的お勧め設定はTranscoding.ini (2004.02.22更新）です。（上のffmpeg mp3対応ビルドが必要です）
320x240の方が大体１時間番組（５４分）で330MB、DVD-Rに１クール（１１～１２話）収めやすい。
640x480の方はその倍か時間半分。映像+音声で1.5Mbpsちょいなので、最近のネットワークプレイヤーの許容範囲ギリギリ。
モノラル音声の物は音声レートを少し下げて稼ぐ。（これでステレオもモノラルもCoCoonの半分です。）

ffmpegバッチエンコード
ステレオ放送　モノラル放送　２ヶ国語放送
cygwin, ffmpeg
Windows
2004.04.10
上のffmpeg.exeを使って、複数のMPEGファイルを順番にエンコードします。
フルパスのファイル名を１行に１個記述したテキストファイルを用意します。→サンプル
ファイル名は扱いやすいように cygwin 上のパス表記ではなく、Windows上のパス表記です。
viなどエディタでファイル編集状態にして、エクスプローラからmpegファイルをCygwinのウインドウにDrag&Dropするとファイル名を簡単に入力できます。

使用法（cygwin上で）
　./ffenc320 リストファイル名
　./ffenc320 リストファイル名 ; shutdown -s　　　（セミコロンでつなげてshutdown）
などと指定すると、全部エンコード終わった時点でマシンの電源を落とせて便利です。
使用するには、ffmpeg.exeが必要です。また２ヶ国語対応は上で紹介しているパッチを宛てたffmpeg.exeが必要です。デフォルトのままだとC:\Program Files\CCClient\cores\ffmpeg.exe を使います。各自の環境に合わせてください。

CoCoonの録画リスト取得とダウンロード Perl, XML, XSL Linux, Win 2004.01.27 2004.02.23更新	SONYのCoCoon CSV-E77, EX9, EX11（＜コクーン＞チャンネルサーバ）にアクセスする”実験用”です。仕組みはSOAPAction: "urn:schemas-upnp-org:service:ContentDirectory:1#Browse"を使います。　・録画済タイトルの一覧取得　・リストのソート表示　・ダウンロード（MPEG2-TS）コマンドラインとして動かす他に、CGIとして動かすことができます。実行結果はXMLデータとして出力します。MSXMLのXSLTを利用してIEで整形表示できます。これをやってみるきっかけになったのはCCClientです。多謝。スクリプトとは関係ありませんが、ついでなのでffmpeg mp3対応ビルド手順を書いておきます。おまけでCCC_TS2PSCore cygwin対応ビルド手順を書きました。もう一個CCC_TS2PSCoreをLinuxで使うなんてのも書いてみました。Solarisでも使えるそうです。 ↑(2004.02.14)ffmpegとCCC_TS2PSCoreの音声多重（２ヶ国語）放送のＣＭカット対応差分を載せました。 ↑(2004.02.22)ffmpegの音声多重（２ヶ国語）放送のＣＭカット対応差分を更新しました。どんどん話がそれますがHDD換装したのでメモを残しました。
ssdp:discover Perl Linux, Win 2004.05.22	CoCoonを検索するときに使用される ssdp:discover です。例によって低レベルなソケット記述で。これを応用すればIPアドレス自動検索が実装できるでしょう。
CCClient Transcoding.ini TinyEditor JavaScript InternetExplorer/NetscapeNavigator/... 2004.02.08 2004.02.15更新	CCClientの変換定義ファイル Transcoding.ini の編集を手助けします。個人的お勧め設定はTranscoding.ini (2004.02.22更新）です。（上のffmpeg mp3対応ビルドが必要です） 320x240の方が大体１時間番組（５４分）で330MB、DVD-Rに１クール（１１～１２話）収めやすい。 640x480の方はその倍か時間半分。映像+音声で1.5Mbpsちょいなので、最近のネットワークプレイヤーの許容範囲ギリギリ。モノラル音声の物は音声レートを少し下げて稼ぐ。（これでステレオもモノラルもCoCoonの半分です。）
ffmpegバッチエンコードステレオ放送　モノラル放送　２ヶ国語放送 cygwin, ffmpeg Windows 2004.04.10	上のffmpeg.exeを使って、複数のMPEGファイルを順番にエンコードします。フルパスのファイル名を１行に１個記述したテキストファイルを用意します。→サンプルファイル名は扱いやすいように cygwin 上のパス表記ではなく、Windows上のパス表記です。 viなどエディタでファイル編集状態にして、エクスプローラからmpegファイルをCygwinのウインドウにDrag&Dropするとファイル名を簡単に入力できます。使用法（cygwin上で）　./ffenc320 リストファイル名　./ffenc320 リストファイル名 ; shutdown -s　　　（セミコロンでつなげてshutdown）などと指定すると、全部エンコード終わった時点でマシンの電源を落とせて便利です。使用するには、ffmpeg.exeが必要です。また２ヶ国語対応は上で紹介しているパッチを宛てたffmpeg.exeが必要です。デフォルトのままだとC:\Program Files\CCClient\cores\ffmpeg.exe を使います。各自の環境に合わせてください。

ネットワーク関連

SNMP TRAP キャッチャ
Perl
Linux, Win
2001.08.11
SNMP（ネットワーク管理のプロトコル）関連で、UDPで送られてくる情報を拾ってファイルに落とします。
本当はまじめにsnmpを入れるんでしょうけど、調べてみたらすごく複雑そうだったのであきらめました(^^;)
というわけで、snmp-trapの162/udpを受信してみたら使えそうだってんで書いたスクリプトです。
ポートが162なんで、root権限で起動してください。/etc/rc.dでバックグラウンド起動させておくと良いかも。
Perlならもっと便利なパッケージもあるんだろけど、そんなもん知らないからゴリゴリ全部書いてます。
きっかけはブロードバンドルータの Linksys の BEFSR41 ってやつのログを拾いたかったというものです。
Code Redなんてウイルス（ワーム）が流行ってるんで、その様子を見たいんでね。
というわけで、このルータ用にちょっとコードいじってあります（メッセージのIPアドレスをドメインに変換する）
ポート番号変えれば汎用のUDPダンパになりそうな。。。514にすればsyslogとか。
まあsyslogは普通システムで上がってるんで有っても意味無いでしょうけど。

logresolv　 getip　 rresolv
sh sed awk Perl wget nslookup ...
Linux
2001.08.11
ブロードバンドルータ BEFSR41 の「WAN→LANのアクセスログ一覧」のIPアドレスをドメイン名に変換します。
事前にカレントに cache/ というディレクトリ作成してください。
また、３つのファイルとcacheディレクトリがカレントに無いと使えません。(^^;)
数回使っただけでもういいやって感じのスクリプトです。たぶん。
当然ですが、logresolvの中のパスワードやらIPアドレスは事前に変更しなければいけません。

trap_stat1　 trap_stat2　 trap_stat3
sh awk ...
Linux
2001.08.11
SNMP TRAP キャッチャで保存したブロードバンドルータ BEFSR41 のログから簡易統計を取ります。
trap_stat1 ... ホスト別アタック?(@in)受信回数ランキング
trap_stat2 ... 日付別アタック?(@in)受信回数ランキング
trap_stat3 ... 日付＋ホスト別アタック?(@in)受信回数ランキング
こんな感じで作ったので、これを応用すればいろいろできるでしょう。

並列wget
sh awk wget ...
Linux
2001.08.11
URLリストファイルを食わせると、それを全部バックグラウンドで並行してwgetします。
リストファイルは、単純に httpで始まるURLを各行に書くだけです。
ファイル数が多すぎると大変なことになるのでご注意を。

SNMP TRAP キャッチャ Perl Linux, Win 2001.08.11	SNMP（ネットワーク管理のプロトコル）関連で、UDPで送られてくる情報を拾ってファイルに落とします。本当はまじめにsnmpを入れるんでしょうけど、調べてみたらすごく複雑そうだったのであきらめました(^^;) というわけで、snmp-trapの162/udpを受信してみたら使えそうだってんで書いたスクリプトです。ポートが162なんで、root権限で起動してください。/etc/rc.dでバックグラウンド起動させておくと良いかも。 Perlならもっと便利なパッケージもあるんだろけど、そんなもん知らないからゴリゴリ全部書いてます。きっかけはブロードバンドルータの Linksys の BEFSR41 ってやつのログを拾いたかったというものです。 Code Redなんてウイルス（ワーム）が流行ってるんで、その様子を見たいんでね。というわけで、このルータ用にちょっとコードいじってあります（メッセージのIPアドレスをドメインに変換する）ポート番号変えれば汎用のUDPダンパになりそうな。。。514にすればsyslogとか。まあsyslogは普通システムで上がってるんで有っても意味無いでしょうけど。
logresolv　 getip　 rresolv sh sed awk Perl wget nslookup ... Linux 2001.08.11	ブロードバンドルータ BEFSR41 の「WAN→LANのアクセスログ一覧」のIPアドレスをドメイン名に変換します。事前にカレントに cache/ というディレクトリ作成してください。また、３つのファイルとcacheディレクトリがカレントに無いと使えません。(^^;) 数回使っただけでもういいやって感じのスクリプトです。たぶん。当然ですが、logresolvの中のパスワードやらIPアドレスは事前に変更しなければいけません。
trap_stat1　 trap_stat2　 trap_stat3 sh awk ... Linux 2001.08.11	SNMP TRAP キャッチャで保存したブロードバンドルータ BEFSR41 のログから簡易統計を取ります。 trap_stat1 ... ホスト別アタック?(@in)受信回数ランキング trap_stat2 ... 日付別アタック?(@in)受信回数ランキング trap_stat3 ... 日付＋ホスト別アタック?(@in)受信回数ランキングこんな感じで作ったので、これを応用すればいろいろできるでしょう。
並列wget sh awk wget ... Linux 2001.08.11	URLリストファイルを食わせると、それを全部バックグラウンドで並行してwgetします。リストファイルは、単純に httpで始まるURLを各行に書くだけです。ファイル数が多すぎると大変なことになるのでご注意を。

一般

ファイルローテート
sh
Linux
2001.08.11
昔作ったシェルを引っぱり出してきただけ。
指定したファイルを、 hoge.1 hoge.2 ... と順番に hoge.9 までずらします。
元からあったhoge.9は削除されます。
ログファイルの切り替えとかに。。。ってシステムでこういうの有った気がする。

16進ダンプ
Perl
Linux, Win, ...
2001.08.11
指定文字列を１６進ダンプの形で戻す関数です。
結構便利な時があるんで。

ファイルローテート sh Linux 2001.08.11	昔作ったシェルを引っぱり出してきただけ。指定したファイルを、 hoge.1 hoge.2 ... と順番に hoge.9 までずらします。元からあったhoge.9は削除されます。ログファイルの切り替えとかに。。。ってシステムでこういうの有った気がする。
16進ダンプ Perl Linux, Win, ... 2001.08.11	指定文字列を１６進ダンプの形で戻す関数です。結構便利な時があるんで。

メインページへ戻る