splitの区切り文字

splitの区切り文字は、複数の文字からなる単語でもよい。

@array = split /http/,$string;

こうすれば "http"の前後で文字列を分割できる。 何に使うかというとアクセスログの検索文字列の抽出である。 今は、まず ?で区切って、格納した配列を見て、また区切って、などとやっているのだが、 見逃しや余計な物がくっついてエンコードに失敗したりしている。 区切り文字は1文字でないとダメだと思い込んでいたのだ。

642-813J SWITCHの準備

642-813J SWITCH

2008/3にBCMSNで取ったが3年過ぎてしまった。
黒本買ってきた。

＜1章＞キャンパスネットワーク設計

SONA (Service Oriented Network Architecture)

アプリケーション層
インタラクティブサービス層
ネットワークドインフラストラクチャ層

---

コア層では冗長化と高速コンバージェンスが必要

＜2章　VLAN＞

エンドツーエンドVLAN：企業LAN全体にわたり複数のスイッチを経由する広い範囲で構成されるVLAN
ローカルVLAN：狭い範囲に限定されたVLAN

DTP
AUTO-AUTO → access
AUTO-DESIRABLE → trunk
DESIRABLE-AUTO → trunk
DESIRABLE-DESIRABLE → trunk

allowed vlan 10,20 → 10と20を許可

allowed vlan 10
allowed vlan 20 →　20だけ許可（後の設定で上書き）


allowed vlan 10
allowed vlan add 20 → 10と20を許可


VTP Version: 2 であっても、VTP V2 ModeがDisableならV1で動作する

LACP　標準プロトコル
Pagp Cisco独自
（逆に書いていたが2012/2/4　気づいて修正した）


PAgp
Desirable/Auto

D-D →　○
D-A →　○
A-D →　○
A-A →　×


LACP
Active/Passive

A-A →　○
A-P →　○
P-A →　○
P-P →　×


簡単すぎる

ついこないだ18000円になったと思ってたら、24000円になったんだって？

受けるのやめようかな・・・

TSHOOTの準備

Sat Oct 9 09:50:42 2010

ISCW(Implementing Secure Converged Wide Area Networks)はセキュリティ、IPsecとかファイアウォールとか。
ONT(Optimizing Converged Cisco Networks)はQoS、それに無線とVoIPが加わる。
ONTは黒本をやるところまで行ったのだが結局受験しなかった。
セキュリティやQoSというのは仕事でも触れる技術ではある。必要性は感じないことはない。
でも、これらは実感しにくいんだよね・・・。
ONTとISCWを黒本とかクラムメディアでとってしまおうかと思っていたが、せっかく買ったTSHOOTのガイドをパラパラ見ているとちょっとおもしろそうだ。単なるプロトコルの内容だけでなく、トラブルシュートの方法などが書いてある。これは受かるかどうかは別としてとりあえず読んでみる価値がありそうだ。取るだけなら年明けでもいいんだし。
とりあえず受けてみる。TSHOOT。468ページ。毎日読んでも一日10ページで47日。明日から始めたら12/12までかかる。
だがそれでやっと下準備が整ったにすぎない。間に実機確認をしたり、調べたりすることも必要。かなりのハードスケジュールである。
とりあえず全頁めくってみる。Trouble Ticket というのがある。構成図とshow commandの結果がある。トラブルのサンプルのようなものだ。これが全部で11個ある。これを全部読むだけでもおもしろそうだ。
security, voice, wirelessあたりが嫌だな。

Wed Nov 3 16:54:20 2010

chapter1を読み通した。ここはまだページ数も少なく序の口だが、思ったよりラクに読めた。これならいけるかもしれない。
dynamipsをVista32環境で復活させる。IISのFTPサーバを立てる。が、うまくアクセスできず、インターネット経由でFTPする。configを一定間隔でftpアップロードする archiveという設定を知る。

Fri Nov 5 04:27:23 2010

L3スイッチが必要だ。3550がだいぶ安くなった。EMIとSMIがある。パフォーマンスの問題だけなら安いほうでいいのだが、できることに違いがあるとなると困る。
SMIはRIPくらいしか動かず、EMIだとOSPFやBGPも使えるようだ。ルーティングはルータで、カタリストはL3スイッチとしての機能だけを見るようにすればよさそうだがどうせならEMIがいいな。

Tue Nov 9 21:51:13 2010

L3スイッチが我が家にやってきた！

Wed Dec 29 00:20:33 2010

ついにTCPに直面するときが来ました。SYN, ACK, FIN, セッション、なんのこっちゃ！！

Fri Jul 29 14:41:17 2011

複数台のcatalystをそれぞれvlanで区切って、その区切ったvlan同士をカスケードしてるんだけど、native vlanが一致しないというワーニングがうるさい。
native vlanってなんだっけ・・・と調べたがmode accessで使用している限りは関係ない。
きっとvlan idをあわせればメッセージは消えるだろうがメンドクサイ。
no cdp run
（この件については後日考察する）

say

use 5.010;
say "hello";

sayという関数がversion5.10から追加されているそうだ。versionを確認したら5.14なので使ってみたらエラーになったので調べると、

use 5.010;

が必要とのことであった。sayは\nをつけなくても改行してくれる。

おまじない？

sub logmsg{ print "$0 $$: @_ at ", scalar localtime, "\n" }

プログラミングPerlのSocketのサンプルにあった一行。

なんのおまじないか？と思った。

$0　はプログラム名、

$$ はプロセス番号（Windowsにもある）

@_ は引数（これは知ってた）

scalar localtime で時刻が人間に読める形式で表示できる。

twitterのbot@さくらのVPS

さくらのVPSを借りた。 何がしたかったって、Net::Twitterをいれたかった。このためだけに借りたといっても過言ではない。 だが、多少の困難があった。インストールがすっといかなかった。

perl -MCPAN -e shell

とやると cpanのプロンプトになるので、

install Net::Twitter

とやればいいのだが、やたら長い上に最後にエラーになる。 ダラダラと出ているログは読んでられないのでまずサーチする。 失敗している人が散見され、いろいろ回避策が公開されていたがどれを試してもダメ。 結局、ログを見て、can't locate といわれているmoduleを片っ端から入れていった。 Math::Round とか。 あと、opensslのライブラリ（？）がないみたいなことを言われるので

yum install -y openssl-devel

をやった。

cpanのモジュールは依存関係にあるものを勝手にいれるんじゃなかったっけ？ そんな親切なのはppm installだけなのか？

bot

use strict;
use warnings;
use utf8;
use Encode;
use Net::Twitter;

binmode STDOUT, ':utf8';

my $twit = Net::Twitter->new(
    traits => [qw/API::REST OAuth WrapError/],
    consumer_key    => 'YOUR_CONSUMER_KEY',
    consumer_secret => 'YOUR_CONSUMER_SECRET',
    ssl => 1,
);

$twit->access_token       ('YOUR_ACCESS_TOKEN');
$twit->access_token_secret('YOUR_ACCESS_TOKEN_SECRET');

while (1){
    my $line;
    open(my $file, "<tweets.txt");
    rand($.)<1 and $line = $_ while <$file>;
    close $file;
    my $decoded = Encode::decode('utf8', $line);
    $twit->update($decoded);

    sleep 3600;
}

exit;

テキストファイルからランダムに1行ずつ選んでツイートする、簡単なボット。 ちょっと手間取ったのは日本語の扱い。 tweets.txt は utf8で保存してあるのだが、なぜかそのまま Net::Twitterに渡すと文字化けする。 リテラルは化けない。 いろいろ調べて、utf8をいったんデコードして渡すという、ちょっと釈然としないやり方で解決。

日報タイトル作成スクリプト

日報をメールで出すのだがタイトルは辞書登録して日付だけ書き換えていたのを日付取得してクリップボードにコピーするようにした。

use Win32::Clipboard;
my $clip = Win32::Clipboard();
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
$m = $mon+1;
$text = sprintf ("日報\(2011/%02d/%02d\)",$m,$mday);
$clip->set($text);

.plはテキストエディタに関連付けているので、バッチファイルを作ってクイック起動にショートカットをおく。これでワンクリックでタイトルが生成され、貼り付ければよい。

年が固定になってる・・・ここはアレしてね。