Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: Illegal declaration of subroutine Error

by Khen1950fx (Canon)
on Dec 01, 2013 at 09:53 UTC ( #1065132=note: print w/replies, xml ) Need Help??

in reply to Illegal declaration of subroutine Error

The first thing to do when you start a script is use strictures:
#!/usr/bin/perl use strict; use warnings;
When you finish the script, run it through Perl::Tidy:
#!/usr/bin/perl -l use strict; use warnings; my (@gilligan) = qw( red_shirt hat lucky_socks water_bottle ); check_require_items( 'gilligan', @gilligan ); sub check_require_items { use strict; use warnings; my $who = shift(); my (%whos_items) = map( { $_, 1; } @_ ); my (@required) = qw( preserver sunscreen water_bottle jacket ); foreach my $item (@required) { unless ( $whos_items{$item} ) { print "$who is missing $item."; } } }
It's easier to read, no?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1065132]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2018-02-25 06:07 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (312 votes). Check out past polls.