I didn’f find a dockerfile for oracle and perl. So I did one by myself.<\/p>\n
Quick Instructions: Create dir; Create Dockerfile (above); create oracle_test.pl (above), download the oracle files.<\/p>\n
Build it:<\/p>\n
docker build -t perl-oracle .<\/pre>\nRun it:<\/p>\n
docker run -it --rm perl-oracle<\/pre>\nI took http:\/\/www.ecliptik.com\/Containerizing-a-Perl-Script\/<\/a> as the base and added the information from here: http:\/\/www.aboutmonitoring.com\/install-dbd-oracle-perl-modules-in-linux<\/a>\/ . To get the 3 Oracle files, you need an Oracle Account and download manualy and put it in your directory.<\/p>\n
Your directory should look like this is:<\/p>\n
$ ls\r\nDockerfile\r\noracle-instantclient12.2-basic-12.2.0.1.0-1.x86_64.rpm\r\noracle-instantclient12.2-devel-12.2.0.1.0-1.x86_64.rpm\r\noracle-instantclient12.2-sqlplus-12.2.0.1.0-1.x86_64.rpm\r\noracle_test.pl*<\/pre>\nwith the Dockerfile:<\/p>\n
FROM ubuntu:14.04\r\nMAINTAINER Micheal Waltz <ecliptik@gmail.com>\r\n# see http:\/\/www.ecliptik.com\/Containerizing-a-Perl-Script\/\r\n\r\n# Dockerfile by Johannes Eiseler 6\/2017\r\n# \r\n# How to build:\r\n# docker build -t perl-oracle .\r\n\r\n# How to run:\r\n# docker run -it --rm perl-oracle\r\n# docker run -v \/c\/Users\/myuser\/directory\/you\/like\/to\/share:\/host\/directory -it --rm perl-oracle\r\n\r\nENV DEBIAN_FRONTEND=noninteractive LANG=en_US.UTF-8 LC_ALL=C.UTF-8 LANGUAGE=en_US.UTF-8\r\n\r\nRUN [ \"apt-get\", \"-q\", \"update\" ]\r\nRUN [ \"apt-get\", \"-qy\", \"--force-yes\", \"upgrade\" ]\r\nRUN [ \"apt-get\", \"-qy\", \"--force-yes\", \"dist-upgrade\" ]\r\nRUN [ \"apt-get\", \"install\", \"-qy\", \"--force-yes\", \\\r\n \"perl\", \\\r\n \"build-essential\", \\\r\n \"cpanminus\" ]\r\nRUN [ \"apt-get\", \"clean\" ]\r\nRUN [ \"rm\", \"-rf\", \"\/var\/lib\/apt\/lists\/*\", \"\/tmp\/*\", \"\/var\/tmp\/*\" ]\r\n\r\n#RUN [\"cpanm\", \"Proc::ProcessTable\", \"Data::Dumper\" ]\r\n\r\nCOPY [ \".\/oracle_test.pl\", \"\/app\/oracle_test.pl\" ]\r\nRUN [ \"chmod\", \"+x\", \"\/app\/oracle_test.pl\" ]\r\n\r\n# now Oracle\r\n# see http:\/\/www.aboutmonitoring.com\/install-dbd-oracle-perl-modules-in-linux\/\r\n\r\nCOPY [ \".\/*.rpm\", \"\/app\/\" ]\r\n\r\nWORKDIR \/app\r\nRUN [\"apt-get\", \"update\"]\r\nRUN [\"apt-get\", \"install\", \"libaio-dev\", \"libaio1\" ]\r\nRUN [\"apt-get\", \"install\", \"-qy\", \"--force-yes\", \"alien\" ]\r\n\r\nRUN alien --scripts \/app\/oracle-instantclient12.2-basic-12.2.0.1.0-1.x86_64.rpm\r\nRUN alien --scripts \/app\/oracle-instantclient12.2-devel-12.2.0.1.0-1.x86_64.rpm\r\nRUN alien --scripts \/app\/oracle-instantclient12.2-sqlplus-12.2.0.1.0-1.x86_64.rpm\r\n\r\nRUN dpkg -i \/app\/oracle-instantclient12.2-basic_12.2.0.1.0-2_amd64.deb\r\nRUN dpkg -i \/app\/oracle-instantclient12.2-devel_12.2.0.1.0-2_amd64.deb\r\nRUN dpkg -i \/app\/oracle-instantclient12.2-sqlplus_12.2.0.1.0-2_amd64.deb\r\n\r\nENV PATH $PATH:$HOME\/bin:\/usr\/lib\/oracle\/12.2\/client64\/bin\r\nENV LD_LIBRARY_PATH $LD_LIBRARY_PATH:\/usr\/lib\/oracle\/12.2\/client64\/lib\r\nENV ORACLE_HOME \/usr\/lib\/oracle\/12.2\/client64\/lib\r\nENV TNS_ADMIN $ORACLE_HOME\/network\/admin\r\n\r\n# now perl oracle\r\nRUN [\"apt-get\", \"install\", \"-qy\", \"--force-yes\", \"libdbi-perl\" ]\r\nRUN [\"cpan\", \"DBD::Oracle\"]\r\n\r\n# if you wan't to use it interactivly comment the next line\r\nENTRYPOINT [ \"\/app\/oracle_test.pl\" ]\r\n<\/pre>\nAnd the perl script oracle_test.pl:<\/p>\n
#!\/usr\/bin\/perl\r\n\r\nuse strict;\r\nuse DBI;\r\n\r\n#Take Env Variable\r\nmy $workdir = $ENV{'MYWORKINGDIR'}; #Takes the variables\r\n\r\nprint \"Hello World\\n\";\r\n\r\n#database\r\n\r\nmy $db = DBI->connect(\"dbi:Oracle:host=your.database.host;sid=yoursid;port=yourport\",\"youruser\/yourpassword\", \"\") || die( $DBI::errstr . \"\\n\" );\r\n\r\n$db->{AutoCommit} = 0;\r\n$db->{RaiseError} = 1;\r\n$db->{ora_check_sql} = 0;\r\n$db->{RowCacheSize} = 16;\r\n\r\nmy $SEL = \"SELECT * FROM dual\";\r\nmy $sth = $db->prepare($SEL);\r\n$sth->execute();\r\n \r\nwhile ( my @row = $sth->fetchrow_array() ) {\r\n foreach (@row) {\r\n $_ = \"\\t\" if !defined($_);\r\n print \"$_\\t\";\r\n }\r\n print \"\\n\";\r\n}\r\n \r\nEND {\r\n $db->disconnect if defined($db);\r\n}\r\n\r\n\r\nprint \"----- End of perl file ------\\n\"\r\n\r\n<\/pre>\nKeywords: Dockerfile, Oracle, Perl, Running perl script connect to oracle<\/p>\n
Share this:<\/h3>