Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

RE: RE: My crime of choice

by johannz (Hermit)
on Oct 13, 2000 at 23:56 UTC ( #36655=note: print w/replies, xml ) Need Help??

in reply to RE: My crime of choice
in thread My crime of choice

Well, this works under use strict. I create a named array containing a named hash of anonymous hashes of anonymous arrays of anonymous and named subroutine references. I think I got everything you said :-)

#!/usr/bin/perl use strict; use Data::Dumper; local $\ = "\n"; my %namedHash = ( 'anon hash1' => { 'anon array1' => [ sub { print 'anon sub1'}, \&test1, \&test2 ], 'anon array2' => [ sub { print 'anon sub2';}, \&test1, \&test3 ], }, 'anon hash2' => { 'anon array1' => [ sub { print 'anon sub1'}, \&test1, \&test2 ], 'anon array2' => [ sub { print 'anon sub2'}, \&test1, \&test3 ], }, ); my @namedArray = ( \%namedHash ); print Dumper(\@namedArray); exit; sub test1 { print 'sub test1'; }; sub test2 { print 'sub test2'; }; sub test3 { print 'sub test3'; };

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://36655]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2018-03-22 10:36 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (273 votes). Check out past polls.