projects
/
oweals
/
openssl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
A comment.
[oweals/openssl.git]
/
demos
/
b64.pl
1
#!/usr/local/bin/perl
2
3
#
4
# Make PEM encoded data have lines of 64 bytes of data
5
#
6
7
while (<>)
8
{
9
if (/^-----BEGIN/ .. /^-----END/)
10
{
11
if (/^-----BEGIN/) { $first=$_; next; }
12
if (/^-----END/) { $last=$_; next; }
13
$out.=$_;
14
}
15
}
16
$out =~ s/\s//g;
17
$out =~ s/(.{64})/$1\n/g;
18
print "$first$out\n$last\n";
19
20