Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
Pathologically Eclectic Rubbish Lister

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'; };

Comment on RE: RE: My crime of choice
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://36655]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (14)
As of 2014-04-17 18:28 GMT
Find Nodes?
    Voting Booth?

    April first is:

    Results (453 votes), past polls