etlegacy-libs/curl/tests/server/base64.pl

mirror of https://github.com/etlegacy/etlegacy-libs.git synced 2025-02-24 20:21:11 +00:00
#!/usr/bin/env perl

use MIME::Base64 qw(encode_base64);

my $buf;
while(read(STDIN, $buf, 60*57)) {
    my $enc = encode_base64($buf);
    print "$enc";
}
libs: updated to cURL 7.58.0 2018-02-04 17:52:34 +00:00			`#!/usr/bin/env perl`
imported cURL version 7.26.0 2012-06-01 15:23:17 +00:00
			`use MIME::Base64 qw(encode_base64);`

			`my $buf;`
			`while(read(STDIN, $buf, 60*57)) {`
			`my $enc = encode_base64($buf);`
			`print "$enc";`
			`}`