]>
git.ipfire.org Git - thirdparty/openssl.git/blob - demos/b64.pl
4 # Make PEM encoded data have lines of 64 bytes of data
9 if (/^-----BEGIN/ .. /^-----END/)
11 if (/^-----BEGIN/) { $first=$_; next; }
12 if (/^-----END/) { $last=$_; next; }
17 $out =~ s/(.{64})/$1\n/g;
18 print "$first$out\n$last\n";