Help for this page

Select Code to Download


  1. or download this
    
###
...
        die("Something went wroung !\n");
}
  2. or download this
    [USER]=[jason]
[DSN]=[DBI:mysql:dbname;user=dbuser]
[CALLER]=[/usr/local/bin/caller.pl]
  3. or download this
    #!/usr/bin/perl

...
my($dsn)=${(thaw(join('',<P>)))[0]}{DSN};
close(P);
my($dbh)=DBI->connect($dsn) || die(DBI->errstr);