Perl 读入文件（一）

有一个SQL Server的环境配置文件如下，该脚本将配置环境的参数和值读入perl哈希串，然后在perl内可以做各种处理，当然本例中只打印参数和值。

 

==配置文件 Env_Var.txt==
SERVER = GDCPW1169
INSTANCE = GDCPW1169
SQL_VER = 2005
BIN_DIR = G:/mssql2005/MSSQL.1/MSSQL/Binn
SCRIPT_LOG = G:/mssql2005/log
DATA_FILE_LOCATION = I:/INTEL_DATA
LOG_FILE_LOCATION = J:/INTEL_LOG
DUMP_DIR = H:/INTEL_DB_DUMPS/GDCPW1169
TRAN_DIR = H:/INTEL_TRAN_DUMPS/GDCPW1169
AUDIT_ARCHIVE_DIR = H:/INTEL_DB_DUMPS/GDCPW1169/AUDIT_ARCHIVE

 

==perl脚本file_input3.pl==
#!/usr/bin/perl -w
#
# file_input3.pl
# Handle input from a file
use strict;

my ($file_name,
 $arg,
 $line,
 $key,
 $value,
 @array1,
 %hash);

$arg = shift(@ARGV);

while ($arg)
{
 if ($arg eq "-f" or $arg eq