localが何をするものかイマイチわからん - Unknown::Programming
ということを言われたので、ふむ確かに最初はわからないだろうなと思い、ここに記録する。 まず、ある学生さんの名言にこんなのがある。 お前は１枚のCDを聞き終わったら、キチッとケースにしまってから次のCDを聞くだろう？誰だってそーする。俺もそーする つまり、変数を一時的に書き換えるということは、処理を抜ける時に元の値に戻さないといけないということなのです。 しかしコレが実は自分でやろうとすると結構面倒くさいのだ。 とりあえず実装してみよう。 use strict; our $FOO = 'value'; print $FOO."\n"; main(); print $FOO."\n"; sub main { # $FOOのバックアップ my $tmp_foo = $FOO; # $FOOを上書きする $FOO = 'overwrite value'; # 何かしらの処理 anything();
no warnings 'whatever' - Unknown::Programming
404 Blog Not Found:perl - use warnings; # -w でなくて # 2008年06月20日 mzp mzp *プログラム参考, Perl use warningsで再帰を書くと、毎回警告されるのがうざい。 http://b.hatena.ne.jp/mzp/20080620#bookmark-9012282 id:mzpさんのブクマ米にちょっくら反応。 再帰で警告出るのを回避するには「recursion」をつかえばおｋ。 no warnings 'recursion'; sub plus { my $count = shift || return 0; return plus($count-1) + $count; } print plus(100); 警告出ないお＞＜ とまあコンナ感じでno warnings 'whatever'使えば解除したい警告だ
Perlが初めての人に教えてあげたいちょっとしたこと - Unknown::Programming
タイトルは釣りです。 実際のタイトルは「Perlのオブジェクト指向がムズカシイだって？んなバカな。だったらPHPで再現してやんよ！」でございます。 ヘイヘイヘイ。そこの君。Perlのオブジェクト指向が難しいだなんていったい誰が言ったんだい？ Perlのオブジェクト指向ほど、シンプル且つ柔軟なものはないよ！ 単なるパッケージ(名前空間)とリファレンス(データ)をblessという関数で紐付けただけのもなんだから。 第一引数に必ず$selfが来るっていうのも結局の話たんなる関数呼び出しとなんら変わらないのだから。 package Foo; sub new { my $class = shift; return bless { @_ } , ref $class || $class; } sub plus { my $self = shift; my $int = shift; return $s
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
