<html>
<body>
Activestate Perl <br>
Window 7<br>
web application using cgi<br><br>
I use a tab delineated config file that is read into a hash:<br>
infilename<x-tab> </x-tab>../input<br>
outfilename<x-tab> </x-tab>../output<br><br>
Plus a bunch other stuff. <br><br>
I read it:<br>
#Read the config file <br>
open INFILE, "../input/config1.dat" or die "config1.dat
not found\n";<br><br>
my ($key, $value);<br>
my %confighash;<br><br>
while( <INFILE> ) {<br>
<x-tab> </x-tab>
s/#.*//;
# ignore comments by erasing them<br>
<x-tab> </x-tab>next if
/^(\s)*$/; # skip blank lines<br>
<x-tab> </x-tab>
chomp;
# remove trailing newline characters<br>
<x-tab> </x-tab>($key,
$value)=split("\t",$_);
<br>
<x-tab> </x-tab>
$confighash{ $key } = $value;<br>
}<br>
close INFILE;<br><br>
Further I use:<br>
my $infilename = $confighash{infilename};<br>
my $d2cfilename = $infilename.".dbs";<br><br>
open INFILE, "$d2cfilename" or
&Error_Exit("$d2cfilename not found: $!");<br>
my @d2clines = <INFILE>;<br>
close(INFILE);<br><br>
Works fine.<br><br>
But:<br>
my $outfilename = $confighash{outfilename};<br>
my $modfilename = $outfiilename . ".mod"; #add the
extension.<br>
open(OUTFILE, ">$modfilename") or
&Error_Exit("$modfilename not opened: $!");<br><br>
Produces an:<br>
<pre>"Insecure dependency in open while running with -T switch at
/cgi-bin/my_script.cgi line 1371
</pre>Where as:my $outfilename =
"hardcode_the_path/filename";<br>
my $modfilename = $outfiilename . ".mod"; #add the
extension<br>
open(OUTFILE, ">$modfilename") or
&Error_Exit("$modfilename not opened: $!");<br><br>
Does not product an error.<br><br>
I am stuck with this one.<br><br>
Thanks for any help!<br><br>
<br><br>
<x-sigsep><p></x-sigsep>
>><br>
Christopher Jones, P.Eng.<br>
Suite 1801, 1 Yonge Street<br>
Toronto, ON M5E1W7<br>
Tel. 416-203-7465<br>
Fax. 416-946-1005<br>
email cj@enersave.ca<br>
</body>
</html>