Help for this page

Select Code to Download


  1. or download this
    use warnings;
use Config::Simple;
...
$ApID = $LEDcfg->param('ApID');
%Config = $LEDcfg->vars();
print "$ApID\n";
  2. or download this
    <main Script 1>
my $pwd = `($path/CA.pl)`;    ## CA.pl is <script 2>
chomp ${pwd};
print "$pwd";    ## print the output
  3. or download this
    $./$path/CA.pl
password1234
$pwd=password1234 mainscript1.pl
Connected to Oracle database 
$
  4. or download this
    my $pwd = qx($path/CA.pl);
my $pwd = qx("$path/CA.pl");
my $pwd = system($path/CA.pl);
my $pwd = system('$path/CA.pl');
my $pwd = system('usr/local/bin/perl -w $path/CA.pl');