Perlコーディング初心者質問スレ Part 57

Perlコーディング初心 ..

564:nobodyさん
08/05/26 19:09:34 fmVA2Qe8
先生方！　質問よろしいでしょうか！

open(OUT,"+< log.txt");
eval{flock(OUT, 2);};
eval{truncate(OUT, 0);};
seek(OUT, 0, 0);
print OUT @log;
eval{flock(OUT, 8);};
close(OUT);

今はこのように通常のテキストでログの上書き保存をしているのですが、
私はgzipで圧縮して上書き保存をしたいのです！
しかしどれだけGoogle先生に訊いてもgzipでの保存方法を教えてもらえません！　あの先生はケチです！
もう先生方だけが頼りなんです！　一体どうすればgzipでの保存が可能になるんでしょうか！

次ページ

続きを表示

1を表示