我正在尝试从两个文件中读取数据,并在第三个文件中生成输出。我最初想要在进行操作时编辑第一个文件,但除了使用数组之外,我没有找到合适的方法。
我的问题是,当我取消注释"_ref_param_handling"函数时,第三个文件(输出)为空。但是,以下内容使我最困惑:如果我在程序结尾处对输出文件进行UNIX基本的`cat`系统调用,它可以正常工作。如果我在编辑前打开文件句柄并在print FILEHANDLE LIST周围关闭它,也可以正常工作。
我肯定在这里漏掉了什么。除了我键盘和椅子之间的问题,还有什么原因呢?文件句柄冲突?作用域问题?
每个变量都已声明并具有我想要的值。
编辑:在三个文件上使用IO :: File没有改变任何内容。
新完整子例程代码
我的问题是,当我取消注释"_ref_param_handling"函数时,第三个文件(输出)为空。但是,以下内容使我最困惑:如果我在程序结尾处对输出文件进行UNIX基本的`cat`系统调用,它可以正常工作。如果我在编辑前打开文件句柄并在print FILEHANDLE LIST周围关闭它,也可以正常工作。
我肯定在这里漏掉了什么。除了我键盘和椅子之间的问题,还有什么原因呢?文件句柄冲突?作用域问题?
每个变量都已声明并具有我想要的值。
编辑:在三个文件上使用IO :: File没有改变任何内容。
新完整子例程代码
sub _ref_edit($) {
my $manda_def = "$dir/manda_def.list";
my $newrefhandle;
my $ref = $_[0];
(my $refout = $ref) =~ s/empty//;
my $refhandle;
my $parname = '';
my $parvalue = '';
my @val;
_printMan;
my $flush = readline STDIN; # Wait for <enter>
# If one or both of the ref. and the default values are missing
if ( !( -e $manda_def && -e $ref ) ) {
die "Cannot find $ref and/or $manda_def";
}
# Open needed files (ref & default)
open( $refhandle, "<", $ref ) or die "Cannot open ref $ref : $!";
open( $newrefhandle, ">>", $refout )
or die "Cannot open new ref $refout : $!";
# Read each line
while ( my $refline = <$refhandle> ) {
# If line read not an editable macro
if ( $refline =~ /^define\({{(.+)}},\s+{{.*__VALUE__.*}}\)/ ){
$parname = $1; # $1 = parameter name captured in regexp
# Prompt user
$parvalue = _ref_param_handling( $parname, $manda_def );
# Substitution in ref
$refline =~ s/__VALUE__/$parvalue/;
# Param not specified and no default value
$parvalue eq '' ? $refline=~s/__COM__/#/ : $refline=~s/__COM__//;
}
print $newrefhandle $refline;
}
close $newrefhandle;
close $refhandle;
return $refout;
} # End ref edit
_ref_param_handle子例程仍然是:
open( $mde, '<', $_[1] )
or die "Cannot open mandatory/default list $_[1] : $!";
# Read default/mandatory file list
while (<$mde>) {
( $name, $manda, $default, $match, $descript ) = split( /\s+/, $_, 5 );
next if ( $name !~ $ref_param ); # If param read differs from parname
(SOME IF/ELSE)
} # End while <MDE>
close $mde;
return $input;
}
从manda_def文件中提取:
NAME Mandatory? Default Match Comm.
PORT y NULL ^\d+$ Database port
PROJECT y NULL \w{1,5} Project name
SERVER y NULL \w+ Server name
modemRouting n NULL .+
modlib y bin .+
modules y sms .+
从ref_file中提取:
define({{PORT}}, {{__VALUE__}})dnl
define({{PROJECT}}, {{__VALUE__}})dnl
define({{SERVER}}, {{__VALUE__}})dnl
define({{modemRouting}}, {{__COM__{{$0}} '__VALUE__'}})dnl
define({{modlib}}, {{__COM__{{$0}} '__VALUE__'}})dnl
define({{modules}}, {{__COM__{{$0}} '__VALUE__'}})dnl
需要任何帮助都可以。
use strict;
" 和 "use warnings'
" 开始你的 Perl 程序。 - Brad Gilbert{{
或}}
,它们是我的m4注释分隔符。当使用'>>'访问现有的ref_file时,实际上会出现无限写入循环,但不要浪费时间在这上面。我正在调用$EDITOR(或vi),而不是逐行提示(仅在指定现有的ref_file时)。这样,用户可以修改他需要的任何内容。 - Isaac Clarke