Software: Apache. PHP/5.5.15 uname -a: Windows NT SVR-DMZ 6.1 build 7600 (Windows Server 2008 R2 Enterprise Edition) i586 SYSTEM Safe-mode: OFF (not secure) E:\xampp\xampp\perl\bin\ drwxrwxrwx |
Viewing file: Select action/file-type: @rem = '--*-Perl-*-- @echo off if "%OS%" == "Windows_NT" goto WinNT perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 goto endofperl :WinNT 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 15 use strict; use File::Find; use Getopt::Std; use Archive::Tar; use Data::Dumper; my $opts = {}; getopts('Ddcvzthxf:I', $opts) or die usage(); ### show the help message ### die usage() if $opts->{h}; ### enable debugging (undocumented feature) local $Archive::Tar::DEBUG = 1 if $opts->{d}; ### enable insecure extracting. local $Archive::Tar::INSECURE_EXTRACT_MODE = 1 if $opts->{I}; ### sanity checks ### unless ( 1 == grep { defined $opts->{$_} } qw[x t c] ) { die "You need exactly one of 'x', 't' or 'c' options: " . usage(); } my $compress = $opts->{z} ? 1 : 0; my $verbose = $opts->{v} ? 1 : 0; my $file = $opts->{f} ? $opts->{f} : 'default.tar'; my $tar = Archive::Tar->new(); if( $opts->{c} ) { my @files; find( sub { push @files, $File::Find::name; print $File::Find::name.$/ if $verbose }, @ARGV ); if ($file eq '-') { use IO::Handle; $file = IO::Handle->new(); $file->fdopen(fileno(STDOUT),"w"); } Archive::Tar->create_archive( $file, $compress, @files ); } else { if ($file eq '-') { use IO::Handle; $file = IO::Handle->new(); $file->fdopen(fileno(STDIN),"r"); } ### print the files we're finding? my $print = $verbose || $opts->{'t'} || 0; my $iter = Archive::Tar->iter( $file ); while( my $f = $iter->() ) { print $f->full_path . $/ if $print; ### data dumper output print Dumper( $f ) if $opts->{'D'}; ### extract it $f->extract if $opts->{'x'}; } } ### pod & usage in one sub usage { my $usage .= << '=cut'; =pod =head1 NAME ptar - a tar-like program written in perl =head1 DESCRIPTION ptar is a small, tar look-alike program that uses the perl module Archive::Tar to extract, create and list tar archives. =head1 SYNOPSIS ptar -c [-v] [-z] [-f ARCHIVE_FILE | -] FILE FILE ... ptar -x [-v] [-z] [-f ARCHIVE_FILE | -] ptar -t [-z] [-f ARCHIVE_FILE | -] ptar -h =head1 OPTIONS c Create ARCHIVE_FILE or STDOUT (-) from FILE x Extract from ARCHIVE_FILE or STDIN (-) t List the contents of ARCHIVE_FILE or STDIN (-) f Name of the ARCHIVE_FILE to use. Default is './default.tar' z Read/Write zlib compressed ARCHIVE_FILE (not always available) v Print filenames as they are added or extraced from ARCHIVE_FILE h Prints this help message =head1 SEE ALSO tar(1), L<Archive::Tar>. =cut ### strip the pod directives $usage =~ s/=pod\n//g; $usage =~ s/=head1 //g; ### add some newlines $usage .= $/.$/; return $usage; } __END__ :endofperl |
:: Command execute :: | |
--[ c99shell v. 1.0 pre-release build #13 powered by Captain Crunch Security Team | http://ccteam.ru | Generation time: 0.0156 ]-- |