~ubuntu-branches/ubuntu/saucy/openssl098/saucy-updates

« back to all changes in this revision

Viewing changes to .pc/perl-path.diff/demos/b64.pl

• browse files at revision 2
• compare with another revision
• download diff
• download tarball
• view history from revision 2

Show diffs side-by-side

added

removed

.pc/perl-path.diff/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

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1