Blame - ap/lib/libcurl/curl-7.54.1/tests/server/base64.pl - R306 - Gitiles

blob: 2eab1fa4dff48833e8787a79bde88657de7085c6 [file] [log] [blame]

yuezonghe	824eb0c	2024-06-27 02:32:26 -0700	[diff] [blame]	1	#!/usr/bin/perl
				2
				3	use MIME::Base64 qw(encode_base64);
				4
				5	my $buf;
				6	while(read(STDIN, $buf, 60*57)) {
				7	my $enc = encode_base64($buf);
				8	print "$enc";
				9	}