Re: How to pass hash site variables into sql connection using perl?

use strict;
use warnings;
use Getopt::Long;
use DBI;

GetOptions("site=s" => \my $site)
    or die "Error in command line arguments\n";
defined $site
    or die "usage: $0 site_name\n";

my %site_map = (
    site1 => { host => 'host1', db=>'db1', user=>'user1', pw=>'pw1' },
    site2 => { host => 'host2', db=>'db2', user=>'user2', pw=>'pw2' },
    site3 => { host => 'host3', db=>'db3', user=>'user3', pw=>'pw3' },
);

my $dbh = dbconnect($site);

sub dbconnect {
    my $s = shift;
    die "bad site $s" unless $site_map{$s};
    my $dsn = "DBI:mysql:database=$site_map{$s}{db};host=$site_map{$s}
+{host}";
    my $dbh = DBI->connect($dsn, $site_map{$s}{user}, $site_map{$s}{pw
+})
        or die "ERROR: can't connect to database server site $s";
    return $dbh;
}
[download]

Comment on Re: How to pass hash site variables into sql connection using perl? Download Code

Replies are listed 'Best First'.
Re^2: How to pass hash site variables into sql connection using perl? by finddata (Sexton) on Mar 30, 2017 at 06:03 UTC
I have few doubts: 1.Why you can given different database names like (db1,db2,db3).My database name should be a_$site1_current.Only the $site1 should be changed as per hash. 2,In the above code i had not fount any words which matches as like a_site1_current.	[reply]
Re^3: How to pass hash site variables into sql connection using perl? by huck (Prior) on Mar 30, 2017 at 06:25 UTC
I have few doubts: what you have is little concern about doing your own work 1.Why you can given different database names like (db1,db2,db3). because it is an generic example, that someone with any ability at all to think for themselves should be able to modify by themselves to suit their needs My database name should be a_$site1_current.Only the $site1 should be changed as per hash. A normal person should be able to fix the example themselves 2,In the above code i had not fount any words which matches as like a_site1_current. Well what could you change to fix that? Can you not even think for yourself that much? Or do we need to write all your code for you? Are you going to pay us to do that? You need to tell your boss that you are not skilled enough to do your own work. `site1 => { host => 'dam.sd.aog.com', db =>'a_site1_current', user =>'ad', pw= >'123' },` [download] ps: i dont see 36 lines in any here script so far, so of course you havent shown us what you have actually tried, and if this is actually a cgi program you wont have a lot of luck with GetOptions, you will need something like `use CGI; my $site=$q->param('site');` instead.	[reply] [d/l] [select]
Re^3: How to pass hash site variables into sql connection using perl? by poj (Abbot) on Mar 30, 2017 at 06:21 UTC
It was an example. You need to fill in your details like this `my %site_map = ( site1 => { host => 'dam.sd.aog.com', db => 'a_site1_current', user=>'ad', pw=>'123' }, site2 => { host => 'dam.sd.aog.com', db => 'a_site2_current', user=>'ad', pw=>'123' }, site3 => { host => 'dam.sd.aog.com', db => 'a_site3_current', user=>'ad', pw=>'123' }, );` [download]	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.