«

Hello,

hereafter is the command I use to connect my database;

my $dbhCampeggio = DBI->connect(
"DBIgPP:dbname=$DATABASE_NAME;host=$DATABASE_SER VER;port=5432",
"postgres",
"postgres",
{ RaiseError => 1}
) or die ( "Connessione al DATABASE non riuscita: $DBI::errstr");

$DATABASE_SERVER is passed from command line. I want my program to ask
interactively the user to write the name, If the user forget to pass
the database server at command line, and the program ask the user
whenever she doesn't write a valid database server.

How can I do?

Thanks
Filippo

filippo <> wrote:

> $DATABASE_SERVER is passed from command line. I want my program to ask
> interactively the user to write the name, If the user forget to pass
> the database server at command line,


my $DATABASE_SERVER = shift @ARGV;
unless ( defined $DATABASE_SERVER ) {
print STDOUT 'enter the database server name: ';
$DATABASE_SERVER = <STDIN>;
chomp $DATABASE_SERVER;
}


--
Tad McClellan SGML consulting
Perl programming
Fort Worth, Texas

Tad McClellan ha scritto:

> my $DATABASE_SERVER = shift @ARGV;
> unless ( defined $DATABASE_SERVER ) {
> print STDOUT 'enter the database server name: ';
> $DATABASE_SERVER = <STDIN>;
> chomp $DATABASE_SERVER;
> }

thanks Tad but this isn't what I want: the unless clause accept any
value for DATABASE_SERVER. I want to try to connect and get the value
unless the connection is succeeded fine.

Thanks and best regards,

Filippo

Filippo wrote:
> Tad McClellan ha scritto:
>
>> my $DATABASE_SERVER = shift @ARGV;
>> unless ( defined $DATABASE_SERVER ) {
>> print STDOUT 'enter the database server name: ';
>> $DATABASE_SERVER = <STDIN>;
>> chomp $DATABASE_SERVER;
>> }
>
> thanks Tad but this isn't what I want: the unless clause accept any
> value for DATABASE_SERVER. I want to try to connect and get the value
> unless the connection is succeeded fine.

Wrap it in another loop. Also see:

perldoc -f eval


use DBI;
my $dbh;
my $DATABASE_SERVER = shift @ARGV;

unless ( $dbh )
{

#... insert unless loop, from above, to set DATABASE_SERVER

eval {
$dbh = DBI->connect( ... $DATABASE_SERVER,...,
{ RaiseError => 1 } );
};
if ( $@ )
{
print "Couldn't connect using $DATABASE_SERVER.\n";
undef $DATABASE_SERVER;
}
}