Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
print qq|$_  = $item{$_}\n| for sort keys %item;
__DATA__
orclNetDescString DESCRIPTION ADDRESS PROTOCOL TCP HOST doa.sdasd.sdf.
+sdf. PORT 1521 CONNECT_DATA SID devdb GLOBAL_NAME devdb.discoveringmo
+rclSid devdb
  2. or download this
    GLOBAL_NAME  = devdb.discoveringmorclSid
HOST  = doa.sdasd.sdf.sdf.
...
PROTOCOL  = TCP
SID  = devdb