Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 24 lines (14 sloc) 0.361 kB
#!/usr/bin/perl
use strict;
use warnings;
use Perl6::Say;
use Archive::Tar;
my $filename = '/Users/andy/sample.tar.gz';
my $tar = Archive::Tar->new( $filename );
foreach my $file ( $tar->get_files ) {
next if $file->is_symlink;
next if $file->is_hardlink;
next unless $file->is_file;
my $name = $file->name;
say $file->full_path;
}
Jump to Line
Something went wrong with that request. Please try again.