求助一个perl打印长字符串的问题

sprite

我是这么写的，老大们试一下看看什么问题。

#!/usr/bin/perl
use IO::File;
use MIME::base64;
sub base64encode{
        my $encodestring;
        $encodestring = MIME::Base64::encode($_[0]);
        return $encodestring;
}
$fw = IO::File->;new(">;test3.txt";
$a = base64encode('反反复复反反复复反反复复反反复复反反复复反反复复反反复复反反复复反反复复');
$fw->;write($a);
$fw->;close();

superdoctor

原帖由 "sprite" 发表：
eturn $encodestring;
}
$fw = IO::File->;new(">;test3.txt";
$a = base64encode('反反复复反反复复反反复复反反复复反反复复反反复复反反复复反反复复反反复复');
$fw->;write($a);
$fw->;close();

我叫你老大啦

这根本不是WRITE到文件换行的问题啊,老大!!!!!

这是你base64encode方法调用错误,给你改改,老大!

1. 
   
2. sub base64encode{
   
3. my $encodestring;
   
4. $encodestring = MIME::Base64::encode($_[0],'');
   
5. return $encodestring;
   
6. }
   

复制代码

老大再试试吧

sprite

是啊，我刚才也发现这个问题了，是base64的问题啊。唉

superdoctor