Perl

最近やった検証(ciscoスイッチをスクリプトで操作したり)

トラフィックをキャプチャしてリアルタイムにグラフ化するアプライアンスの検証をすることに。グラフは指定した宛先ポートごとに描画されます。検証のために必要なのは任意の宛先ポートに対する制御可能なトラフィックを作って検証機に流しこむこと。 こうい…

perlワンライナで通し番号振り直し

文書作成中に行頭に番号振ってるとき、たとえばこんなやつ。 (1)はじめに・・・ (2)そして・・・ (3)最後に・・・ (1)と(2)の間にもう1つ項目を入れたくなったとき、それ以降の番号を全部ずらすのってめんどくさいですよね。(そもそも手動で振ってるのが悪…

amachangの質問に答えたー

複数の C++ のソースファイルに対して、一度にシンボルの置換をかけられるツールを探しています。もし、知っている方がいらっしゃいましたら教えてください。Linux のシェルから使えるツールでお願いいたします。 perlワンライナで返答してみた。 $ perl -i.…

メールの添付画像をDBに格納

必要になったので作ってみた。 とりあえず最小機能。添付以外は捨て。 テーブル作成。画像データはバイナリ、MEDIUMBLOB型として格納。 CREATE TABLE IF NOT EXISTS `images` ( `id` int(10) unsigned NOT NULL auto_increment, `from` varchar(80) collate …

Perlのuse

Perlでuseを使ってモジュールをインポートする場合、 use Cwd; というモジュール指定と、 use Cwd qw(realpath abs_path); という関数を個別に指定する方法がある。 (面倒なので関数とだけ書いてますが変数でもなんでも) 両方の指定方法を同時に使用するこ…