overload - #62663 (Allgemeines zu Perl)

Crian

2006-02-07 14:06

User since
2003-08-04
5871 Artikel
ModeratorIn

An der Bedeutung von '*' solltest du nochmal was ändern... sieht aus, als würde das im Moment alles nur aneinandergehängt?

Zum Überladen der Klammern weiß ich leider nichts.

Edit: Google (perl overload bracket) brachte zu Tage:

Code: (dl )

use overload '<>' => sub {
my $io = *{$_[0]}{IO} || $_[0];
<$io>;
};

Vielleicht geht das analog auch mit runden Klammern?\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite