Help for this page

Select Code to Download


  1. or download this
    use constant LOGIN     => 'name';
use constant PASS     => 'pwd';
use constant IP     => '190.xxx.xxx.xx';
use constant DB_NAME     => 'mydbname';
  2. or download this
    package constant;
use Exporter ();
...
use constant IP     => '190.xxx.xxx.xx';
use constant DB_NAME     => 'mydbname';
1;
  3. or download this
    use constant;
@ISA = qw (constant);
...

DBI->connect ("DBI:mysql:host=".IP.";database=".DB_NAME."", LOGIN, PAS
+S,{PrintError => 0, RaiseError => 1})