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.
Celebrate Intellectual Diversity
In reply to Re: need help urgent using @ARGV
by InfiniteSilence
in thread need help urgent using @ARGV
by mohan@1
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |