|
Server : Apache/2.2.22 (Unix) mod_ssl/2.2.22 OpenSSL/1.0.0-fips mod_auth_passthrough/2.1 mod_bwlimited/1.4 System : Linux server.jackjohnson.com 2.6.32-279.5.2.el6.x86_64 #1 SMP Fri Aug 24 01:07:11 UTC 2012 x86_64 User : jackjohn ( 502) PHP Version : 5.3.17 Disable Function : NONE Directory : /installd/perl588installer/perl-5.8.8/win32/ |
Upload File : |
@perl -w -Sx %0 %*
@goto end_of_perl
#!perl -w
BEGIN { push(@INC,'lib') }
use strict;
use File::Find;
use ExtUtils::Manifest qw(maniread);
my $files = maniread();
my %files;
foreach (keys %$files)
{
$files{lc($_)} = $files->{$_};
}
my @dead;
find(sub {
return if -d $_;
my $name = $File::Find::name;
$name =~ s#^\./##;
unless (exists $files{lc($name)})
{
# print "new $name\n";
push(@dead,$name);
}
},'.');
foreach my $file (@dead)
{
chmod(0666,$file) unless -w $file;
unlink($file) || warn "Cannot delete $file:$!";
}
__END__
:end_of_perl
del perl.exe
del perl*.dll