鐃緒申鐃緒申鐃旬の種申鐃舜の削申発鐃緒申鐃緒申鐃緒か鐃緒申覆鐃緒申鐃緒申鼻鐃緒申鐃緒申弔鐃緒申鐃淑わ申鐃獣わ申鐃緒申里聾鐃緒申弔鐃緒申鐃淑わ申鐃獣わ申鐃塾で￥申

ezip.pl

鐃緒申鐃緒申鐃祝削申鐃緒申鐃緒申鐃緒申鐃緒申蓮鐃緒申鐃緒申鐃緒申蕁�

#!/usr/bin/env perl
#
# $Id: ezip.pl,v 0.1 2010/09/06 13:52:00 dankogai Exp dankogai $
#
use strict;
use warnings;
use Archive::Zip qw/:ERROR_CODES/;
use Getopt::Std;
use Encode;
use Unicode::Normalize;    # to handle UTF-8-MAC

my %opt = ( e => 'UTF-8' );
getopts( "e:" => \%opt );
my $encode = do {
    my $enc = find_encoding( $opt{e} ) or die "unknown encoding: $opt{e}";
    sub { $enc->encode( Unicode::Normalize::NFC( decode_utf8(shift) ) ) };
};

my $zipfile = shift; 
die "$0 -e encoding archive.zip path ..." unless @ARGV;
my $zip = Archive::Zip->new;
$zip->addTree($_, $_) for @ARGV;
my $error;
for my $m ( $zip->members() ) {
    $m->fileName( $encode->( $m->fileName ) );
}
$error = $zip->writeToFileNamed($zipfile) and die "$zipfile : error $error";

SYNOPSIS

% ezip.pl -e cp932 4win.zip 鐃緒申鐃旬醐申鐃緒申鐃緒申辰鐃�path 鐃緒申

convzip.pl

鐃緒申存鐃緒申zip鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申windows鐃術に誌申立鐃緒申直鐃緒申鐃夙わ申鐃祝は￥申鐃緒申鐃緒申鐃初。

#!/usr/bin/env perl
#
# $Id: convzip.pl,v 0.1 2010/09/06 13:52:00 dankogai Exp dankogai $
#
use strict;
use warnings;
use Archive::Zip qw/:ERROR_CODES/;
use Getopt::Std;
use Encode;
use Unicode::Normalize;    # to handle UTF-8-MAC

my %opt = ( e => 'UTF-8' );
getopts( "e:" => \%opt );
my $encode = do {
    my $enc = find_encoding( $opt{e} ) or die "unknown encoding: $opt{e}";
    sub { $enc->encode( Unicode::Normalize::NFC( decode_utf8(shift) ) ) };
};

my ( $srcfile, $dstfile ) = @ARGV;
die "$0 -e encoding from.zip to.zip" unless $dstfile;
my $zip = Archive::Zip->new;
my $error;
$error = $zip->read($srcfile) and die "$srcfile : error $error";
for my $m ( $zip->members() ) {
    $m->fileName( $encode->( $m->fileName ) );
}
$error = $zip->writeToFileNamed($dstfile) and die "$dstfile : error $error";

SYNOPSIS

% convzip.pl -e cp932 鐃緒申鐃旬醐申鐃緒申鐃緒申辰鐃�.zip 4win.zip

鐃緒申長鐃緒申鐃緒申他

  • Win側鐃叔フワ申鐃緒申鐃緒申名鐃緒申直鐃緒申鐃緒申鐃緒申鐃緒申廛箸聾鐃緒申鐃緒申埜鐃緒申弔鐃緒申鐃殉わ申鐃緒申鐃緒申convmv鐃緒申存鐃淳わ申鐃塾ってわ申鐃緒申鐃塾でわ申鐃緒申鐃緒申鐃緒申鐃縮わ申鐃緒申側鐃緒申鐃出処す鐃暑ス鐃緒申鐃緒申廛箸鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃獣わ申鐃塾でわ申鐃緒申鐃緒申鐃殉わ申鐃緒申鐃緒申
  • Mac鐃淑鰹申鐃叔もた鐃緒申鐃銃わ申鐃緒申Unix鐃縦駈申鐃淑わ申動鐃緒申鐃殉わ申鐃緒申鐃夙りあ鐃緒申鐃緒申FreeBSD鐃緒申Ubuntu鐃叔は鰹申認鐃術わ申
  • Archive::Zip::Member鐃塾ドワ申鐃緒申鐃緒申箸鐃緒申覆鐃緒申討鐃緒申鐃獣と駈申労鐃緒申鐃殉わ申鐃緒申鐃緒申鐃緒申$m->fileName()鐃祝逸申鐃緒申鐃緒申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃�rename鐃叔わ申鐃暑こ鐃夙をソ￥申鐃緒申鐃緒申鐃宿わ申鐃緒申里鐃殉わ申鐃緒申鐃緒申

Enjoy!

Dan the Man with Too Many Encodings to Handle