Saubere Perl-Syntax Variable in sub behalten (gelöst) - #177303 (Allgemeines zu Perl)

bianca

2014-09-16 09:29

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Danke euch allen!
Auch danke für die Hinweise, hab sie eingebaut.
Das state ist richtig gut, kannte ich nicht.
Meine Lösung:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Crypt::CBC;
use feature 'state';

my $crypt = sub {
    state $c;
    if (!defined $c) {
        print "Debug: erzeuge Objekt\n";
        $c = Crypt::CBC->new(
            -key    => 'foobar',
            -cipher => 'Blowfish',
        );
    }
    return (defined $_[0] && $_[0] ne '' ? $c->encrypt($_[0]) : '');
};

print $crypt->('foo')."\n";
print $crypt->('bar')."\n";
print $crypt->('')."\n";
print $crypt->()."\n";

Das use 5.010; war nur für den Testfall, hab es durch use feature 'state'; ersetzt.

10 print "Hallo"
20 goto 10