How to avoid database connection information in each perl file

Question

I am using number of perl scripts in my web project, which I am calling through jquery ajax calls. Each perl script contains mysql database connection information (user_name, password, database name).

Is there any better way, so that I can avoid database connection information in each perl file, and can store that globally, without any security issues.

may be to store it in one config file? something like config.yml — Suic
– Suic, Commented Oct 4, 2013 at 7:53

mpapec · Accepted Answer · 2013-10-04 08:02:52Z

2

config.pl

{ 
  # sql credentials
  user => "sqluser", pass => "123", dsn => "mysql..",
}

index.pl and other scripts:

my $CFG = do "config.pl";
print "$CFG->{user} $CFG->{pass} ...\n";

answered Oct 4, 2013 at 8:02

mpapec

50.8k8 gold badges72 silver badges133 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

FtLie · Accepted Answer · 2013-10-04 09:00:22Z

2

A bit more perlish option:

Config.pm

package Config;

sub get_config {
  return { 
    # sql credentials
    user => "sqluser", pass => "123", dsn => "mysql..",
  };
}
1; #return true from modules

index.pl and other scripts:

#make sure the current folder is in the lib path
#(if you have all in the same folder).
use FindBin; 
use lib $FindBin::Bin;

require Config;
my $cfg = Config->get_config();
print "$cfg->{user} $cfg->{pass} ...\n";

But I guess you got the consept, and TMTOWTDI.

answered Oct 4, 2013 at 9:00

FtLie

7734 silver badges14 bronze badges

1 Comment

Brad Gilbert Over a year ago

Config already exists, choose another name.

Collectives™ on Stack Overflow

How to avoid database connection information in each perl file

2 Answers 2

Comments

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related