Re: need help urgent using @ARGV

[InfiniteSilence]

in reply to need help urgent using @ARGV

 
use strict;
use Getopt::Long;

my $database = '';
my $servername = '';
my $result = GetOptions ("database=s" => \$database,  # string        
+          
                         "servername=s"     => \$servername);   # stri
+ng        

print qq|USAGE: perl backup.pl --database=<database> --servername=<ser
+vername>\\
n| unless ($database && $servername);

my $stmnt =qq|BACKUP database "$database" TO DISK = N'c:\\bak\\master.
+dmp'\n|;

print $stmnt;

You get the idea.