2

我已经编写了一个 perl 脚本,我将在其中连接到数据库,为此我使用了这个语句

my $dbh = DBI->connect(
    "DBI:mysql:database=test;host=localhost;mysql_socket=/var/run/mysqld/mysqld.sock",
    "root", "password", {'RaiseError' => 1});

由于我不希望任何信息被硬编码,我想使用属性文件,我可以在其中列出上述详细信息(例如,数据库、主机、mysql_socket)并从脚本中读取属性文件的详细信息。如何编写属性文件并从 perl 脚本中读取详细信息?

4

4 回答 4

1

我在使用时遇到问题perl-Config-Simple并决定Config::Properties改用。如果您遇到相同的情况,那么您可以尝试以下方法。

确保您已Config::Properties安装。以下是如何从命令行安装的几个示例,根据您使用的操作系统,您需要使用适当的选择:

  1. cpan Config::Properties
  2. cpan install Config::Properties
  3. yum install perl-Config-Properties

编码:

#!/usr/bin/perl
use strict;
use warnings;
use Config::Properties;

open my $cfh, '<', './foo.properties' or die "unable to open property file";
my $properties = Config::Properties->new();
$properties->load($cfh);
my $dbName = $properties->getProperty('database.name');
my $dbUser = $properties->getProperty('database.user');

属性文件:

database.name=somedb
database.user=someuser

一旦你有了变量中的值,把它们放到你的连接字符串中,你应该很高兴。

于 2014-09-30T23:07:43.383 回答
1

有很多 CPAN 模块可以帮助您完成这项任务。我喜欢Config::Simple,例如:

#!/usr/bin/perl
use strict;
use warnings;
use Config::Simple;
...
my $cfg = new Config::Simple('myapp.ini');
my $user = $cfg->param('database.user');
my $connection_str = $cfg->param('database.connection');
#...

和文件myapp.ini

[database]
connection="DBI:mysql:database=test;host=localhost;mysql_socket=/var/run/mysqld/mysqld.sock"
user=root
;...

您可以使用以下命令从终端/命令提示符安装模块:

cpan install Config::Simple

或者

yum install perl-Config-Simple
于 2013-06-10T11:16:23.123 回答
0

我的实体解决方案从属性文件中导出一个值:

#!/usr/bin/perl
use strict;
use warnings;

my $line;
foreach $line (<STDIN>) {
  chomp($line);
  if(my $match = $line =~ /^(.*)=(.*)$/){
    my $key = $1;
    my $value = $2;
    if ($ARGV[0] eq $key) {
      print "$value\n";
      exit 0;
    }
  }
}

用法:perl script.pl mykey < file.properties

于 2020-03-17T11:28:50.337 回答
0
var temp;
if($ENV eq "Prod"){
#Prod Configurations
temp = "Prod";
}
else{
# Stage and Test Confgurations
temp = "Stage";
}
于 2019-01-30T05:18:43.887 回答