http://www.sarinaga.com/progtoy/perlcookbooklink.html

open(FP, "zcat hoge.gz |") or die; # gzipファイルの読み込み open(FP, "| gzip > hoge.gz") or die; # 出力をgzipで圧縮

ハッシュのハッシュをサブルーチンに渡すとき、リファレンスを使う。けど値渡しをしたい。このとき、リファレンスの中身を単純にコピーしただけではうまくいかない。ハッシュの中のハッシュはリファレンスなので、コピーしたハッシュの中身には当然リファレ…