ebfedea0ce
- crypto/external/bsd/heimdal - crypto/external/bsd/libsaslc - crypto/external/bsd/netpgp - crypto/external/bsd/openssl Change-Id: I91dbf05f33e637edf5b9bb408d5baddd7ba8cf75
21 lines
310 B
Perl
21 lines
310 B
Perl
#!/usr/local/bin/perl
|
|
|
|
#
|
|
# Make PEM encoded data have lines of 64 bytes of data
|
|
#
|
|
|
|
while (<>)
|
|
{
|
|
if (/^-----BEGIN/ .. /^-----END/)
|
|
{
|
|
if (/^-----BEGIN/) { $first=$_; next; }
|
|
if (/^-----END/) { $last=$_; next; }
|
|
$out.=$_;
|
|
}
|
|
}
|
|
$out =~ s/\s//g;
|
|
$out =~ s/(.{64})/$1\n/g;
|
|
print "$first$out\n$last\n";
|
|
|
|
|