MIME::Base64 decode 原来encode 的图片，还原出来严重变异

perlplus33

我在windows的cmd界面运行的。

在命令行中我先encode一个图片
perl -MMIME::Base64 -ne "print encode_base64($_)" <"d:/123.jpg" >"d:/123.txt"

之后还原为
perl -MMIME::Base64 -ne "print decode_base64($_)" <"d:/123.txt" >"d:/1234.jpg"

结果，1234.jpg 图片和123.jpg图片相比，严重变异。虽然还可以打开，但是图像已面目全非。

请帮帮。

zhlong8

binmode

perlplus33

请帮我看看如何能正确显示图片。我这个不行。
有个文件123.jpg出来，只有几个字节，而且无法显示图片。

1. open MYFILE, "<d:/12.jpg";
   
2. binmode(MYFILE);
   
3. open FILE, ">d:/123.jpg" or die "$!";
   
4. binmode(FILE);
   
5. print FILE MYFILE;
   
6. close MYFILE;
   
7. close FILE;

复制代码

x9x9

1. print FILE MYFILE;

复制代码

可以这样写？还不知道Perl可以这样句柄直接对着写。

perlplus33

可以这样写？还不知道Perl可以这样句柄直接对着写。
x9x9 发表于 2011-04-09 12:07

    谢谢提醒。改动之后，这下正常了。

perlplus33

截取中间从图片转化的部分来看，又是非打印字符而不是数字字母组合了。

我的原意是：
将图片转化成数字字母，再将这些数字字母转化成图片。还是不行。
这个脚本可以将图片转化图片，但是不是通过“图片-数字-图片”的途径。

perlplus33

类似这样的。用 perl -MMIME::Base64 -ne "print encode_base64($_)" < "d:/123.jpg";
(部分)
/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgK
DBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJ
CQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIy
MjIyMjL/wAARCAC6AQUDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQo=
C//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHwJDNi
coIJCg==
FhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJ
ipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx
8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQo=
C//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy
0Qo=
FiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SF

zhlong8

编码

#!/usr/bin/perl -w

use 5.012;
use MIME::Base64;

use Carp;

croak "usage: $0 file save_as" if @ARGV != 2;

open my $fh, '<', $ARGV[0] or die $!;

binmode $fh;

open my $output, '>', $ARGV[1] or die $!;

local $/;

print $output encode_base64 <$fh>, '';

解码

#!/usr/bin/perl -w

use 5.012;
use MIME::Base64;

use Carp;

croak "usage: $0 file decode_to" if @ARGV != 2;

open my $fh, '<', $ARGV[0] or die $!;

open my $output, '>', $ARGV[1] or die $!;

binmode $output;

local $/;

print $output decode_base64 <$fh>;

perlplus33

谢谢楼上的，呵呵，你最热心了。
我先测试一下。

perlplus33

zhlong8兄， 你将你的解码的一部分贴上来我看看，我用的是perl5.10, 不是5.12, 结果解码出来的还是不可打印字符。
这是我的一个png图片解码厚的内容（非打印的， 乱码）。
<褕4` ?碋鞪図联??x墯佷^i塥{,?馴轲刐贄)湕N}氘綼??

周末愉快