in reply to running jar file with multiple arguments in perl
#!/usr/bin/perl use strict; use warnings; print "=======================================\n"; print "List of Databases: \n", "Oracle = 1\n", "DB2 = 2\n", "Some other db = 3\n", "=======================================\n"; print "Your system is: $^O\n", "Which database do you want to use: 1, 2, or 3?\n"; my $db = <>; if ($db == 1) { print "You have chosen Oracle\n"; } elsif ($db == 2) { print "You have chosen DB2\n"; } elsif ($db == 3) { print "You have chosen some other stuff\n"; } else { print "You have not chosen a database. We can't continue.\n"; }
|
|---|