كيفية البحث في الملفات المؤرشفة مع بيرل
-
02-07-2019 - |
سؤال
ما هي طريقتك المفضلة لقراءة محتويات الدلائل المضغوطة باستخدام لغة Perl؟
المحلول
هناك عدة وحدات في CPAN للعمل مع تنسيقات أرشيف مختلفة (zip، tar، وما إلى ذلك)، الوحدة التي تبحث عنها على الأرجح هي الأرشيف::Zip.
نصائح أخرى
الأرشيف::Zip
require Archive::Zip;
my $zip = Archive::Zip->new($somefile);
for($zip->memberNames()) {
print "$_\n";
}
إذا كنت تريد محتويات أرشيف .tar.gz
open(DIR_LISTING, "gzip -dc concert25.tgz | tar -tf -|") || die;
while (<DIR_LISTING>) {
print;
}
close (DIR_LISTING);
لا تنتمي إلى StackOverflow