Help for this page

Select Code to Download


  1. or download this
    use Text::Diff qw(diff);
[...]
...
        { STYLE => "OldStyle"};
@diff = split '\n', $diff;
[...]
  2. or download this
    LINE:
for my $line (@diff) {
    next LINE if $line =~ /set password ENC/;
    [...]
}
  3. or download this
            set private-key "-----BEGIN ENCRYPTED PRIVATE KEY-----
MIIFDjBABgkqhkiG9w0BBQ0wMzAbBgkqhkiG9w0BBQwwDgQInXCep+2zzpgCAggA
...
M+b28ad6P8VZiN+eToUfs3pTg+VqzAc273fdnZPZFMClXpJk8kQZv0ruEoA99RqE
pgsnYGVxzZNmDy5HT3yBDGjRCssDnQ8QUBqabFCpW6d7fzilw9PnoHjFRmLxKnNE
[...]
  4. or download this
        next LINE if $line =~ /{looks like random stuff to me}/;