perlでSyslog抽出プログラム

　左のようにルータのログ情報のまとめをCUIに表示するだけのプログラムをperlで作ってみました！|ω・)ｼｮｼﾝｼｬﾃﾞｽ。

　MacアドレスやIPアドレスを正表現でパターンマッチ、主に各デバイスの出現回数をカウントするだけｼﾞｶﾝﾝｶｶﾘﾏｼﾀ|ω・)ｼｮｼﾝｼｬﾃﾞｽの簡単なもの。（他にファイヤーウォールに引っかかったものや未確認ＭＡＣアドレスのものも表示。）ログの取得はperlのSMB::Clientモジュールを使ってLinuxサーバから直接ゲットするので、ファイルマネージャー要らずで楽( ^^) _旦~~。

　一日かそこらのログですが、最も多い164回（行）を記録していたのはスマホでした。

アクセス内容はDHCPSなど至って普通のネット接続。Googleのバックアップだけでも一時間に一回（ルータは一回の接続に５行くらいログを残す模様）はしているので、それだけでも一日24時間X５行＝120回（行）の記録が残る計算。スマホの設定をいろいろ見直せばトラフィックを減らせますね。|ω・)ﾊﾟﾗﾉｲｱ

　しかし、WIndowsパソコンも放っとくと勝手に画面キャプチャしてoneクラウドの保存される時代ですし、スマホにしてもパソコンにしても、どこかに情報が大量に吸い上げられてるかもしれないですね。絶対立ち入り禁止の巨大な電子頭脳がアメリカ辺りに隠されてそうです...ｺｺﾀﾞｹﾉﾋﾐﾂ(; ･`д･´)ﾎﾝﾄﾀﾞﾖ