2
0
mirror of https://github.com/curl/curl.git synced 2025-04-24 16:40:32 +08:00

utility to base encode data passed on stdin

This commit is contained in:
Daniel Stenberg 2004-11-29 12:09:05 +00:00
parent 81a3246a56
commit 09717d3fc8

9
tests/server/base64.pl Normal file

@ -0,0 +1,9 @@
#!/usr/bin/perl
use MIME::Base64 qw(encode_base64);
my $buf;
while(read(STDIN, $buf, 60*57)) {
my $enc = encode_base64($buf);
print "$enc";
}