マスタカの ChangeLog メモ

■ GrowthForecastがsegmentation faultで落ちるのでrelocatable-perlを使い始めた件 [Perl][GrowthForecast]

こちらも前回[2014-09-23-1]に引き続き、さくらのVPS上のUbuntu 14.04の話です。

今までのUbuntu 12.04 32bitではGrowthForecastは問題なく動いていたのに、Ubuntu 14.04 64bitにしたらなぜか動かなくなりました。。

Perlはplenvでインストールした5.20.0と5.20.1で確認。GrowthForecastは最新。

《続きを読む》

■ YAPC::Asia Tokyo 2014に参加してきた #yapcasia [Perl]

去年[2013-09-29-1]に引き続き、今年も参加してきました。
YAPCはバラエティがあり、Perl以外の情報も多いので好きです。
まさにYet Another Programming Conference

よく考えたらこのブログもPerlで生成しているので[2007-07-01-1]、Perl
との関わりはゼロではなかった。

参加者が過去最大ということもあり座れないことが多々ありました。YAPC
ではおなじみの光景みたいですが、この辺改善されると良いですね。Wifi
とか運営とかは素晴らしかったです。

以下、参加したトークへのメモ。

《続きを読む》

■ 改めてHomebrewをクリーンインストールしたメモ [Homebrew][OSX][Ruby][Perl][PHP]

BoxenからHomebrewに戻ってきたので[2014-01-25-1]、改めてまっさらな状
態からインストール。[2011-07-26-1]以来だね。/usr/localは空っぽにしといた。

http://brew.sh より。

$ ruby -e "$(curl -fsSL https://raw.github.com/Homebrew/homebrew/go/install)"

《続きを読む》

■ YAPC::ASIA 2013 はノベルティに満足 [Perl][勉強会]

最近は仕事とか二日酔いとかで結構忙しくて、もう一週間が経ってしまい
ました。。

今回YAPCというPerl最大のイベントに初参加しました。残念ながら土曜日、
最終日だけの参加でしたが、なかなかに満足度が高かったです。(YAPCって、
怖いイベントじゃなかったんですねw)

最初の @yusukebe さんのトークの分かりやすさが半端なかった(以前聞い
たLTも良かった)。Perlをほぼいじったことない私でも普通に理解出来まし
た。トークがわかりやすいのか、Mojoliciousが分かりやすいのか。
MojoliciousのデフォルトはVCしかないというのは清々しさを感じました。

16:30から始まったLT大会は個人的にはツボのものが多く、他のLLのLTとは
違った雰囲気でした。

以下、当日聞いたトークです。

- Mojoliciousでつくる！Webアプリ入門 → ブログ記事
- Programming AWS with Perl
- What's new in Carton & cpanm
- GitHubでつくる、たのしい開発現場 → ブログ記事
- 中規模チャットサービスの運用事例
- PhantomJSによる多岐にわたる広告枠の確実な表示テスト
- フルテストも50msで終わらせたい 〜 FreakOutの取り組み 〜
- Lightning Talks Day 2
- Keynote
- YAPC::Asia Tokyo 2013 クロージング

P.S.
ノベルティが良かったです。中でもmixiプランニングポーカーが一番嬉し
かった。普通に買おうと思ってたので。DeNAのスマホスタンドも使ってま
すし、YAPCタオルは今日ジムで使ってきました。

■ GrowthForecastをインストールする [GrowthForecast][Perl][Chef][Ubuntu]

前回[2013-07-17-1]から間が空いてしまいましたが、GrowthForecastをイ
ンストールしました。

インストールするだけなら、これだけでOKです。

% mkdir ~/growthforecast
% cd ~/growthforecast
% echo "requires 'GrowthForecast';" > cpanfile
% sudo apt-get build-dep rrdtool
% plenv exec carton install

起動方法はこんな感じ。http://example.com:5125とかにアクセスすると確
認出来ると思います。

% cd ~/growthforecast
% carton exec -- perl growthforecast.pl --data-dir . &

--data-dirオプションを指定しないと
~/growthforecast/local/lib/perl5/auto/share/dist/GrowthForecast/data/
以下にsqlite関連のファイルが作られます。~/growthforecast/localは
削除することもあるでしょうから、指定した方が良いと思います。

《続きを読む》

■ plenv + cpanm + cartonでPerlの環境を構築した(OSX版) [Perl][Homebrew][OSX]

[2013-07-17-1]のOSX(Mountain Lion)版です。こっちはめっちゃ簡単。

brewでplenvとperl-buildをインストール

% brew install plenv
% brew install perl-build

あとはUbuntuと同じようにperl+cpanm+cartonをインストール

% plenv install 5.18.0 -Dusethreads
% plenv global 5.18.0 && plenv rehash && rehash
% plenv install-cpanm
% plenv exec cpanm Carton

P.S.
入れたは良いけど、OSXでPerl使わないなーと思ってたら、chalow(このブ
ログを生成するツール)で使ってた。てか、HTML::Templateがなくて
chalowを実行出来なくなっていた...。早速インストール☆

% plenv exec cpanm HTML::Template

■ plenv + cpanm + cartonでPerlの環境を構築した(Ubuntu版) [Perl][Chef][Ubuntu]

plenv + cpanm + carton でPerlの開発環境を構築する｜Act as Professional - hiroki.jp

私もGrowthForecastをインストールするために、Ubuntu 12.04.2 LTS上に
Perlの環境を構築しました。@hirocasterさんと若干違いがあった(下記★
の箇所)ので、私の手順も書き留めておきます。

Perl力はゼロな私ですが、以下の認識でだいたい合っていると思います。

- plenv
Rubyのrbenvに相当。複数バージョンのperlをHOMEにインストールし、切り
替えて使うツール。というよりシステムを汚さないために使う感じ。

- cpanm
Rubyのgemに相当。Perlのライブラリをインストールするために必要なツー
ル。今はcpanじゃなくてこれを使うみたい。

- carton
Rubyのbundlerに相当。アプリごとにライブラリを切り替えることが出来る。

《続きを読む》

■ better than grepなackを試してみた [Perl][Emacs][OSX]

better than grepなツールackがタイムラインでちょっと話題になっていた
ので、試してみました。find+grepより速くて良いね。

OSXならbrewでインストールするとお手軽なんでしょう。

% brew install ack

デフォルトで再帰検索してくれます。.gitとか.svnディレクトリは勝手に
無視してくれるようです。

% ack hoge
test/test-twittering-mode.el
405: (setcdr (assoc 'in-reply-to-screen-name status) "hoge")
407: (test-assert-string-equal " in reply to hoge"

検索対象の拡張子は"ack --help-types"で確認出来ます。-kオプションを
付けると、すべてのファイルを対象にします。

% ack -k hoge

ファイルやディレクトリも指定可能です。

# ファイル
% ack hoge twittering-mode.el

# ディレクトリ
% ack hoge test
test/test-twittering-mode.el
405: (setcdr (assoc 'in-reply-to-screen-name status) "hoge")
407: (test-assert-string-equal " in reply to hoge"

--nogroupオプションを付けるとgrep -nっぽい出力になります。

% ack --nogroup hoge
test/test-twittering-mode.el:405: (setcdr (assoc 'in-reply-to-screen-name status) "hoge")
test/test-twittering-mode.el:407: (test-assert-string-equal " in reply to hoge"

~/.emacs.d/init.elのgrep-find-command変数をこのように変更しました！

;; 変更前
(setq grep-find-command
      '("find . -type f -name '*' ! -path '*/.git/*' -print0 | xargs -0 grep -nH -e  /dev/null" . 76))

;; 変更後
(setq grep-find-command '("ack --nogroup --nocolor -k " . 28))

追記(2013-04-21):
.ctpファイルを検索してくれないので、~/.ackrcを新規作成して以下を
追加しました。"ack --help-types"で確認出来ます。

--type-add=php=.ctp

デフォルトは登録された拡張子のファイルだけ検索するようですね。php系
のファイルだけ検索したい時は--phpオプション、除外したい時は--nophp
オプションを付ければ良いみたいです。

参考: How to let ack support more filetypes? - Stack Overflow

追記(2013-08-04):
ack version2から検索対象のデフォルトが「全て」から「登録された拡張
子のみ」に変わったので、記事を書き換えました。

■ このブログがインターネット上から消えていました [chalow][OSX][Perl]

http://dlvr.it/ からの通知で気づいたのですが、このブログが1日半ほど
インターネット上から消えていました。

OSXをMountain Lionにバージョンアップしたら、Perlのバージョンが上が
り、HTML::Templateがなくなったことが原因でした。

CPANからインストールして解決しました。
cpanの使い方の整理 « taichino.com

このブログはChangeLogメモという1つのテキストファイルから、chalowと
いう変換ツールを使いhtmlに変換しています。

この作業を自動化した自作のmkchalowスクリプトの作りが甘かった。。自
分しか使わないツールと言えども、エラー処理はちゃんとした方が良いで
すね。ブログが生きているかのチェックも。

ちなみにChangeLogメモを始めたのはこの記事がきっかけです。
[2001-12-30]から書き続けていて、23,000行になりました。
横着プログラミング 第1回: Unixのメモ技術

最近はEvernoteに全部まとめる人が多いみたいですが、技術者だったら絶
対ChangeLogメモの方が良いですよ。手に馴染んだエディタが使えるし、整
理する必要がないので。

ただchalowを使うかは微妙なところかも。やはり全てを自分が面倒見るの
で、時間がないとなかなかメンテしきれません。ChangeLogをWordpressと
かTumblrにインポート出来れば良いのですが。それも時間が..w

■ LL Decade は元組み込みプログラマーでも楽しめるイベントだった #lldecade [Perl][PHP][Python][Ruby][勉強会]

この記事で開催を知った LL Decade。LL はおろか、Decade の単語の意味
も知らなかった元組み込みプログラマー、現 Web プログラマーですが、予
想以上に楽しめるイベントでした。

しかし暑かった。予定どおり汗だくで会場に到着。今回は机がなかったの
で MacBookAir は使わず、iPhone に軽くメモりながら純粋に楽しむことに
専念。

基調講演で初めて @miyagawa 氏を拝見。手錠をはめられてプログラミン
グ..の下りが印象に残りました。PHP は知れば知るほど変態言語で、第一
印象よりかなり好きになりましたが、私も手錠をはめられている感じはす
るのですよね...。

意外だったのは今まで Python に全く関わらずに生きてきたのに、
Language Update Decadev で話を聞いて、やってみようかなと思ったこと。
LL イベントは各言語をつまみ食い出来るので、組み込みなど別な分野の人
が参加しても楽しめますね。今回はまつもとさんの mruby の話も熱かった
ですし。

先週の Jenkins ユーザ・カンファレンスの熱が残っているのか、CI の話
もセッションまるまる使われていました。まあでも CI は各言語やフレー
ムワークに共通する内容は薄いので、CakePHP2 と Jenkins みたいにドン
ピシャの話が聞きたいですね。それは個々の勉強会でやることか。。あ、
もちろん各トークは面白かったです。 @yamashiro さんの話は特に。

JsTestDriver いいかもと思ったけど、複数サーバが必要なのは残念でした。

Javascript が機械語という解釈は今回一番面白かった。すなわち永遠に生
き続ける。確かに各ブラウザ対応を考えると素で書くのはしんどい。アセ
ンブラに対する C みたいに、今後はもっとしっくりと上に乗っかるとうれ
しいですね。> jQuery, JSX, CoffeeScript

■ Perl でメールを SMTP 送信する [Perl]

perl から ローカルの sendmail を呼んでメール送信すると、場合によっては相手のメールサーバに
弾かれる場合があるので、今後は SMTP で送信した方が良いかもしれない。
(URL: http://tech.bayashi.net/pdmemo/sendmailbyperl.html)

■ perl の実用的な使い方 [Perl][cvs]

% cat CVS/Root
:ext:anoncvs@savannah.gnu.org:/cvsroot/emacs
% find . -path '.*/CVS/Root' -print0 | xargs -0 \
> perl -i -p -e 's/:ext:anoncvs\@(cvs\.)?s/:pserver:anonymous\@cvs.s/'
% cat CVS/Root
:pserver:anonymous@cvs.savannah.gnu.org:/cvsroot/emacs

■ ファイルを直接置換 [Perl]

% cat hoge.txt
aaa aaa
bbb
aaa
% perl -i -p -e 's/aaa/ccc/g' hoge.txt
% cat hoge.txt
ccc ccc
bbb
ccc

■ 正規表現メモ [正規表現][Perl]

+ をサポートしているかどうかは、コマンドによります。
grep では使えない、perl 内蔵の grep では使える、などなど。
* は必ずサポートしているので、面倒でも [a-zA-Z0-9]+ を
[a-zA-Z0-9][a-zA-Z0-9]* と書くと普遍的です。
# perl では回数も指定できます。[a-zA-Z0-9]{3} は3回。
ということなので、grep するなら
[a-zA-Z0-9][a-zA-Z0-9]*\.c
perlなら
\w+\.c あるいは \b\.c
でいけると思います。