Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re^2: join all elements in array reference by hash

by AnomalousMonk (Canon)
on Dec 30, 2012 at 05:56 UTC ( #1010894=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    for ( keys %{ $bible{'Genesis'}{'chapter 1'} }) {
        print $_, ": ", @{ $bible{'Genesis'}{'chapter 1'}{$_} }, $/;
  2. or download this
    for (sort { $a <=> $b } keys %{ $bible{'Genesis'}{'chapter 1'} }) {
        print $_, ": ", @{ $bible{'Genesis'}{'chapter 1'}{$_} }, $/;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1010894]
[Corion]: dazz: BTW, the following should work (no Image::Magick installed, so untested): open(my $fh, '<', \$jpegbuffer); $image->Read(file= > $fh);
[choroba]: Hm, it seems my humble contributions to CPAN pass their test suites with the PERL5OPT set
[Corion]: choroba: I think most of my distributions still do, but some use Module::Install from inc and some use a modulino-style Makefile.PL to provide information to the author tests, so I certainly need/want to retest mine

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (11)
As of 2017-03-27 08:12 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (317 votes). Check out past polls.