You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
310 B
20 lines
310 B
#!/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"; |
|
|
|
|
|
|