文件操作 - gzstream
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-IO-Compress/compress-zlib/gzstream
编辑文件内容
#!/usr/bin/perl use strict ; use warnings ; use Compress::Zlib ; binmode STDOUT; # gzopen only sets it on the fd #my $gz = gzopen(\*STDOUT, "wb") my $gz = gzopen('-', "wb") or die "Cannot open stdout: $gzerrno\n" ; while (<>) { $gz->gzwrite($_) or die "error writing: $gzerrno\n" ; } $gz->gzclose ;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件