CGI 问题 能帮忙看看么

mjj911

用perl写了 个CGI  大致是
先运行一个read_config() 函数去读一个配置txt文件里面的参数 write_config()是写
然后用show_from()显示出来 .现在出现的一个现象 网页浏览这个cgi 显示正常，
如果按F5刷新或者按页面按钮，cgi会去读文件，页面参数也显示正常，
但我输入网址回车 cgi并没有去运行read_config()读文件 而且显示之前参数（似乎是上一次的操作）
大致代码如下 :
#!/usr/bin/perl

use DBI;
use CGI qw(:standard);
use File::Find;
use File::Compare;
use File::Copy;

my ........ ；## 这些是些参数


  #### get info from config.txt
   read_config(); ## 读配置文件 更改 上面那些参数
   
#### Check ERROR & excute
   if (param('SET_MODE') eq "SET_MODE") {
        $MODE= param(MODE);
        $change=1;
   } elsif (param('SET_DEFAULT_TEST') eq "SET_DEFAULT_TEST") {
        set_default();
           write_config();
        $change=1;
   }

   read_config() if ($change =~ 1);

   show_form();

有人碰到过这种问题？？？

兰花仙子

脚本里加上use strict和use warnings，再观察apache的error_log.

mjj911

哦我去试试看