split関数の挙動が違うことに最近気付いた。正確にはPerlの第3引数とJavaScriptの第2引数とでの挙動なんだけど。 JavaScriptの場合 var str = "a b c d e f g"; var array = str.split(/\s+/, 3); // array.toSource() = ["a", "b", "c"] Perlの場合 my $str…

ちょこちょことPerlを勉強中。 んで、プロセスのリストを親子関係で並び替えて表示するのを作ってみた。 pstree#!/usr/bin/perl -w use strict; use warnings; my @processes; open my $FH, "/bin/ps -eo pid,ppid,user,etime,pcpu,pmem,args |" or die "ERR…

teramako : Perl で grep コマンド 始めに断っておくが、Perlのgrep関数ではない。 GNU grepが使える環境ならいらないのだが、POSIXのgrepには-A,-B,--colorオプションが無い。仕事上で扱うのはPOSIXである事が多く、マッチした行の数行前後も出したい時など…

シェルには-xオプションやset -xがあるが、Perlにはない。エビデンス取る時に困るじゃないかって事で、Devel::Traceを入れてみた。 $ perl -d:Trace -e 'print "hoge\n";' >> -e:1: print "hoge\n"; hogeってな感じに-d:Traceをつければ良し。中身が気になっ…

Junya Kondo / Text-Hatena - search.cpan.org CPANの方ではスーパーpre記法にVimColorがあるー。早くダイアリーで使えるようにならないかなぁ。 package Text::Hatena::SuperpreNode; use strict; use base qw(Text::Hatena::PreNode); use Text::VimColor;…

どうやら、Perlらしい。でも、Perl5なんだよね？ Perlが6へバージョンアップした時、大丈夫なのかな...？ いろいろ動かなくなりそうで怖い。