Help for this page

Select Code to Download


  1. or download this
    use Archive::Tar;
my @properties = qw( name size mtime );
my $location = "/vol/archive5/test5.tar";
my %files = Archive::Tar->list_archive($location,0,\@properties);
print Dumper \%files;
  2. or download this
    $VAR1 = {
          'HASH(0x3148770)' => {
...
                                 'size' => 691
                               },
...