Archive::Zip - ZIPファイルã®è§£å‡[Perl] Perlã§ZIPファイルを解å‡ã™ã‚‹ã«ã¯Archive::Zipモジュールを使用ã—ã¾ã™ã€‚ [例] #!/usr/bin/perl use Archive::Zip; #ファイルåを指定 $fileName = 'test.zip'; #ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ä½œæˆ my $zip = Archive::Zip->new(); #ファイルã®èªã¿è¾¼ã¿ã«å¤±æ•—ã—ãŸã‚‰å¼·åˆ¶çµ‚了 die 'read error' unless $zip->read($fileName) == AZ_OK; #ファイルã®æ•°ã¯numberofMembersã§å–å¾—ã§ãã¾ã™ print "Extracting " . $zip->numberOfMembers($fileName) . " files from $fileName\n"; #ファイルã®ä¸€è¦§ã‚’å–å¾— @members = $zip->members(); for
{{#tags}}- {{label}}
{{/tags}}