2,203
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
leebx 2003-09-28
- 打赏
- 举报
$in{'dh_filename'} =~ s/^.*(\\|\/)//;
local $file_dh = "/root/cert/$in{'dh_filename'}";
if( -r $file_dh ) {
print "文件已存在 : $in{'dh_filename'}<br>\n";
}
else {
open(MOD, "> $file_dh");
print MOD $in{'dh'};
close(MOD);
}
local $file_dh = "/root/cert/$in{'dh_filename'}";
if( -r $file_dh ) {
print "文件已存在 : $in{'dh_filename'}<br>\n";
}
else {
open(MOD, "> $file_dh");
print MOD $in{'dh'};
close(MOD);
}
