Sådan Uddrag ZIP-filer med Perl

July 27

En af de centrale perlmoduler der følger med hvert installation af scriptsprog er Arkiv modul, som indeholder en række værktøjer til at arbejde med ZIP-filer og andre typer arkiver. Udover den allestedsnærværende ZIP-format, Perl Archive biblioteket understøtter også TGZ, TAR, GZ, TAR, og andre.

Instruktioner

1 Opret en ny tekstfil. Enhver almindelig tekst editor vil gøre, hvis det skriver almindelige tekstfiler og ikke specialiserede tekstbehandlingsdokumenter. Så for eksempel Windows Notesblok er acceptabel, men Microsoft Word er ikke. Navngiv filen "extractor.pl."

2 Indsæt følgende som den første linje af dit program. Det vil importere achive :: Uddrag værktøj i PERL program, så du kan bruge det:

bruge Archive :: Uddrag;

3 Indsæt følgende for at indlæse ZIP-fil ind i emhætte:

min $ emhætte = Arkiv :: udledning af de> nye (arkiv => 'file.zip');

4 Indsæt følgende for at udpakke filerne til den aktuelle arbejdsmappe (den ene scriptet kører indenfor):

$ Extractor.extract;

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

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

Endelig, hvis du 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:

mine $ files = $ extractor.files;


relaterede artikler