Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
system("lsnrctl")<<"EOF"==0 or die "couldn't run listener control: $!"
+ ;
status
EOF
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
set current_listener
status
EOF
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
EOF

system($command)==0 or die "couldn't run listener control: $!" ;