Hope this snipet will help you :).
# Use :Perl -w test_argc.pl --name Irfan
use strict;
use warnings;
# Get args
my @argv = @ARGV;
#get args cnt
my $argc = @ARGV;
my $icnt = 0;
if($argc != 0)
{
for($icnt = 0;$icnt < $argc;$icnt++)
{
if($argv[$icnt] eq "--name")
{
print (" Name is $argv[$icnt+1] \n");
$icnt++;
}
}
}
else
{
print ("USAGE: script_name --name <name>\n");
}
~
~~~~~~~~~~~~~~~~~~~~
Thanks and Best regards,
~ Rajnikant
Software Engg.
Persistent Sys. Ltd.
Ph. +91 98222 04088
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 19, 2008 4:55 PM
To: [email protected]
Subject: Argument for perl script
Hi All,
I am using @ARGV variable to record the argument passed to my Perl script.
Now the requirement is that if I don't pass any argument to Perl script then
it should show me following such output.
Perl ack
Usage: ack
-name
-pkg
-relno
-name, -pkg, -relno are the user friendly option which should be mapped to
the arguments passed to the Perl script.
So -name should take first argument -pkg should take second argument and so
on.
Please help how should I do that.
Regards
Irfan.
DISCLAIMER
==========
This e-mail may contain privileged and confidential information which is the
property of Persistent Systems Ltd. It is intended only for the use of the
individual or entity to which it is addressed. If you are not the intended
recipient, you are not authorized to read, retain, copy, print, distribute or
use this message. If you have received this communication in error, please
notify the sender and delete all copies of this message. Persistent Systems
Ltd. does not accept any liability for virus infected mails.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
