perlのqw(クォートワード)の使い心地をbashで再現

bash

辿りつくまで小一時間かかったので書き留めておこう。perlで書くとこういう事をやりたかった。(@listの定義のとこね) use strict; use warnings; use Perl6::Say; my @list = qw( aaaa bbbb cccc ); for my $val (@list) { say $val; } bashだと調べても↓の…

2008-12-11

高負荷の時どうなる？どうする？

perl

あくまで非力なH/Wでしかも1台しかない状況で一人しかいないんだけど色々都合があって24時間は貼り付いていられない状況で何とかしないといけないけどどうしたものかという人向けで。負荷が高い状態でジャンジャンリクエスト受け付けてCPUくってswapくって瀕…

2008-07-17

にっちもさっちも行かなくなったら。

mysql

本日の障害対応の内容走り書き。後で気が向いたらまとめましょう。（前も似たような事あったなぁ。。）optimize tableしてたら/varがパンパン。→異常終了TMDファイルが容量を圧迫してる。 deleteとかdropとかtruncateが走っている間にドンドン増えて行く。 …

2008-05-23

shiftを省略した時の対象は@_だけじゃないのね

perl

へぇー的なネタ。よく my $self = shift; というコードがありますが、これは my $self = shift @_; の省略形な訳であります。で、引数省略時は常に@_が対象となるのかと思いきやそうでは無かったという話。 1.pl ↓のコードをご覧下さい。() use strict; use …

2008-04-30

ほんとのスーパークラス

perl

↓のような感じで他のパッケージにメソッドを生やすってのはよく有る手法なんですが sub import { my $class = shift; my $pkg = caller; no strict 'refs'; *{"$pkg\::method"} = \&method; } id:hirataraさんの↓で述べられてありますが http://d.hatena.ne.…

2008-04-28

Mooseかじりかけ

perl

http://search.cpan.org/~stevan/Moose-0.40/lib/Moose.pm 何かと話題のMooseかじりかけです。そもそも何？から入ってみました。自分用。 A postmodern object system for Perl 5という事でperl5OOを今風に書けるよ！って事でしょうかね。とりあえず書いた …

2008-04-16

Filter::Simpleでセイセーイ！

perl CPAN

↓の辺とか http://search.cpan.org/~ingy/Inline-YAML/ ↓の辺で http://search.cpan.org/~kazuho/Filter-SQL/Filter::Simpleというモジュールが使用されていてなんだかかっちょいいのでやってみました。 http://search.cpan.org/~dconway/Filter-Simple/lib/…

2008-04-11

++とか--が前にあったり後ろにあったり。

perl

こういうの知らないと恥ずかしいよ。ってか知らなかったorz。恥ずかしい。何かと言いますと $i++; と ++$i; の違い。検証用 use strict; use warnings; use feature qw(say); { my $i = 0; my $res = ++$i; say $res; } { my $i = 0; my $res = $i++; say $r…

2008-04-09

ANONってさ

perl

パッケージ名::__ANON__ってよく見かけると思うんですが、何かと言うと一言で言えば無名サブルーチン。ってのは分かってはいたんですが、確かめた事が無かった(と思う)ので実際確かめてみたんですのよ。 use strict; use warnings; use Carp qw(croak); my $…

2008-03-04

実は空文字かundefでblessすると勝手にmainにしてくれるんだ

perl

日々ちょっとした発見ってあるもので、お題目通り空文字かundefでblessするとそのオブジェクトはmainパッケージとして扱われるようです。コード use strict; use warnings; use Data::Dumper; my $self = bless({foo => 'bar'}, undef); print Dumper $self;…