Perl 讀寫 gz tgz 等壓縮檔案

1. 使用perl直接讀取壓縮檔案 use pipe

.gz格式檔案

1

open

(fin,
"gzip -dc $infilename|")or
die(
"can not open $infilename/n"
);

.tgz(.tar.gz)格式檔案

1

open

(fin,
"tar -xf $infilename -o|")or
die(
"can not open $infilename/n"
);

7zip格式檔案

1

open

(fin,
"7za e -so $infilename|")or
die(
"can not open $infilename/n"
);

這個可以直接用

2. 用perlio包

1)在*.pl前加上

1

2

use lib "/libpath"

;use perlio::
gzip
;

2)在用的時候：

1

2

open fi,

"<:gzip"
,"$fi"
;open fo,
">:gzip"
,"$fo"
;

3. 用 file::package;

123

4567
891011
1213
1415
1617
1819
2021
2223
24

#!/usr/bin/perl -w

use strict;
use file::
package;my
$uut
='tie::gzip';my
$fp=
'file::package'
;$fp
->
load_package
($uut);
tie*gzip
,'tie::gzip';my
$gzip
=/*gzip
;open
($gzip
,"> test.gz");
while(my
$line
=<
$gzip
>
)close
$gzip
;tie
*out
,'tie::gzip';my
$out
=/*out
;open
($out
,"> test.gz");
print
$out
"i want to know more!/n"
close
$out
;

perl 讀寫配置檔案

1.配置檔案格式形式如下 newbin path data1 vshare newbin uid root gid root read only no col path data1 col uid root gid root read only no 2.讀配置函式 read conf 讀出為整個h...

Perl讀寫檔案 字串操作

perl中讀寫檔案的方法非常簡單，可以使用open或sysopen函式來開啟檔案，linux下執行perl指令碼只需 xx.pl 或 perl xx.pl。讀檔案 open 檔案控制代碼,檔名 或者 open 檔案控制代碼,檔名 如 open in,test.txt while close in 寫...

perl讀寫二進位制檔案

perl讀寫二進位制檔案只能使用sysread和syswrite 以下是乙個讀取檔案，寫入檔案的例子 open rf,f training video back 11.wmv print begin n my len read 1024 my len sysread rf,buf,len read ...