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

[poj]

But you didn't change the hash to suit like this

#!perl
use strict;

my %site_map = (
  site1 => { host => 'dam.sd.aog.com', 
             db   => 'a_site1_current', 
          current => { user => 'ad', pw => '123' } },
  site2 => { host => 'dam.sd.aog.com', 
             db   => 'a_site2_current',
          current => { user => 'ad', pw => '123' } },
  site3 => { host => 'dam.sd.aog.com', 
             db   => 'a_site3_current',
          current => { user => 'ad', pw => '123' } },
);

[finddata]

Here in db we had fetched the a_site3_current then why we want to use the current with user and pw?

[marto]

Consider these responses to be a good generic approach, obviously you'll alter them to best suit your situation, this is a task for you.

[poj]

why we want to use the current with user and pw?

I have no idea since I didn't understand your answer here