Your skill will accomplish what the force of many cannot |
|
PerlMonks |
Re: RFC: beginner level script improvementby jwkrahn (Abbot) |
on Sep 23, 2013 at 01:54 UTC ( [id://1055222]=note: print w/replies, xml ) | Need Help?? |
You seem to be confused about references:
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.
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"?
In Section
Meditations
|
|