LinuxSir.cn,穿越时空的Linuxsir!

 找回密码
 注册
搜索
热搜: shell linux mysql
查看: 628|回复: 0

为什么open老是出错?

[复制链接]
发表于 2006-3-22 17:12:48 | 显示全部楼层 |阅读模式
#!/usr/bin/perl

$configurl = "/var/www/";

$config_file = "router.cfg";
$config_file2 = "router2.cfg";
print "Content-type:text/html\n\n";
use CGI;
$req = new CGI;
$lan_ip = $req->param("lan_ip");
               
open(CONFIG,"<$configurl$config_file");


//这里,打开些文件老是出错,会是什么原因?
if(!(open (OUTFILE, ">$configurl$config_file2")))
{
        print "Failed";
        }
@array = <CONFIG>;
foreach $var(@array)
{
        if($var =~ m/LAN_IP/)
        {
        ($name,$value) = split(/=/,$var);
        print OUTFILE "$name=$lan_ip";
        next;
        }       
print OUTFILE $var;
}
close(OUTFILE);
close(CONFIG);       


unlink("$configurl$config_file");
rename("$configurl$config_file2","$configurl$config_file");
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表