|
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/epoc/ |
Upload File : |
#!/usr/bin/perl
use File::Find;
use Cwd;
$VERSION="5.8.8";
$EPOC_VERSION=1;
sub filefound {
my $f = $File::Find::name;
return if ( $f =~ /CVS|Unicode|unicore|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$|\.t$/i);
my $back = $f;
my $psiback = $back;
$psiback =~ s|.*/lib/|\\emx\\lib\\perl\\$VERSION\\|;
$psiback =~ s|/|\\|g;
print OUT "\"$back\"-\"!:$psiback\"\n" if ( -f $f );
}
open OUT,">perl.pkg";
print OUT "#{\"perl$VERSION\"},(0x100051d8),0,$EPOC_VERSION,0\n";
print OUT "\"" . cwd . "/Artistic.txt\"-\"\",FT,TC\n";
print OUT "\"" . cwd . "/perl\"-\"!:\\emx\\bin\\perl.exe\"\n";
find(\&filefound, cwd.'/lib');
open IN, "<Artistic";
open OUT, ">Artistic.txt";
while (my $line = <IN>) {
chomp $line;
print OUT "$line\r\n";
}
close IN;
close OUT;