映画みた
なんか評判いい雰囲気があったので見た映画が全く面白くなくてがっかりだった。
映画見る度にこのポップコーン買うけど、異常に高いし異常に甘い。けど、買っちゃう。半分くらいで満足して持ち帰って次の日くらいに食べてる。
猫
なんか評判いい雰囲気があったので見た映画が全く面白くなくてがっかりだった。
映画見る度にこのポップコーン買うけど、異常に高いし異常に甘い。けど、買っちゃう。半分くらいで満足して持ち帰って次の日くらいに食べてる。
3連休の初日に必ず家にいてくださいっていう通告があって正気じゃないと思った。
久しぶりにBBCFやった。
このゲーム、もう終わったと考えると寂しくなる。
Devel::Peek::Dump
なんかは結果が標準エラー出力に表示されるだけなのでコード内で結果を使いたいと思うと標準エラー出力の出力先を変数へ書き換え、その後復元させてやる必要がある。
use strict; use warnings; use utf8; my $stderr; open my $temp, '>&', STDERR; close STDERR; open STDERR, '>', \$stderr; warn "hoge"; close STDERR; open STDERR, '>&', $temp; close $temp; print $stderr; # ”hoge” が出力される
こんな感じで取りあえずうまくいくんだけど、もっといい方法はないのだろうか。
tie
を使うのは大げさな気がする
Tie::STDOUT
系のやつ使えば良い?open
の第二引数自分用メモ。
>
は書き込み<
は読み込み&
は dup(2)
して open
される