Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^3: Extracting non-consecutive but related items from an array.

by blackadder (Hermit)
on Jun 15, 2005 at 09:29 UTC ( #466843=note: print w/replies, xml ) Need Help??


in reply to Re^2: Extracting non-consecutive but related items from an array.
in thread Extracting non-consecutive but related items from an array.

Yes, I think its $server too....Thanks guys.

But, Can I have simple breakup of this code?
print $_, $/, map { "\t@$_$/"} @{$clean_data{$_}} for sort keys %clean_data;
And, why did we have to reference \ @apps_info? couldn't we use it without referencing?
Blackadder

Replies are listed 'Best First'.
Re^4: Extracting non-consecutive but related items from an array.
by robartes (Priest) on Jun 15, 2005 at 09:46 UTC
    And, why did we have to reference \ @apps_info? couldn't we use it without referencing?

    No particular reason, it's just that that's the way I like doing things. This way, the information contained in one line in the input file stays readily identifiable (it's one element of the array for that server), whereas pushing on the first level array would result in a flat list. But it's just a preference thing, I guess.

    CU
    Robartes-

simple breakup of this code
by Anonymous Monk on Jun 15, 2005 at 13:43 UTC
    $/ is the The input record separator, newline by default (see the perlop man page; type perldoc perlop and find it). The code you posted could be re-written like this:
       foreach my $key (sort keys %clean_data) {
         print $key, $/;
         foreach my $data (@{$clean_data{$key}}) { 
        # the hash value $clean_data{$key} is an array reference
        # wrapping it in @{} gives us the array it references.
        # this array contains array references, 
        # so @$data gives us an array
            print "\t", @$data, $/;
         }
       }
    
    - Dotan

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://466843]
help
Chatterbox?
[Lady_Aleena]: Discipulus, it is at 2 now, but with what I am thinking about, it could go to 3. However, only 1 is needed. The second and third are optional.
[shmem]: straight list or named parameters - that depends on whether (and how many) optional arguments you have
[Discipulus]: if so a plain list is ok, imho
[Lady_Aleena]: shmem, I already have the plugin installed, just not active.
[shmem]: if you have 1 optional argument, place that at the end of the list. If you have more, go for named parameters.
[Lady_Aleena]: 1 manditory, 2 optional.
[Discipulus]: my ($need,$opta,$optb ) = @_; .. if $opta..
[shmem]: all else leads to trouble, even if the third argument depends on the existence of the second. That may become brittle.
[Discipulus]: but if have case like subname(15,undef,3 ) maybe bettere named parameters
[Lady_Aleena]: I don't want to have to do: alpha_menu($hash, undef, $type);

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (12)
As of 2017-04-27 12:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (506 votes). Check out past polls.