Perl脚本获取.bash_profile中变量

关注

原创最新推荐文章于 2026-09-09 09:49:04 发布 529 阅读 AI 写同款· GEO 优化 ›

perl实现设置环境变量并运行程序 <br /> 需求：perl脚本控制实验过程，由于不同的应用程序需要设置不同的实验环境，因此需要根据输入重置环境变量。环境变量的初始化方法为：source env.sh与source henv.sh，编译命令为$compile，执行命令为$run，要求必须在重置的环境变量里编译执行程序。<br /> <br /> 在perl脚本里通过system调用系统调用实现，但是system都是单独的进程，一旦返回后，其建立的环境也会丢失，因此需要由system派生的进程同时执行建立环境、编译与运行工作（至于为什阅读详情

Perl脚本获取.bash_profile中变量

   最近在修改MySQL mha自动切换脚本，发现脚本里面的ip和路径等变量都写死了，不利于MHA相关脚本移植使用，通过自定义mha环境变量和VIP相关变量来移植.

设置MHA相关环境变量

export MHA_HOME=/home/mysql/mha
export VIP=192.168.68.135/24
export VIP_ONLY=192.168.68.135

. ~/.bash_profile

测试：


vi 3.pl

#!/usr/bin/env perl

my $mha_home = $ENV{MHA_HOME};
my $vip = $ENV{VIP};
my $vip_only = $ENV{VIP_ONLY};

print "### Geting env from .bash_profile ###\n";
print "mha_home: $mha_home\nvip: $vip\n$vip_only: $vip_only\n";

[mysql@lissen-mha-manager ~]$ perl 3.pl
### Geting env from .bash_profile ###
mha_home: /home/mysql/mha
vip: 192.168.68.135/24
192.168.68.135: 192.168.68.135