Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: calling a subroutine from another subroutine

by pemungkah (Priest)
on Jul 08, 2012 at 16:33 UTC ( #980592=note: print w/replies, xml ) Need Help??

in reply to calling a subroutine from another subroutine

As a minor point: this
my $usage = " Usage: $scriptname (-type<type> -OIMID <oimid> -version <version_numbe +r> -out <filename> ) -type <type> :A|B -version <version_number> :Required.Minimum Security Versio +n Number. -OEMID <oemid> : Required. -out <filename> : Required. ";
could be a heredoc, which would make it easier to lay it out nicely:
my $usage = <<USAGE; Usage: $0 -type[A|B] -OEMID id -version nnnn -out filename where version: minimum security version (integer) OEMID: one of the OEM IDs fron (source here...) out: name of any writable file USAGE
I altered the usage to conform to the more-often used standards from man pages, but you can use whatever makes sense to your users. The point is that it was easy for me to line things up because I'm writing it down exactly the way it will appear when it's printed.

You might also consider just printing to STDOUT instead of forcing an output file; that way your script could, for instance, pipe into grep or sort.

Replies are listed 'Best First'.
Re^2: calling a subroutine from another subroutine
by toolic (Bishop) on Jul 08, 2012 at 19:26 UTC
    Usage: $ARGV[0] -type[A|B] -OEMID id -version nnnn -out filename
    I think you meant to use $0 instead of @ARGV:
    $ARGV[0] is the first argument, not the program's command name itself. See $0 for the command name.
      You're right, and I've made the edit in the code. Thanks!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://980592]
[Discipulus]: good morning nuns and monks!

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2018-06-21 07:06 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (117 votes). Check out past polls.