Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re^7: Iterating through an array using multiple loops and removing array elements

by frozenwithjoy (Priest)
on Apr 24, 2014 at 06:45 UTC ( #1083534=note: print w/replies, xml ) Need Help??


in reply to Re^6: Iterating through an array using multiple loops and removing array elements
in thread Iterating through an array using multiple loops and removing array elements

Since you may not be familiar with this type of assignment, I just wanted to clarify something about this line:

my ( $top_entry, @entries ) = @_;

The order of scalar vs array is really important. For example:

#!/usr/bin/env perl use strict; use warnings; use feature 'say'; my @original = qw(a b c d); my ( $first_item, @the_rest ) = @original; say "First item: $first_item"; say "The rest: @the_rest"; my ( @array_first_bad, $last_item ) = @original; say "Array first is bad: @array_first_bad"; say "Last item: $last_item"; __END__ First item: a The rest: b c d Array first is bad: a b c d Last item: Use of uninitialized value $last_item in concatenation (.) or string a +t line 16.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2020-09-30 21:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If at first I donít succeed, I Ö










    Results (169 votes). Check out past polls.

    Notices?