in reply to If 6 Was 9

BEGIN { require overload; overload::constant(
    integer => sub { (my $r=shift)=~tr/0-9/3412789056/;$r } ) }

print "<",6,",",9,">\n";

[download]

Replies are listed 'Best First'.
Re^2: If 6 Was 9
by LanX (Saint) on Oct 15, 2018 at 19:46 UTC
    nice! ;)

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

[reply]

In Section Meditations