prjain has asked for the wisdom of the Perl Monks concerning the following question: 

my $NAME;
my $mobile;
my $place;
my $email;

GetOptions ('name' => \$NAME,'mobile' =>\$mobile,'place' =>\$place,'em
+ail' => \$email);
print"$$NAME\n,$$mobile";
#$Contacts->findByName("$$NAME") if defined $$NAME;

[download]
Hello All,
In The above code no value is getting saved in variable $$NAME,because of which the function findByName also not working.As by running the command "perl test.pl --name xyz" I m getting no output while it should print xyz. Please suggest me why I am nt getting the appropriate o/p. Your valuable suggestion will help me a lot. Thanks in advance !!

Replies are listed 'Best First'.
Re: how to use getOptions()
by bitingduck (Deacon) on Mar 11, 2012 at 20:30 UTC

    Try this

    #!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

my $name; 
my $mobile; 

GetOptions ("name=s" => \$name,"mobile=s" =>\$mobile); 
print "$name\n$mobile\n";

    [download]

    I sorted it out by using search to find this node: Examples for using Getopt::Long and poking about a bit. I cut out some of your parameters for convenience.

[reply]
[d/l]
Re: how to use getOptions()
by choroba (Cardinal) on Mar 11, 2012 at 20:03 UTC
[reply]

Back to Seekers of Perl Wisdom