14 lines
248 B
Perl
14 lines
248 B
Perl
#!/usr/bin/perl
|
|
|
|
use MIME::Base64 qw(encode_base64);
|
|
|
|
my $buf = "";
|
|
while (<>) {
|
|
$buf .= $_;
|
|
if (length($buf) >= 57) {
|
|
print encode_base64(substr($buf, 0, int(length($buf) / 57) * 57, ""));
|
|
}
|
|
}
|
|
|
|
print encode_base64($buf);
|