Ako extrahovať ZIP súbory s Perl

Jedným z hlavných modulov Perlu , ktorý je dodávaný s každou inštaláciu skriptovací jazyk je modul Archive , ktorý obsahuje rad nástrojov pre prácu s ZIP súborov a ďalších typov archívov . Okrem všadeprítomnej formáte ZIP , knižnica Perl Archive podporuje tiež tgz , TAR , GZ , TAR , a ďalšie . Pokyny dovolená 1

Vytvorte nový textový súbor . Každý prostý textový editor bude robiť , za predpokladu , že píše obyčajné textové súbory a nie špecializované textové dokumenty . Tak napríklad Windows Poznámkový blok je prijateľná , ale Microsoft Word nie je . Názov súboru " extractor.pl . "
2

Vložiť nasledujúce ako prvý riadok programu . To bude importovať achive :: nástroje Extract do programu PERL , takže ho môžete použiť :

použiť archív :: Výpis ;
3

vložte nasledujúci načítať ZIP súbor do odsávacieho :

my $ odsávanie = Archive :: Extract - > new ( Archív = > ' file.zip ' ) ;
4

vložte nasledujúci extrahovať súbory do aktuálneho pracovného adresára ( jeden skript beží v ) :

$ extractor.extract ;

Prípadne, ak chcete extrahovať súbory do adresára podľa vášho výberu vložte nasledujúci miesto :

$ extractor.extract ( k = > ' /extractionDirectory /' ) ;

A napokon, ak si neželáte , aby extrahovať súbory v archíve adresár , ale chcem , aby si priamo v PERL programu , môžete vložiť nasledujúci kód miesto generovať rad súborov obsiahnutých v :

my $ file = $ extractor.files ;

• Predchádzajúca strana: Ako zapnúť zips súborov do spustiteľné 
• Ďalšia strana: Ako dekódovať ZIP súboru