2005-12-24 ファイルオープンと同時に処理 perl open(FP, "zcat hoge.gz |") or die; # gzipファイルの読み込み open(FP, "| gzip > hoge.gz") or die; # 出力をgzipで圧縮