以下，その資料を置いておきます．

発表資料

2010-07-24 FLOSS桜山 第40回勉強会 LT WP-Syntax LLPメガネラボ 岩田 享/issm

アジェンダ

• 自己紹介
• WP-自己紹介
• WP-Syntax
• ＋α
• まとめ

自己紹介

• 岩田 享/issm
• LLPメガネラボ
• とある伏見の駐車場（パーキング）
• 

よろしくおねがいします

WP-自己紹介

• 岩家ぶろぐ
• http://blog.iwa-ya.net/
• on lighttpd from 2010-01
• テーマは自作

• header.php
• index.php
• sidebar.php
• footer.php

WP-Syntax:概要

• WordPressプラグイン
• ソースコードをハイライト
• PHPライブラリ「GeSHi」を利用
  • 177種類の言語をサポート（ver.1.0.88）
  • プラグインに同梱

詳しくは．．．

• http://wordpress.org/extend/plugins/wp-syntax/
• http://qbnz.com/highlighter/

WP-Syntax:基本書式

エントリ本文で．．．

      <pre
      lang="{language}"
      line="{line}">
      ... ソースコード ...
      </pre>
    

これだけでハイライトしてくれる

※「ぶろぐでデモ

＋α

行番号がある場合

行番号がない場合

このHTMLをごにょごにょするJavaScriptを書いてみた

• use jQuery;

※「ぶろぐでデモ

まとめ

WP-Syntax

• ソースコードをいい感じでハイライト
• 設定も直感的

おまけ

• WP-Syntax後のソースコード領域をクリックすると，コピペのための選択をするJavaScript

はじめに

2010年7月19日は海の日ですね．海の日といえば，例年，引きこもっているかお仕事していたか，な気がします．

そんなわけで，たまには海の日らしく，aquaさんに乗って，知多半島まで海を見に行ってきました．まぁ見るだけですｗ

ルート

今回のルートはこんな感じです．

GPS tracking powered by InstaMapper.com

うーん，後半，記録がぜんぜんできていませんねぇ．．．ここのサービス，使い勝手の面をはじめ，少しずつ不満がつのってきているので，そろそろ別のサービスでもさがそうかな．．．まぁタダで使わせていただいている身で言うのもなんですが＞＜

さて．．．

• 知多半島サイクリングロード：武豊大府自転車道線－ 愛知県知多建設事務所

この存在を前日知ったので，ぜひ利用してみよう！と思いながら走っていたのですが，結局入口を見つけられませんでした．で，その際に地図を確認したところ，三河湾側海岸線の方が近かったため，そちら走ることになりましたｗ

そうなれば，帰りは駿河湾側だよね，ということで，（ｒｙ

統計（？）

サイクルコンピュータ（SC-FT50）の数字より．

走行距離

128.7km

実走時間

4時間36分33秒

実際の時間

8時間くらい（08:00〜16:00）

行き

行きは，特に何事もなくスムーズに．しかし，日差しがなかなか強くて体が熱せられる感じだったので，ペットボトルの水を頭からかぶったりして何度かやりすごしました．

！？．．．鯛（ですよね？）を持っていることから，漁的な何かを意味するようにも思えますが．．．

半島を南下する途中にて．思ったより自動車の量が少なかったです．

昼食＠まるは食堂

半島の先端近くにあるまるは食堂（豊浜本店）にて，温泉に浸かり，昼食を摂りました．

温泉．

刺身の盛り合わせ（並）．

エビフライ．あとはご飯とおみそ汁も．

エビフライは複数本の注文も可能ですが，1本でよかったですｗ おなかいっぱいになりました．

帰り

後ろの方にも何やら相似形なものがｗ

野間灯台．50mmレンズだと，下がっても下がっても全体が収まり切りませんでしたｗ

ここの休憩スペース（といっても日ざらしですが）でパンク修理をされていた方がみえました．かれこれ1時間ほどストップしてしまっているとのこと．ハンディポンプでの空気注入がしんどいとおっしゃっていたので，私の持っている，より少ない力で空気を入れられるという「2本筒タイプ」を差し出してみました．（現在までまだパンクがなく，実践での利用実績が皆無だったりしますｗ）

非常にスムーズに空気が入ったようで，その方もいたく感激されていました．おぉ，2本筒スゲー．

その後少しだけお話などして，行き先が反対方向なので（これから昼食とのことでした），私もその方も再度出発しました．

それからは，痛むひざをごまかしつつも（実際にはごまかせていないんですが＞＜），ひたすら名古屋へ向けて進み続けました．海水浴やボディボードな風景も横目です．まぁ海は常時眺めてました．

それにしても，多少風はあったものの，午後はさすがに暑いですね．熱中症対策に頭からかぶったり，痛むひざにかけたりと，水を使う頻度も格段に増しました．

そんなこんなで，名古屋，そして自宅まで戻ってこられました．

おわりに

以上，海の日なので，aquaさんに乗って，知多半島までは知って海を見てきましたよ，というエントリでした．

今後の課題としては，ひざが痛み出さないようなペダリング，の1点ですね．まぁそれ以外にもたくさんあるでしょうが，これだけはなんとかしないと，体がもちませんね＞＜

しまなみ海道のときは大丈夫だったので，それとの違いにヒントがあるのかもです．

今月末，trinity777さんの呼びかけで，Perlを肴に何かテキトーに話し合いましょう，的な集まり「名古屋でPerlをゆるく語る会」がありますよ．

概要

名称

名古屋でPerlをゆるく語る会

日時

2010年 7月31日（土） 11:00〜

会場

Cafe どえりゃあ

参加費

食事代のみ

名古屋でPerl好きが集まって　おいしいもの食べる会です

参加費: ご自分のお食事代だけ

　あることないこと　楽しく世間話しつつも

　 しっかり　Perlの技術も学べるよ、という
　
東海地方では他にない　おいしい会です

Perlと聞いて　何?それ、おいしいの? という人から　プログラム言語とわかる人まで大歓迎

宿題に泣いている　学生さん

なんかプログラムしたい　デザイナーさん

他言語も知りたい　プログラマさん

定年後の時間をもてあましている　中高年の方々

どんな人でも　ふらっと楽しく　お友達が作れます
　　 女の子も安心して参加してね

みんなで学ぼう!!　Hello World
名古屋でPerlをゆるく語る会 : ATND

ということで，Perlをやってる方，やってみようかなという方，プログラマさん，デザイナさん，学生さん．．．などなど，ごっちゃになってPerlがらみのお話をしましょう，そんな感じですね．

詳しくは，ATNDの同イベントページへ．

• 名古屋でPerlをゆるく語る会 : ATND

参加表明は．．．

上記ページにて参加登録も行えます．興味のある方はぜひ．

おわりに

そういえば，名古屋でPerlをテーマにしたイベントって参加するの初めてですな．というか，そもそもあったのかどうｋ（ｒｙ

とにかく，名古屋でのPerlの現状（？）や，みなさんのPerlライフを知ることができるよい機会になりそうです．

それでは，let’s enjoy Perl’s talk!

はじめに

$issm->age++; となった今日この頃です．

さて，昨日の夕方，消耗したり劣化したりした部分を交換するため，サイクルショップ カワタにおジャマしてきました．

今回は，次の4点について，カワタさんに交換していただいたり自宅でD.I.Y.したりしました．

• タイヤ
• リアディレイラーのアウター調整ボルトあたりの部品
• ブレーキシュー
• ハンドルのバーテープ

交換していただいた

タイヤ

Vittoria の「RUBINO PRO」ってタイヤにしてみました．白いです．写真はたぶん後日にでも．

• ::製品紹介::　競技用自転車タイヤ Vittoriaの日本代理店 Vittoria Japan(ヴィットリアジャパン)

リアディレイラーのアウター調整ボルトあたりの部品

何て呼べばいいんでしょ？

もともとプラスティック製で，これが割れてしまっていました．

これが，アルミ製のものになりました．

ちなみに，「アウター調整ボルト」という名称も知らなかったのですが，こちらを参考に．

• リアディレイラーの調整

部品だけ購入してD.I.Y.で交換

ブレーキシュー

初のDURA-ACEですｗ 値段も手頃なので，カワタさんも「掃除するくらいなら交換した方が早い」とのこと．

手は汚れますが，交換は簡単です．ただ，ボルトが少し固めなので，レンチやドライバは目がしっかり合うものを使うべきですね．

新品との比較．中央が新品，左がリア，右がフロントのものです．リアの方が減ってますね．こういうものでしょうか．

ハンドルのバーテープ

• サイクルベースあさひ

上記リンクや現状のバーテープの巻かれ方を参考に挑戦してみました．意外にスムーズにできたっぽいです．片方だけできたものが冒頭のような感じです．全景はそのうちタイヤと一緒にでも．

今回，カットしたのはこれだけでしたｗ

おわりに

というわけで，aquaさんが「白/赤/黒」な感じから「白/青」な感じになりました．

梅雨も明けたようなので，天気のよい日の午前にでも，久しぶりに出かけてみたくなりました．

更新テスト．

更新テスト．

はじめに

先日行われたWCAN 2010 Summerにて，ライトニングトークさせていただいてきました．

以下，発表内容をHTMLとしておこしたものを載せておきますので，興味のある方はどうぞ．

発表内容

2010-07-10 WCAN 2010 Summer LT ニコニコ動画APIをさわってみよう（仮） LLPメガネラボ 岩田 享/issm

アジェンダ

• 自己紹介
• ニコニコ動画API少々
• APIを使って作ってみた
• まとめ

自己紹介

• 岩田 享/issm
• LLPメガネラボ
• とある伏見の駐車場（パーキング）
• 
• http://blog.iwa-ya.net/

よろしくおねがいします

ニコニコ動画API

ニコニコ動画の情報へ外部からアクセス可能

• 特定のURLへリクエスト
• XMLによるレスポンス
• 加工して利用

• getthumbinfo
• thumb
• getflv
• getmarquee
• getrelation
• msg
• rss

詳しくは．．．

http://dic.nicovideo.jp/a/ニコニコ動画api

API:getthumbinfo

http://ext.nicovideo.jp/api/getthumbinfo/{動画ID}

指定の動画に関する情報が得られる

• 動画ID
• タイトル
• 説明文
• サムネイル画像URL
• 投稿日時
• 長さ
• 再生数，コメント数，マイリスト数
• タグ
• e.t.c...

例えば．．．

http://ext.nicovideo.jp/api/getthumbinfo/sm9201355

      <nicovideo_thumb_response status="ok"> 
        <thumb> 
          <video_id>sm9201355</video_id> 
          <title>夕飯準備の飼い主さんに必死にすがる子猫たち</title> 
          <description>既出だったらごめんなさい。Youtubeより転載です。......（ｒｙ
    

API:getrelation

http://flapi.nicovideo.jp/api/getrelation?{動画IDとか並び順の種類とか}

指定の動画に「関連する」動画のリストが得られる

• 件数
• 動画のリスト

• 視聴URL
• タイトル
• サムネイルURL
• 再生数，コメント数，マイリスト数
• e.t.c...

getthumbinfoほど詳細ではない

例えば．．．

http://flapi.nicovideo.jp/api/getrelation?video=sm9201355

      <related_video status="ok"> 
	<total_count>70</total_count> 
	<page_count>5</page_count> 
	<data_count>15</data_count> 
	<video> 
	  <url>http://www.nicovideo.jp/watch/sm8393544</url> 
	  <thumbnail>http://tn-skr1.smilevideo.jp/smile?i=8393544</thumbnail> 
	  <title>親猫の下敷きになる子猫</title>......（ｒｙ
    

APIを使ってみる

IDが「sm9201355」の動画について

getthumbinfo http://ext.nicovideo.jp/api/getthumbinfo/sm9201355

      ......
      <tags domain="jp"> 
        <tag category="1" lock="1">動物</tag> 
        <tag lock="1">ごまきなこあんこたれ</tag> 
        <tag lock="1">AV(アニマルビデオ)</tag> 
        <tag lock="1">ぬこぬこ動画</tag> 
        <tag lock="1">リア獣</tag> 
        <tag>アイルーキッチン</tag> 
        <tag>猫屋敷</tag> 
        <tag>解せぬ</tag> 
        <tag>いきなりミュート</tag> 
      </tags> 
      ......
    

実際の動画では．．．

ここに着目してみた

「にこのまとぴあ」

http://www.niconomatopoeia.jp/

• ニコニコ動画+オノマトピア（=擬声語）
• ニコニコ動画でつけられる無数のタグの中から，「〜〜動画」なものを見つけて羅列するだけのサイト
• 20万件くらいの動画のタグを調査 （2010-07-10 12:00時点）
• 511件の「〜〜動画」タグ ひらがな：204 カタカナ：261 それ以外：46 （2010-07-10 12:00時点）

．．．そんな誰得なサイトですｗ

まとめ

• 「ニコニコ動画API」で様々な動画の情報を取得可能
• 組み合わせ次第でいろいろ遊べる
• 誰得サイト「にこのまとぴあ」を作ってみた
• 「情報を取得する」「情報を加工して表示する」を明示的に分離すると後々便利かも

おわりに

ということで，スピーカの皆様，懇親会でこの酔っぱらいにおつきあいいただいた方々，そして主催であるアップルップルの皆様，ありがとうございました！

WCAN 2010 Autumnは，これまでとは違う形式の開催ということで，とても楽しみにしています．

おまけ

どこかにある「ぷろじぇくたーα」というどうぐを本エントリで使うと，何かあります．

• DQWindowManager – Webをドラゴンクエストっぽく遊ぼう！

DBIx::SkinnyでO/Rマッパの勉強な日々が続いています．

そんな中，カラム名の指定を行う機会が多々出てきますが，テーブル名のプリフィックス（「issm_user」というテーブルであれば「issm_」のような部分）を考慮したり，関数や制御文を挟んだり，テーブル名やカラム名のエイリアスを利用したりする際の扱いをまだよくわかっていません．

とりあえず，そのあたりを吸収するようなPerlスクリプトを書いてみました．

まぁ既出でしょうが，勉強の記録ということで＞＜

吸収範囲

たぶん次のあたりのものを吸収します．

• カラム名のみ
• テーブルのプリフィックス + テーブル名 （基本的な部分のみ） + カラム名
• 上記のようなカラム名 + カラム名のエイリアス
• テーブル名のエイリアス + カラム名 （+ カラム名のエイリアス）
• そこそこ簡単な構造の関数や制御文 （+ カラム名のエイリアス）

実行例

まず実行例から．（サブルーチンpは，printのショートカットのようなものです．）

# TABLE_PREFIX: 'issm_'
 
# issm_col1
p column(qw/col1/);
p column(qw/col1 - -/);
 
# issm_user.col2
p column(qw/col2 user/);
 
# issm_item.col3 c3
p column(qw/col3 item c3/);
 
# i.col4 item_c4
p column(qw/col4 -i item_c4/);
 
 
my $sha1_ize = sub { "SHA1($_[0])"; };
 
# SHA1(issm_map.col5)
p column(qw/col5 map -/, $sha1_ize);
 
# SHA1(m.col6) sha1_c6
p column(qw/col6 -m sha1_c6/, $sha1_ize);
 
# IF( issm_item.col7 >= 10, m.col8, DATE(u.col9) ) if_c789
p column(
    qw/col7 item if_c789/, sub {
        my $c7 = shift;
        my $c8 = column(qw/col8 -m -/);
        my $c9 = column(
            qw/col9 -u -/, sub {
                sprintf('DATE(%s)', shift);
            },
        );
        return "IF( $c7 >= 10, $c8, $c9 )";
    }
);

コード

次のような感じです．

use strict;
use warnings;
 
 
my %CONFIG = (
    TABLE_PREFIX => 'issm_',
);
 
 
sub p { print (@_, "\n"); }
 
 
sub column {
    my ($col, $table, $alias, $sub) = @_;
    my $col_name = $col;
 
    if (defined $table) {
        if (my ($table_alias) = $table =~ /^-(.*)$/) {
            $col_name = "${table_alias}.${col}"
                if $table_alias ne '';
        }
        else {
            $col_name = "${table}.${col}";
            $col_name = "$CONFIG{TABLE_PREFIX}${col_name}"
                if defined $CONFIG{TABLE_PREFIX};
        }
    }
 
    if (defined $sub  &&  ref $sub eq 'CODE') {
        $col_name = $sub->($col_name)
    }
 
    return (defined $alias  &&  $alias ne '-')
        ? "$col_name $alias" : $col_name;
}
 
 
 
sub main {
    # issm_col1
    p column(qw/col1/);
    p column(qw/col1 - -/);
 
    # issm_user.col2
    p column(qw/col2 user/);
 
    # issm_item.col3 c3
    p column(qw/col3 item c3/);
 
    # i.col4 item_c4
    p column(qw/col4 -i item_c4/);
 
 
    my $sha1_ize = sub { "SHA1($_[0])"; };
 
    # SHA1(issm_map.col5)
    p column(qw/col5 map -/, $sha1_ize);
 
    # SHA1(m.col6) sha1_c6
    p column(qw/col6 -m sha1_c6/, $sha1_ize);
 
    # IF( issm_item.col7 >= 10, m.col8, DATE(u.col9) ) if_c789
    p column(
        qw/col7 item if_c789/, sub {
            my $c7 = shift;
            my $c8 = column(qw/col8 -m -/);
            my $c9 = column(
                qw/col9 -u -/, sub {
                    sprintf('DATE(%s)', shift);
                },
            );
            return "IF( $c7 >= 10, $c8, $c9 )";
        }
    );
}
 
 
main();
__END__

おわりに

それでは，勉強に戻ります．

ちょっとDBIx::Skinnyの勉強ちゅうです．

チュートリアルが詰まっているJPerl Advent Calendar 2009 の DBIx::Skinny trackに目を通して，「inflate」「deflate」なる概念を初めて知りました＞＜ というか，O/Rマッパを触るのが初めｔ（ｒｙ

ということで，以下，その動作確認のメモです．

参考

• Schemaの設定について2 #04 – JPerl Advent Calendar 2009
• 色々なデータの更新方法1 #08 – JPerl Advent Calendar 2009

主要モジュールのバージョン

DBIx::Skinny

0.0712

DBIx::Skinny::Schema::Loader

0.12

確認用コード

UNIX時間が格納されているカラムを読み，DateTime::Format::MySQLを使ってDateTimeオブジェクトとして取得することを考えてみます．

まず，モデルの定義．

package Hoge::DB;
use DBIx::Skinny setup => +{
    dsn      => 'dbi:mysql:hoge',
    username => 'hoge',
    password => 'hogehoge',
};
1;
 
 
package Hoge::DB::Schema;
use base qw/DBIx::Skinny::Schema::Loader/;
use DBIx::Skinny::Schema;
use DateTime::Format::MySQL;
 
install_inflate_rule qr/^t_add$/ => callback {
    inflate {
        my $v = shift;
        my @t = reverse ((localtime($v))[0..5]);
        $t[0] += 1900; $t[1]++;
        my $dt = sprintf(
            '%04d-%02d-%02d %02d:%02d:%02d',
            @t,
        );
        return DateTime::Format::MySQL->parse_datetime($dt);
    };
};
 
__PACKAGE__->load_schema;
1;

モデルオブジェクトを生成してSELECTして「t_add」カラムを取得するコード．DBIx::Skinny::Rowオブジェクトで指定のカラムを取得する方法が何とおりかあるようなので，とりあえず確認できた3パタンで確認しています．

use Hoge::DB;
use Data::Dumper;
 
my $model = Hoge::DB->new;
 
my $itr = $model->search_by_sql(
    'SELECT t_add FROM table',
    [],
    'table',
);
 
my $row = $itr->first;
print Dumper [
    $row->get_columns->{t_add},
    $row->get_column('t_add'),
    $row->t_add,
];

出力結果

次のように出ました．

$VAR1 = [
          '1278191892',
          '1278191892',
          bless( {
                   'local_rd_secs' => 22692,
                   'local_rd_days' => 39966,
                   'rd_nanosecs' => 0,
                   'locale' => bless( {
                                        'default_time_format_length' => 'medium',
                                        'native_territory' => 'United States',
                                        'native_language' => 'English',
                                        'native_complete_name' => 'English United States',
                                        'en_language' => 'English',
                                        'id' => 'en_US',
                                        'default_date_format_length' => 'medium',
                                        'en_complete_name' => 'English United States',
                                        'en_territory' => 'United States'
                                      }, 'DateTime::Locale::en_US' ),
                   'local_c' => {
                                  'hour' => 6,
                                  'second' => 12,
                                  'month' => 6,
                                  'quarter' => 2,
                                  'day_of_year' => 155,
                                  'day_of_quarter' => 65,
                                  'minute' => 18,
                                  'day' => 4,
                                  'day_of_week' => 3,
                                  'year' => 110
                                },
                   'utc_rd_secs' => 22692,
                   'formatter' => undef,
                   'tz' => bless( {
                                    'name' => 'floating',
                                    'offset' => 0
                                  }, 'DateTime::TimeZone::Floating' ),
                   'utc_year' => 111,
                   'utc_rd_days' => 39966,
                   'offset_modifier' => 0
                 }, 'DateTime' )
        ];

まとめ

inflateされたものを取得するには，rowオブジェクトからカラム名なメソッドで呼び出す必要があるようです．

ちょっと気になったところ

inflate/deflateの引数となるコードの中でエラーがあった場合，これを拾う方法はあるのかな．まぁ，値がinflateされずにそのまま得られるので，問題があることに気づくとは思いますが．

あと，この場合，$model->schema->schema_infoの値が空なハッシュリファレンスになりますね．（あまり関係ない？）

おわりに

以上，初めてのO/Rマッパ（でもある）DBIx::Skinnyの勉強の一環として，inflateの動作を確認してみました．

まだほんの少ししか触っていませんが，inflate/deflateは非常にありがたい機能ですね．しっかり使いこなせるよう精進します．

はじめに

コマンドラインで「色付き多重grep」を実行するのがメンドウに思えてきたので，そのあたりをラップして楽をできる（かもしれない）Perlスクリプトを書いてみました．

以下，その概要や使い方について淡々と．

背景

環境変数GREP_COLORに特定の値を設定することで，grepした際の文字を色付きでハイライトすることができることを，最近知りました．

% grep --color=always hoge /somewhere/target.txt
(「hoge」が含まれる行のみ，かつ「hoge」が赤色でハイライトされた状態で内容が出力される)
 
% env GREP_COLOR="1;32" grep --color=always fuga /somewhere/target.txt
(「fuga」が含まれる行のみ，かつ「fuga」が緑色でハイライトされた状態で内容が出力される)

パイプでgrepを多重化，そしてgrepごとに環境変数GREP_COLORを別の値に設定することで，「色付き多重grep」が可能となります．

% env GREP_COLOR="1;33" grep --color=always hoge /somewhere/target.txt \
  | env GREP_COLOR GREP_COLOR="1;34" grep --color=always fuga

上の例では，「hoge」「fuga」の両方が含まれる行のみ，かつ「hoge」が黄色，「fuga」が青色でそれぞれハイライトされた内容が表示されます．

そんな感じで，「色付き多重grep」は，テキストな文章やソースコード，ログファイルなどから，特定の内容を探すのに非常に便利なツールです．しかし，ちょこっと検索の書式を変更したり，さらに絞り込んだりしたりなどの際に，コマンドを修正するのがけっこうメンドイことは否めません．

概要

そんなことから，その辺のメンドさを軽減できるようなPerlスクリプト（以下，grep.pl）を書いてみました．

基本的な使い方は次のとおりです．

% /path/to/script/grep.pl -{re1} -{re2} ... {file1} {file2} ...

検索語（たぶん正規表現可）の頭に「-」をつけたものと，検索対象のファイルを，引数として与える形をとっています．それぞれ複数指定が可能です．

先の例を例にとると（？），次のような感じに置き換えられます．（現状では，色の設定はPerlスクリプトを直接修正する必要がありますが＞＜）

% /path/to/script/grep.pl -hoge -fuga /somewhere/target.txt

また，findコマンドの結果をパイプで渡すような使い方もできます．

% find /somewhere/* -name '*.txt' \
    | /path/to/script/grep.pl -hoge -fuga

出力結果

指定したファイル（群）のうち，指定した検索語すべてを含んでいる（マッチする）行が1つでもあればそのファイル名，そして該当するすべての行について行番号と内容（色によるハイライトあり）がそれぞれ表示されます．（冒頭の図のような感じです．）

この出力には，grep -Hnコマンドによる出力を利用しています．

ほんの少しだけ正規表現の変換

grep.plの内部では，引数として与えられた正規表現とともにgrepコマンドを呼び出しています．Perlで使えるけどgrepコマンドでは使えないものもあるため，\dを[0-9]に置き換える，といったような力技を，ごく一部の正規表現に対して行ったりしています．

ソースコード

grep.plのソースコードの現状はgithubに上がっていますので，よろしければお試しください．中身はキタナイですよｗ

• grep at master from issm’s tools – GitHub

grep，wcの各コマンドを，スクリプト内部で呼び出しています．Mac OSX上のzshでしか確認していませんが，Linux系であればたぶん大丈夫でないかな，と思います．

おわりに

以上，便利だけど実行がメンドイ「色付き多重grep」を，少しだけ楽に行うためのPerlスクリプトを書き，簡単に紹介してみました．

今回のスクリプト書きをとおして，ターミナル上での色出力について少しだけ勉強になりました．しかし，出力がカラフルになるからといって調子に乗って多用すると，ソースコードとか後々カオスになりそうでコワイので，まぁほどほどにしておきます．

まぎらわしいタイトルでスミマセン＞＜

単にアタリマエのことをしていなかっただけのことですが，知ることができたのでメモしておくとします．

これまで

現在のメイン機MacBookでPerlするときには，Emacs（Cocoa Emacs）のcperl-modeを使っていますが，キー入力に対するレスポンスが非常に遅く，イライラさせられっぱなしでした．cperl-modeへ自動で切り替える設定は次のような感じです．

(setq auto-mode-alist (append '(("\\.psgi$" . cperl-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("\\.cgi$" . cperl-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("\\.pl$" . cperl-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("\\.pm$" . cperl-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("\\.t$" . cperl-mode)) auto-mode-alist))

しかもこの設定の場合，*.plなファイルを開いたときに，通常のperl-modeだったりすることがあるんですね．その辺の条件はよくわかりません．

見つけた1行

で，「emacs cperl-mode」とかでググってみると，次の1行をよく見かけました．

(defalias 'perl-mode 'cperl-mode)

これを追加してみたところ，モッサリしていたレスポンスが改善された感じです．

この1行，perl-modeをcperl-modeへ完全に置き換えてしまうような意味でしょうかね．ということは，これまでは，perl-modeとcperl-modeの両者が読み込まれていて，何か干渉とか競合とかしてた，ということにでもなりますか．う〜ん，サッパリです＞＜

先の検索について，参考までにリンクをいくつか．

• emacs-22 で cperl-mode を使うとき
• cperl-modeとperlplusを使うための設定メモ。 – 牌語備忘録
• emacsのcperl-modeを設定する: ash

現在

ということで，「cperl-modeで開いてね」な設定は次のようになりました．

(defalias 'perl-mode 'cperl-mode)
(setq auto-mode-alist (append '(("\\.psgi$" . cperl-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("\\.cgi$" . cperl-mode)) auto-mode-alist))
;(setq auto-mode-alist (append '(("\\.pl$" . cperl-mode)) auto-mode-alist))
;(setq auto-mode-alist (append '(("\\.pm$" . cperl-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("\\.t$" . cperl-mode)) auto-mode-alist))

*.pl，*.pmなファイルは，デフォルトでperl-modeで開くようになっていたので，それがdefaliasによってcperl-modeに置き換わることから，同拡張子に関する設定は不要っぽいですね．ので，コメントアウト．

おわりに

以上，cperl-modeを使うにあたって必須ともいえる1行の記述がなかったために，勝手にイライラしていた人のメモでした．

これでPerlを書くモチベーションも上昇します．

amazonさん

そういえば，Emacsって，中身について全然考えたことなかったかもです．やっぱり少しは気にした方がいいのかなぁ．．．

• 

  入門 GNU Emacs 第3版

  posted with amazlet at 10.06.15

  Debra Cameron James Elliott Marc Loy Eric Raymond Bill Rosenblatt
  オライリー・ジャパン
  売り上げランキング: 19487

  Amazon.co.jp で詳細を見る
• 

  Emacs Lispプログラミング入門

  posted with amazlet at 10.06.15

  Robert J.Chassell
  アスキー
  売り上げランキング: 192615

  Amazon.co.jp で詳細を見る