GUI環境用には既にある専用、汎用含めてGUI環境では既にそのようなツールは存在する。 Windows用Macとか用コマンドラインからやりたかったネットワーク的にいいところ(例:さくらのVPS)からURLを与えるだけで録画できるツールが欲しかったけれど、録画に必要なサーバーの情報を得るにはFlashとUstreamのサーバーの通信を解析する必要があり面倒だった。が、いろいろ解析していた所、Flashなしでも情報をぶっこ抜ける事がが判明。→できました。 fuba様がperlスクリプトを作ってくれました。自分でも作ってみたどちらのスクリプトもrtmpdumpを使うので事前にインストールしておく必要があります。 メモFlashのプレイヤーが読み込む設定ファイルを直接DLしにいく http://cdngw.ustream.tv/Viewer/getStream/1/1041782.amf?page
Perlといえばテキスト処理や正規表現が得意で、バイナリを扱うような話についてはあまり聞かない印象があります。Perlが持つ関数pack/unpack等でもバイナリ処理は可能ですが、今回はData::ParseBinaryを使ってバイナリファイルを気軽に解析してみましょう。 基本 ファイルからストリームを作る 解析したいファイルをData::ParseBinaryで扱えるストリームに変換します。 use Data::ParseBinary; my $stream = CreateStreamReader(File => $file_handle); 解析したい構造を定義する Struct関数で解析したい構造を定義します。Struct以下には基本データ型やコンテナ型、ビット/バイトパディング型、制御構文型等を使用できます。各型に指定したラベルが解析結果として得られるハッシュのキーとなります。
基本的な書き方 use strict; use warnings; use utf8; # ↑ Perl ハッカーに DIS られなくなるおまじない # Win32::GuiTest を使うおまじない use Win32::GuiTest qw(:ALL); # 日本語を使えるようにするおまじない UnicodeSemantics(1); # ここで Win32::GuiTest を使う マウスを動かす use strict; use warnings; use utf8; use Win32::GuiTest qw(:ALL); # 小数点もいけちゃう sleep 関数 use Time::HiRes qw(sleep); UnicodeSemantics(1); for (my $i = 0; $i < 500; $i++) { # 10 ms 待つ sleep(0.01); # マウ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く