关于uu code,编码，解码程序

[netken]

这里人气好差，我来灌水搅和了 ^_^
uu code编码，解码程序
#!/usr/bin/perl
# writen by NetKen.

# uuencode(input_filename);
# uu encode : output_file is input_filename.uu
# i.e. uuencode('abc.gif'); out_file: abc.gif.uu

# uudecode(input_filename);
# uu decode : output_file is decide by the head of uu file.
# i.e. uudecode('aaa.uu');

sub uuencode {
my $infile = pop;
my $outfile = $infile.'.uu';
open(IN,"<$infile");
binmode IN;
open(OUT,">$outfile");
$/=undef;
my $encode = pack('u',<IN>);
print OUT "begin 666 $infile\n${encode}end\n";
close(OUT);
close(IN);
};

sub uudecode {
my $infile = pop;
my $outfile;
open(IN,"<$infile");
$_=<IN>;
chomp;
$outfile =$1 if /^begin\s+\d+\s+(\S+)$/;
open(OUT,">$outfile");
binmode OUT;
while (<IN>) {
chomp;
last if /^end/;
print OUT unpack('u',$_);
}
close(OUT);
close(IN);
};

[wildhorse01]

好
谢谢

[iamxxg]

灌！顺便感谢你

[netken]

;)

[siekensou]

^^

[qb_zhm]

up