Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: RFC: beginner level script improvement

by jwkrahn (Monsignor)
on Sep 23, 2013 at 01:54 UTC ( #1055222=note: print w/replies, xml ) Need Help??

in reply to RFC: beginner level script improvement

You seem to be confused about references:

$RESULT = &getdata(\%DATA,\%CONFIG,\%STATIC); ##read config-file ... if ($PROTO =~ m/ssh/i){ %DATA = &connect2cpe_SSH(\%DATA,\%CONFIG,\%STATIC); }else{ %DATA = &connect2cpe_TELNET(\%DATA,\%CONFIG,\%STATIC); }

You are calling those functions with references to three hashes but only in getdata() do you actually dereference those hashes:


Otherwise you are just modifying the file scoped hashes.

And then for connect2cpe_SSH() and connect2cpe_TELNET() you copy the already modified %DATA back to itself?    Whether you modify %DATA directly or through a reference there is no need to copy it to itself.

if ($#ARGV < 0 ) { &help($0); exit 0;} ... 'help|h' => sub { &help($0); exit 0;} ) || die(&help($0));

help() returns a value but you never use that value so why return it?    You pass the $0 variable to help() but because you import help() into the current program the $0 variable is directly available inside help().    Every time you use help() you exit the program.    Perhaps you should put an exit at the end of the help() subroutine and maybe call it "print_help_and_exit"?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1055222]
[trahulprajapati]: hi
[Eily]: hello trahulprajapati
[trahulprajapati]: how can i use javascript in WWW::Machanize for login to a webpage?

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2017-06-22 15:26 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (523 votes). Check out past polls.