كيفية البحث في الملفات المؤرشفة مع بيرل

Question

ما هي طريقتك المفضلة لقراءة محتويات الدلائل المضغوطة باستخدام لغة Perl؟

Answer 1

هناك عدة وحدات في CPAN للعمل مع تنسيقات أرشيف مختلفة (zip، tar، وما إلى ذلك)، الوحدة التي تبحث عنها على الأرجح هي الأرشيف::Zip.

Answer 2

الأرشيف::Zip

require Archive::Zip;
my $zip = Archive::Zip->new($somefile);
for($zip->memberNames()) {
  print "$_\n";
}

Answer 3

إذا كنت تريد محتويات أرشيف .tar.gz

open(DIR_LISTING, "gzip -dc concert25.tgz | tar -tf -|") || die;
while (<DIR_LISTING>) {
   print;
}
close (DIR_LISTING);