#!/usr/bin/perl -w use strict; use CGI ':standard'; use Archive::Tar; my $file = "/home/mm/IpToCountry.csv.gz"; my $end_file = "/home/mm/IpToCountry.csv"; print header(); my $tar = Archive::Tar->new; my $tar_errors = $tar->error(); $tar->read($file,1); $tar->extract($file, $end_file); print p("Tar errors ($tar_errors)");
In reply to Extracting a file from .gz archive by jonnyfolk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |