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:
parent
81a3246a56
commit
09717d3fc8
9
tests/server/base64.pl
Normal file
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";
|
||||
}
|
Loading…
Reference in New Issue
Block a user