Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
SOAPsh.bat	3.35 KB	-rwxrwxrwx	2021-01-24 18:08
SOAPsh.pl	2.75 KB	-rw-rw-rw-	2021-01-24 18:01
bdf2gdfont.bat	5.26 KB	-rwxrwxrwx	2021-01-24 18:08
bdf2gdfont.pl	4.75 KB	-rw-rw-rw-	2021-01-24 17:46
chartex	5.67 KB	-rw-rw-rw-	2021-01-24 18:01
chartex.bat	6.47 KB	-rwxrwxrwx	2021-01-24 18:08
config_data	7.2 KB	-rw-rw-rw-	2021-01-24 18:01
config_data.bat	7.73 KB	-rwxrwxrwx	2024-07-26 17:42
corelist.bat	15.75 KB	-rwxrwxrwx	2023-11-19 11:41
cpan	8.06 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-mirrors	4.18 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-mirrors.bat	5.1 KB	-rwxrwxrwx	2021-01-24 18:08
cpan-outdated	8.85 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-outdated.bat	9.67 KB	-rwxrwxrwx	2021-01-24 18:08
cpan.bat	9.16 KB	-rwxrwxrwx	2021-01-24 18:08
cpan2dist	21.22 KB	-rw-rw-rw-	2021-01-24 18:01
cpan2dist.bat	22.39 KB	-rwxrwxrwx	2021-01-24 18:08
cpandb	6.6 KB	-rw-rw-rw-	2021-01-24 18:01
cpandb.bat	7.37 KB	-rwxrwxrwx	2021-01-24 18:08
cpanel_json_xs	9.75 KB	-rw-rw-rw-	2021-01-24 18:01
cpanel_json_xs.bat	10.58 KB	-rwxrwxrwx	2021-01-24 18:08
cpanfile-dump	3.45 KB	-rw-rw-rw-	2021-01-24 16:20
cpanfile-dump.bat	4.08 KB	-rwxrwxrwx	2021-01-24 18:08
cpanm	295.67 KB	-rw-rw-rw-	2021-01-24 16:36
cpanm.bat	297.23 KB	-rwxrwxrwx	2021-01-24 18:08
cpanp	3.22 KB	-rw-rw-rw-	2021-01-24 18:01
cpanp-run-perl	459 B	-rw-rw-rw-	2021-01-24 16:38
cpanp-run-perl.bat	990 B	-rwxrwxrwx	2021-01-24 18:08
cpanp.bat	3.84 KB	-rwxrwxrwx	2021-01-24 18:08
crc32	1.01 KB	-rw-rw-rw-	2021-01-24 18:01
crc32.bat	1.57 KB	-rwxrwxrwx	2021-01-24 18:08
dbicadmin	7 KB	-rw-rw-rw-	2021-01-24 18:01
dbicadmin.bat	7.87 KB	-rwxrwxrwx	2021-01-24 18:08
dbilogstrip	1.39 KB	-rw-rw-rw-	2021-01-24 17:15
dbilogstrip.bat	1.89 KB	-rwxrwxrwx	2021-01-24 18:08
dbiprof	6.31 KB	-rw-rw-rw-	2021-01-24 17:15
dbiprof.bat	6.82 KB	-rwxrwxrwx	2021-01-24 18:08
dbiproxy	5.44 KB	-rw-rw-rw-	2021-01-24 17:15
dbiproxy.bat	5.95 KB	-rwxrwxrwx	2021-01-24 18:08
enc2xs	40.68 KB	-rw-rw-rw-	2021-01-24 18:01
enc2xs.bat	42.87 KB	-rwxrwxrwx	2021-01-24 18:08
encguess	2.91 KB	-rw-rw-rw-	2021-01-24 18:01
encguess.bat	3.8 KB	-rwxrwxrwx	2021-01-24 18:08
exe_update.bat	4.71 KB	-rwxrwxrwx	2021-01-24 18:08
exe_update.pl	4.05 KB	-rw-rw-rw-	2021-01-24 18:01
exetype.bat	3.53 KB	-rwxrwxrwx	2021-01-24 18:08
extract_vba	2.98 KB	-rw-rw-rw-	2021-01-24 18:01
extract_vba.bat	3.62 KB	-rwxrwxrwx	2021-01-24 18:08
factor.bat	3.77 KB	-rwxrwxrwx	2021-01-24 18:08
factor.pl	3.16 KB	-rw-rw-rw-	2021-01-24 18:01
findrule	3.24 KB	-rw-rw-rw-	2021-01-24 16:52
findrule.bat	3.88 KB	-rwxrwxrwx	2021-01-24 18:08
h2ph.bat	30.27 KB	-rwxrwxrwx	2024-07-26 17:42
h2xs.bat	62.43 KB	-rwxrwxrwx	2024-07-26 17:42
htmltree	1.28 KB	-rw-rw-rw-	2021-01-24 18:01
htmltree.bat	1.81 KB	-rwxrwxrwx	2024-07-26 17:42
hypnotoad	1.03 KB	-rw-rw-rw-	2021-01-24 16:59
hypnotoad.bat	1.58 KB	-rwxrwxrwx	2021-01-24 18:08
instmodsh	4.09 KB	-rw-rw-rw-	2021-01-24 18:01
instmodsh.bat	5.03 KB	-rwxrwxrwx	2021-01-24 18:08
json_pp	4.77 KB	-rw-rw-rw-	2021-01-24 18:01
json_pp.bat	5.52 KB	-rwxrwxrwx	2024-07-26 17:42
json_xs	6.84 KB	-rw-rw-rw-	2021-01-24 18:01
json_xs.bat	7.6 KB	-rwxrwxrwx	2021-01-24 18:08
kwalitee-metrics	2.34 KB	-rw-rw-rw-	2021-01-24 18:01
kwalitee-metrics.bat	2.96 KB	-rwxrwxrwx	2021-01-24 18:08
libgcc_s_seh-1.dll	74.5 KB	-rw-rw-rw-	2019-03-14 23:36
libnetcfg.bat	16.88 KB	-rwxrwxrwx	2024-07-26 17:42
libstdc++-6.dll	1.36 MB	-rw-rw-rw-	2019-03-14 23:36
libwinpthread-1.dll	51 KB	-rw-rw-rw-	2019-03-14 23:36
llw32helper.bat	4.8 KB	-rwxrwxrwx	2021-01-24 18:08
llw32helper.pl	4.13 KB	-rw-rw-rw-	2021-01-24 17:51
lwp-download	10.04 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-download.bat	10.88 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-dump	2.64 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-dump.bat	3.26 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-mirror	2.35 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-mirror.bat	2.96 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-request	15.81 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-request.bat	16.88 KB	-rwxrwxrwx	2021-01-24 18:08
mech-dump	4.74 KB	-rw-rw-rw-	2021-01-24 18:01
mech-dump.bat	5.44 KB	-rwxrwxrwx	2021-01-24 18:08
minicpan	5.36 KB	-rw-rw-rw-	2021-01-24 18:08
minicpan.bat	6.05 KB	-rwxrwxrwx	2021-01-24 18:08
module-version	2.06 KB	-rw-rw-rw-	2021-01-24 17:51
module-version.bat	2.65 KB	-rwxrwxrwx	2021-01-24 18:08
mojo	408 B	-rw-rw-rw-	2021-01-24 16:59
mojo.bat	953 B	-rwxrwxrwx	2021-01-24 18:08
moose-outdated	427 B	-rw-rw-rw-	2021-01-24 18:01
moose-outdated.bat	977 B	-rwxrwxrwx	2021-01-24 18:08
morbo	2.15 KB	-rw-rw-rw-	2021-01-24 16:59
morbo.bat	2.72 KB	-rwxrwxrwx	2021-01-24 18:08
mymeta-cpanfile	2.7 KB	-rw-rw-rw-	2021-01-24 16:20
mymeta-cpanfile.bat	3.32 KB	-rwxrwxrwx	2021-01-24 18:08
nssm_32.exe	288 KB	-rwxrwxrwx	2021-01-24 16:50
nssm_64.exe	323.5 KB	-rwxrwxrwx	2021-01-24 16:50
package-stash-conflicts	463 B	-rw-rw-rw-	2021-01-24 18:01
package-stash-conflicts.bat	1013 B	-rwxrwxrwx	2021-01-24 18:08
parinstallppd	3.35 KB	-rw-rw-rw-	2021-01-24 18:01
parinstallppd.bat	3.99 KB	-rwxrwxrwx	2021-01-24 18:08
perl.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
perl5.32.1.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
perl532.dll	3.26 MB	-rw-rw-rw-	2021-01-24 16:07
perlbug.bat	46.8 KB	-rwxrwxrwx	2024-07-26 17:42
perldoc.bat	1016 B	-rwxrwxrwx	2023-11-19 11:41
perlglob.bat	1.95 KB	-rwxrwxrwx	2021-01-24 18:08
perlglob.exe	17 KB	-rwxrwxrwx	2021-01-24 16:01
perlivp.bat	11.72 KB	-rwxrwxrwx	2024-07-26 17:42
perlthanks.bat	46.8 KB	-rwxrwxrwx	2024-07-26 17:42
perltidy	175.27 KB	-rw-rw-rw-	2021-01-24 18:01
perltidy.bat	180.32 KB	-rwxrwxrwx	2021-01-24 18:08
pgplet	10.37 KB	-rw-rw-rw-	2021-01-24 18:01
pgplet.bat	11.22 KB	-rwxrwxrwx	2021-01-24 18:08
piconv	8.07 KB	-rw-rw-rw-	2021-01-24 18:01
piconv.bat	9.13 KB	-rwxrwxrwx	2021-01-24 18:08
pkg-config	46.94 KB	-rw-rw-rw-	2021-01-24 18:01
pkg-config.bat	49.2 KB	-rwxrwxrwx	2021-01-24 18:08
pl2bat.bat	11.49 KB	-rwxrwxrwx	2021-01-24 18:08
pl2bat.pl	10.4 KB	-rw-rw-rw-	2021-01-24 18:01
pl2pm.bat	5.56 KB	-rwxrwxrwx	2024-07-26 17:42
pler	540 B	-rw-rw-rw-	2021-01-24 18:01
pler.bat	1.07 KB	-rwxrwxrwx	2021-01-24 18:08
pm-uninstall	820 B	-rw-rw-rw-	2021-01-24 18:01
pm-uninstall.bat	1.28 KB	-rwxrwxrwx	2023-11-19 11:41
pod2html.bat	5.02 KB	-rwxrwxrwx	2024-07-26 17:42
pod2latex	10.39 KB	-rw-rw-rw-	2024-07-26 17:42
pod2latex.bat	10.92 KB	-rwxrwxrwx	2024-07-26 17:42
pod2man.bat	15.42 KB	-rwxrwxrwx	2023-11-19 11:41
pod2text.bat	11.29 KB	-rwxrwxrwx	2023-11-19 11:41
pod2usage	4.16 KB	-rw-rw-rw-	2021-01-24 16:27
pod2usage.bat	4.67 KB	-rwxrwxrwx	2021-01-24 18:08
pod_cover	1.37 KB	-rw-rw-rw-	2021-01-24 18:01
pod_cover.bat	1.94 KB	-rwxrwxrwx	2021-01-24 18:08
podchecker	3.7 KB	-rw-rw-rw-	2021-01-24 16:27
podchecker.bat	4.21 KB	-rwxrwxrwx	2021-01-24 18:08
podselect	2.56 KB	-rw-rw-rw-	2021-01-24 16:25
podselect.bat	3.07 KB	-rwxrwxrwx	2021-01-24 18:08
ppd2par	4.64 KB	-rw-rw-rw-	2021-01-24 18:01
ppd2par.bat	5.32 KB	-rwxrwxrwx	2021-01-24 18:08
ppm.bat	35.53 KB	-rwxrwxrwx	2021-01-24 18:08
ppm.pl	33.99 KB	-rw-rw-rw-	2021-01-24 18:01
primes.bat	21.45 KB	-rwxrwxrwx	2021-01-24 18:08
primes.pl	20.34 KB	-rw-rw-rw-	2021-01-24 18:01
prove.bat	14.07 KB	-rwxrwxrwx	2023-11-19 11:41
ptar	3.38 KB	-rw-rw-rw-	2021-01-24 18:01
ptar.bat	4.28 KB	-rwxrwxrwx	2021-01-24 18:08
ptardiff	2.48 KB	-rw-rw-rw-	2021-01-24 18:01
ptardiff.bat	3.35 KB	-rwxrwxrwx	2021-01-24 18:08
ptargrep	4.19 KB	-rw-rw-rw-	2021-01-24 18:01
ptargrep.bat	5.14 KB	-rwxrwxrwx	2021-01-24 18:08
runperl.bat	2.72 KB	-rwxrwxrwx	2021-01-24 18:08
scan-perl-prereqs-nqlite	5.28 KB	-rw-rw-rw-	2021-01-24 16:24
scan-perl-prereqs-nqlite.bat	6 KB	-rwxrwxrwx	2021-01-24 18:08
search.bat	55.83 KB	-rwxrwxrwx	2021-01-24 18:08
shasum.bat	10.48 KB	-rwxrwxrwx	2023-11-19 11:41
splain.bat	20.43 KB	-rwxrwxrwx	2024-07-26 17:42
streamzip	5.45 KB	-rw-rw-rw-	2021-01-24 18:01
streamzip.bat	6.17 KB	-rwxrwxrwx	2021-01-24 18:08
stubmaker.bat	4.01 KB	-rwxrwxrwx	2021-01-24 18:08
stubmaker.pl	3.35 KB	-rw-rw-rw-	2021-01-24 18:01
test-yaml	1017 B	-rw-rw-rw-	2021-01-24 18:01
test-yaml.bat	1.56 KB	-rwxrwxrwx	2021-01-24 18:08
tpage	8.85 KB	-rw-rw-rw-	2021-01-24 18:01
tpage.bat	9.64 KB	-rwxrwxrwx	2021-01-24 18:08
ttree	38.21 KB	-rw-rw-rw-	2021-01-24 18:01
ttree.bat	39.9 KB	-rwxrwxrwx	2021-01-24 18:08
use-devel-checklib	2.7 KB	-rw-rw-rw-	2021-01-24 16:53
use-devel-checklib.bat	3.31 KB	-rwxrwxrwx	2021-01-24 18:08
whirlpoolsum	4.93 KB	-rw-rw-rw-	2021-01-24 18:01
whirlpoolsum.bat	5.67 KB	-rwxrwxrwx	2021-01-24 18:08
wperl.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
xml_grep	13.32 KB	-rw-rw-rw-	2021-01-24 18:01
xml_grep.bat	14.3 KB	-rwxrwxrwx	2021-01-24 18:08
xml_merge	3.89 KB	-rw-rw-rw-	2021-01-24 18:01
xml_merge.bat	4.55 KB	-rwxrwxrwx	2021-01-24 18:08
xml_pp	7.82 KB	-rw-rw-rw-	2021-01-24 18:01
xml_pp.bat	8.61 KB	-rwxrwxrwx	2021-01-24 18:08
xml_spellcheck	6.34 KB	-rw-rw-rw-	2021-01-24 18:01
xml_spellcheck.bat	7.1 KB	-rwxrwxrwx	2021-01-24 18:08
xml_split	21.13 KB	-rw-rw-rw-	2021-01-24 18:01
xml_split.bat	22.27 KB	-rwxrwxrwx	2021-01-24 18:08
xsubpp.bat	5.78 KB	-rwxrwxrwx	2023-11-19 11:41
zipdetails	56.01 KB	-rw-rw-rw-	2021-01-24 18:01
zipdetails.bat	58.95 KB	-rwxrwxrwx	2021-01-24 18:08

Rename

@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
IF EXIST "%~dp0perl.exe" (
"%~dp0perl.exe" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
) ELSE IF EXIST "%~dp0..\..\bin\perl.exe" (
"%~dp0..\..\bin\perl.exe" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
) ELSE (
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
)

goto endofperl
:WinNT
IF EXIST "%~dp0perl.exe" (
"%~dp0perl.exe" -x -S %0 %*
) ELSE IF EXIST "%~dp0..\..\bin\perl.exe" (
"%~dp0..\..\bin\perl.exe" -x -S %0 %*
) ELSE (
perl -x -S %0 %*
)

if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!/usr/bin/perl
#line 29
##############################################################################
# Tool for using regular expressions against the contents of files in a tar
# archive.  See 'ptargrep --help' for more documentation.
#

BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use warnings;

use Pod::Usage   qw(pod2usage);
use Getopt::Long qw(GetOptions);
use Archive::Tar qw();
use File::Path   qw(mkpath);

my(%opt, $pattern);

if(!GetOptions(\%opt,
    'basename|b',
    'ignore-case|i',
    'list-only|l',
    'verbose|v',
    'help|?',
)) {
    pod2usage(-exitval => 1,  -verbose => 0);
}

pod2usage(-exitstatus => 0, -verbose => 2) if $opt{help};

pod2usage(-exitval => 1,  -verbose => 0,
    -message => "No pattern specified",
) unless @ARGV;
make_pattern( shift(@ARGV) );

pod2usage(-exitval => 1,  -verbose => 0,
    -message => "No tar files specified",
) unless @ARGV;

process_archive($_) foreach @ARGV;

exit 0;

sub make_pattern {
    my($pat) = @_;

if($opt{'ignore-case'}) {
        $pattern = qr{(?im)$pat};
    }
    else {
        $pattern = qr{(?m)$pat};
    }
}

sub process_archive {
    my($filename) = @_;

_log("Processing archive: $filename");
    my $next = Archive::Tar->iter($filename);
    while( my $f = $next->() ) {
        next unless $f->is_file;
        match_file($f) if $f->size > 0;
    }
}

sub match_file {
    my($f)   = @_;
    my $path = $f->name;
    my $prefix = $f->prefix;
    if (defined $prefix) {
        $path = File::Spec->catfile($prefix, $path);
    }

_log("filename: %s  (%d bytes)", $path, $f->size);

my $body = $f->get_content();
    if($body !~ $pattern) {
        _log("  no match");
        return;
    }

if($opt{'list-only'}) {
        print $path, "\n";
        return;
    }

save_file($path, $body);
}

sub save_file {
    my($path, $body) = @_;

_log("  found match - extracting");
    my($fh);
    my($dir, $file) = $path =~ m{\A(?:(.*)/)?([^/]+)\z};
    if($dir and not $opt{basename}) {
        _log("  writing to $dir/$file");
        $dir =~ s{\A/}{./};
        mkpath($dir) unless -d $dir;
        open $fh, '>', "$dir/$file" or die "open($dir/$file): $!";
    }
    else {
        _log("  writing to ./$file");
        open $fh, '>', $file or die "open($file): $!";
    }
    print $fh $body;
    close($fh);
}

sub _log {
    return unless $opt{verbose};
    my($format, @args) = @_;
    warn sprintf($format, @args) . "\n";
}

__END__

=head1 NAME

ptargrep - Apply pattern matching to the contents of files in a tar archive

=head1 SYNOPSIS

ptargrep [options] <pattern> <tar file> ...

Options:

--basename|-b     ignore directory paths from archive
   --ignore-case|-i  do case-insensitive pattern matching
   --list-only|-l    list matching filenames rather than extracting matches
   --verbose|-v      write debugging message to STDERR
   --help|-?         detailed help message

=head1 DESCRIPTION

This utility allows you to apply pattern matching to B<the contents> of files
contained in a tar archive.  You might use this to identify all files in an
archive which contain lines matching the specified pattern and either print out
the pathnames or extract the files.

The pattern will be used as a Perl regular expression (as opposed to a simple
grep regex).

Multiple tar archive filenames can be specified - they will each be processed
in turn.

=head1 OPTIONS

=over 4

=item B<--basename> (alias -b)

When matching files are extracted, ignore the directory path from the archive
and write to the current directory using the basename of the file from the
archive.  Beware: if two matching files in the archive have the same basename,
the second file extracted will overwrite the first.

=item B<--ignore-case> (alias -i)

Make pattern matching case-insensitive.

=item B<--list-only> (alias -l)

Print the pathname of each matching file from the archive to STDOUT.  Without
this option, the default behaviour is to extract each matching file.

=item B<--verbose> (alias -v)

Log debugging info to STDERR.

=item B<--help> (alias -?)

Display this documentation.

=back

=head1 COPYRIGHT

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

__END__
:endofperl