udpakning zip -filer med perl

Indlæg af Allan Busk-Mathiasen     opdateret: 2011-12-06

Et af de centrale PERL moduler , der kommer med hver installation af scripting sprog er Arkiv -modul , som omfatter en række værktøjer til at arbejde med ZIP -filer og andre typer af arkiver . Udover den allestedsnærværende ZIP-format , også Perl Archive biblioteket understøtter TGZ , TAR , GZ , TAR , og andre
1

Opret en ny tekstfil . Enhver almindelig tekst editor vil gøre , hvis det skriver almindelige tekstfiler og ikke specialiserede tekstbehandlingsdokumenter . Altså for eksempel , er Windows Notesblok acceptabelt , men Microsoft Word er det ikke. Navngiv filen " extractor. pl . "
2 .
Indsæt følgende som den første linje i dit program . Det vil importere Opnå : Uddrag værktøj i PERL program, så du kan bruge det :

brug Arkiv: : . Uddrag ;
3

Indsæt følgende for at indlæse ZIP filen i emhætten :

min $ emhætte=Arkiv : : Uddrag-> ny ( arkiv=> » file. zip ' ) ;
4
Indsæt følgende for at udpakke filerne til den aktuelle arbejdsmappe ( den ene scriptet kører indenfor ) :


$ emhætte . ekstrakt ,


Alternativt , hvis du ønsker at udpakke filerne til en mappe efter eget valg , skal du indsætte følgende i stedet :


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


Endelig , hvis du gør ikke ønsker at udpakke filerne i arkivet til en mappe , men ønsker at læse dem direkte i din perl program , kan du indsætte følgende kode i stedet for at generere en række af de filer, der er indeholdt i :


min $ files=$ emhætte . filer ;


Previous:hvordan man kan uploade filer i perl Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change