#!/usr/bin/env perl
#Licencia: GPL
#Autor: su -
use strict;
sub usage {
print "tgzlist: file.tar.gz [-f -d]\n";
print "Options:\n";
print "\t-f: Files numbers\n";
print "\t-d: Directories\n";
exit;
}
usage() unless @ARGV;
if(not -f $ARGV[0]){usage();}
my ($file, $linea) = (0, 0);
my $pid = open(my $fl, "-|", "tar -tzf $ARGV[0]") or die
"Error: $!\n";
while(my $linea = <$fl>){
chomp $linea;
if ($linea =~ m#(.*)/$#){
$dir += 1;
}
else {
$file += 1;
}
}
close $fl;
print "There is $file\n"; if $ARGV[1] eq "-f";
print "There is $dir\n"; if $ARGV[1] eq "-d";