Perl:zip/unzip

2014-07-30 :  PCクリニック
本文の前に、
-・・・ -・-
現時点での、blogramのランクインカテゴリは、
3、3、0、1、0、 1、1、0、0、0(41)で、換算ポイント 60pt 。
特段のランク変動は無し?
・-・ - -・

さて、本文。

今週初め(2014-07-27)の記事:
Python 学習:書庫操作
に対して、
Perl でも、・・・・・


Perl にも、標準モジュールがある。

“Archive::Zip”で、
zip/unzip 両方向が可能。

他に、
“Archive::Tar”もある。

また、
“Archive::Extract”は、各種形式書庫の解凍専用ツール。


参考にしたサイト:「燈明日記」
2009/2/11 付記事:
PerlでZIP/UNZIP
  WindowsXPでは標準装備で、ZIPでの圧縮/解凍機能がありますが・・・。
  Perlでも標準モジュール(Archive)で、ZIPでの圧縮/解凍機能があります。
  簡単なサンプルを組んで見ましたので、何かの機会に参考になれば幸いです。
  ・・・・・
  ・・・・・
と云うことで、・・・・・

<紙>流まとめ。


圧縮(zip):

use Archive::Zip;

$zip = Archive::Zip -> new();

$zip -> addFile( 'hoge1.txt' );
$zip -> addFile( 'hoge2.txt' );

$zip_file = 'file.zip';
$zip -> writeToFileNamed( $zip_file );



解凍(unzip):

use Archive::Zip;

$wdir = '.';
$zip_file = 'file.zip';
$zipfile = "$wdir/file.zip";

$zip = Archive::Zip -> new($zipfile);
@members = $zip -> memberNames();
foreach (@members){
$zip -> extractMember( $_, "$wdir/$_" );
}



本日はここまで。


Python 学習に戻る???


見ていただいた序でとは厚かましい限りですが、
お帰りに投票して頂けるとなお嬉しいです。 ⇒ blogram投票ボタン


131026
関連記事
スポンサーサイト

コメントの投稿

管理者にだけ表示を許可する

おきてがみ/blogram
blogram投票ボタン



おきてがみ

最新記事
カレンダー
07 | 2017/08 | 09
- - 1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31 - -
月別アーカイブ
カテゴリ
最新コメント
検索フォーム
リンク
プロフィール

<紙>

Author:<紙>
ようこそ。
「パソコンヲタクの雑記帳」
もろもろなことを綴っています。
パソコン ヲタクってねくら?
画像は kami でなく kani です。

カウンター(fc2、i2i) /Google Analytics


i2i(from 2010-08-24)
Total =
Today  =  
Yesterday=
アンチエイジング

Google Analytics
ブックマーク