perl jar manifest 罐

名称Jar::Manifest -读写Java Jar清单概要use Jar::Manifest qw(Dump Load); # Read a Manifest my $manifest_str = <"MANIFEST"; Manifest-Version: 1.0 Created-By: 1.5.0_11-b03 (Sun Microsystems Inc.) Built-By: JAPH Name: org/myapp/foo/ Implementation-Title: Test Java JAR Implementation-Version: 1.9 Implementation-Vendor: JAPH MANIFEST my $manifest = Load($manifest_str); printf( "Jar built by -> %s ", $m