pradeep,krishna has asked for the wisdom of the Perl Monks concerning the following question:

Hello fellow monks.
I am using bellow code to check for sqlplus connectivity. 

my $ConnString = "SQLPLUS -L " . $Login_Name . "\/" . $Login_Password 
+. "\@" . $DB_Name . " \@sqlfile.sql";
  my $ReturnCode=system($ConnString);
  sleep(2);    #--Give time to autheticate.
  if ($ReturnCode!=0)
  {
    print scalar (localtime),"  E: SqlPlus Database Login unsuccessful
+l.\n";
    return -1;
  }
  print LOG_FILE scalar (localtime),"  I: SqlPlus Database Login succe
+ssfull.\n";

[download]


Here 'sqlfile.sql' contains only 'exit' statement in it.

Some times in the execution it takes more than 2 seconds to complete because of network traffic.
So including sleep(2); will be not enough some times. I want to make sleep time of my script dynamic.

Thanks in advance.

Pradeep Krishna :)

Replies are listed 'Best First'.
Re: Perl script to wait till the command execution completes.
by hippo (Archbishop) on Mar 03, 2014 at 09:26 UTC

    system() waits until the command completes anyway. If yours isn't it may be because you are not escaping the values passed to it. If any of your variables such as $Login_Password has an unescaped ampersand, for example, you are going to run into problems.

    You could fix this, but marto's suggestion of using DBI would be a far better approach in the first place.

[reply]
[d/l]
[select]
Re: Perl script to wait till the command execution completes.
by marto (Cardinal) on Mar 03, 2014 at 09:14 UTC

    What are you actually trying to achieve? Is there a reason you are not using DBI/DBD::Oracle to work with your database?

[reply]

      As i have mentioned, I am using This code to check for sqlplus connectivity.

[reply]
Re: Perl script to wait till the command execution completes.
by zentara (Cardinal) on Mar 03, 2014 at 12:08 UTC
[reply]

Back to Seekers of Perl Wisdom