1
0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 23:58:49 -05: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
View 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";
}