As an alternative approach, if you want to avoid that voo
do, you could read your db data into a hash using
open. This would also replace all your separate (but related) scalar variables with a single hash variable.
$ cat dbconnect.txt
# set up the database connection variables
username = foo
password = somepassword
host = localhost
database = adb
table = notactual
$
$ cat ./770979.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
my %db_data;
my $file = 'dbconnect.txt';
open my $fh, '<', $file or die "Can not open file $file: $!";
while (<$fh>) {
chomp;
next if /\s*#/; # Ignore comments
if (/=/) {
my ($k, $v) = split /\s*=\s*/;
$db_data{$k} = $v;
}
}
close $fh;
print Dumper(\%db_data);
$ ./770979.pl
$VAR1 = {
'database' => 'adb',
'password' => 'somepassword',
'table' => 'notactual',
'host' => 'localhost',
'username' => 'foo'
};
Yet another alternative approach is to use one of the CPAN modules, such as Config::Simple.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.