Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: sanity check

by cdarke (Prior)
on Sep 21, 2011 at 05:56 UTC ( #927081=note: print w/replies, xml ) Need Help??

in reply to sanity check

Ther are all kinds of issues with your code, and others have pointed some of them out, I'll try to explain.

A major problem you have is with the for statement, which you seem to be using instead of if. In Perl, for is a type of loop for walking through items in a list.
Secondly you are using a single = sign. In many languages, including Perl, a single = is an assignment. In Perl, to do a numeric comparison you use ==, and to do a textual comparison use eq. If we assume that object-group is supposed to be text, then that should be enclosed with quotes. So we are left with:
if ($array[0] eq 'object-group') { print OUTPUT "set shared address-group $array[2]\n"; }
As for the rest, people used to code Perl in that way back in the 20th century, but things have moved on since then. Try running your code through Perl::Critic or

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://927081]
holli just tried to open a soda bottle with a bottleopener
[holli]: ok, that doesn't *sound* that bad
[Corion]: holli: Was it a "twist-to-open" soda bottle? Or a German Mehrweg bottle with a twisty cap?

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2017-09-25 12:32 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (280 votes). Check out past polls.