Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^5: I need to insert spaces and get the values for all the variables

by hdb (Prior)
on Sep 04, 2013 at 09:26 UTC ( #1052268=note: print w/ replies, xml ) Need Help??

Comment on Re^5: I need to insert spaces and get the values for all the variables
Download Code
Replies are listed 'Best First'.
Re^6: I need to insert spaces and get the values for all the variables
by Eily (Curate) on Sep 04, 2013 at 12:23 UTC

    Oh, right. I knew about autovivification already, but since @array = @{ $hash{key} } (when %hash is empty) is an error under strict I thought that push @{ $hash{key} }, 'value' would be too. But I forgot that Perl is smarter than me.

    I'm working on v5.8.3 here, so I can't test that right now, but I suppose that in the case of mypush(+@) you'd still get an error.

    Thanks for correcting me :) (Edit: as in making me learn a bit about Perl)

    Edit: oh wait, I don't need the + prototype to try that (I guess someone's tired, and that someone is sitting on my very chair):

    use strict; use warnings; use Data::Dumper; sub mypush(\@@) { push @{ shift; }, @_ } my %hash; mypush @{ $hash{key} }, "Hello", "World"; print Dumper \%hash;
    $VAR1 = { 'key' => [ 'Hello', 'World' ] };
    So it works alright. I really should trust Perl more. Edit: The linux computer to which I'm connected via SSH uses v5.14.2. It works just fine with + as well.

      There is no intention on my side to do any correcting, especially as your code is working Perl code and probably even easier to understand than the shorter form.

      I just wanted to point out that some typing could be safed if you wanted.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (19)
As of 2015-07-07 19:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (93 votes), past polls