鐃緒申文鐃緒申鐃緒申鐃銃わ申蝓�鐃緒申鐃緒申鐃初が妙鐃祝駕申鐃緒申鐃緒申鐃緒申鐃獣わ申鐃塾で￥申

[鐃緒申] UTF-8 鐃緒申半鐃術ワ申鐃淑わ申判鐃緒申
begin 755 utf8hankana-test.pl.gz

鐃緒申鐃緒申鐃緒申箸圓鐃夙わ申鐃淑わ申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃緒申uuencode鐃緒申Wikipedia鐃緒申en鐃緒申鐃緒申鐃祝はわ申鐃獣てわ申ja鐃緒申鐃緒申鐃祝はなわ申鐃緒申鐃淑わ申鐃緒申

鐃緒申鐃縦ては￥申鐃緒申鐃曙がbinary file鐃緒申謄鐃緒申鐃緒申箸鐃宿緒申鐃緒申鐃緒申鐃� de facto standard鐃叔わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Wikipedia鐃緒申Entry鐃祝わ申鐃緒申茲�鐃祝￥申鐃緒申鐃緒申Base64鐃祝ほとわ申鐃緒申屬鐃緒申鐃緒申鐃緒申鐃緒申討鐃緒申泙鐃緒申鐃�

decode鐃祝わ申uudecode鐃夙わ申鐃緒申鐃緒申鐃殉ワ申匹鐃夙わ申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃銃わ申鐃緒申Unix-Like鐃緒申OS鐃祝わ申/usr/bin鐃緒申鐃緒申鐃獣てわ申鐃緒申隼廚鐃緒申泙鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申任覆鐃緒申鐃緒申任癲�perl鐃緒申鐃緒申鐃緒申鐃緒申弍鐃緒申任鐃緒申泙鐃緒申鐃�

鐃渋わ申perl鐃緒申pack()鐃祝はわ申鐃緒申鐃縮影わ申鐃縦ってわ申鐃銃￥申u鐃緒申uuencode鐃緒申format鐃緒申鐃出縁申鐃緒申鐃銃わ申鐃殉わ申鐃緒申鐃緒申鐃緒申里鐃緒申鐃緒申鐃緒申如鐃緒申鐃獣縁申鐃�decoder鐃叔わ申鐃緒申舒鐃峻で書けまわ申鐃緒申

perl -e 'print unpack("u",$_) while(<>)' encoded > decoded

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾常申鐃緒申begin 644 filename鐃緒申鐃緒申end鐃殉での行わ申未鐃緒申討鐃緒申鐃緒申覆鐃緒申鐃出わ申鐃緒申鐃殉わ申鐃藷。もう鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申判颪�と￥申鐃淑駕申鐃塾とわ申鐃緒申箸覆鐃叔わ申鐃順う鐃緒申

uudecode.pl 
#!/usr/local/bin/perl
use strict;
use warnings;
my ($begin, $perm, $filename, $wfh);
while(<>){
    if (/^begin\s+([0-7][0-7][0-7])\s+(\S+)/o){
        ($begin, $perm, $filename) = (1, oct($1), $2);
        open $wfh, '>', $filename or die "$filename : $!";
    }elsif(/^end$/o){
        $begin = 0;
        close $wfh;
        chmod $perm, $filename;
    }
    next unless $begin;
    print $wfh unpack("u", $_);
}
__END__
uuencode.pl 
#!/usr/local/bin/perl
use strict;
use warnings;
for my $filename (@ARGV){
    open my $rfh, '<', $filename or  die "$filename : $!";
    my $content  = eval{ local $/; <$rfh> };
    close $rfh;
    my $perm = (stat($filename))[2] & 0777;
    printf "begin %o $filename\n", $perm;
    print pack("u", $_) while($_ = substr($content, 0, 45, ''));
    print "`\nend\n";
}
__END__

鐃緒申鐃淑みに￥申鐃緒申鐃緒申u鐃春ワ申鐃緒申鐃殉ットは￥申Base64鐃祝わ申箸鐃緒申泙鐃緒申鐃�

while(<>){
  tr#A-Za-z0-9+/##cd;
  tr#A-Za-z0-9+/# - _#cd;
  $len = pack("c", 32 + 0.75*length($_));
  print unpack(u", $len . $_);
}

鐃緒申鐃緒申鐃純、鐃初ク鐃緒申鐃旬わ申unpack鐃緒申鐃緒申鐃緒申鐃祝は出てわ申鐃緒申里任鐃緒申鐃緒申鐃�perldoc -f unpack鐃叔は出てわ申鐃殉わ申鐃緒申佑鐃緒申鐃�

鐃殉わ申鐃緒申鐃緒申覆箸鐃緒申鐃緒申鐃緒申福鐃�

他鐃祝わ申shar鐃淑わ申討里發�鐃獣わ申鐃淑わ申....

Dan the uu(en|de)coder