Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
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 drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2021-01-17 12:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?