| Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 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 | |||||