php - 无法使用 TCL 创建文件，通过 PHP 执行

Question

我有一个执行 TCL 脚本的 PHP 脚本。TCL 脚本创建一个文件，但是当我通过 PHP（从浏览器）执行时，tcl 无法创建一个文件。

谁能指导我。

//PHP代码

<?php

$app = 'tclsh84';
$descriptorspec = array(
0 => array("pipe","r"),
1 => array("file","C:/wamp/www/tcl/bin/out.txt","w"),
2 => array("file","C:/wamp/www/tcl/bin/error.txt","w")
) ;
$process = proc_open($app, $descriptorspec, $pipes);
if (is_resource($process)) 
{
 fwrite($pipes[0], 'source c:/wamp/www/tcl/bin/show.tcl'."\n");
 fwrite($pipes[0], ' status 124 mithun '."\n");
fclose($pipes[0]);
proc_close($process);
}
?>

//TCL代码

proc status {id uname} {
set x 1
set outfile [open "report.txt" w]
while {$x < 30} {
set systemTime [clock seconds]
puts $outfile "The time is: [clock format $systemTime -format %H:%M:%S] "
 puts $outfile "$id $uname "
 set x [expr {$x + 1}]
 }
 close $outfile 
 }

Thef 文件 report.txt 未创建。

Answer 1

查看您的 TCL 代码，它正在尝试创建一个名为 report.txt 的文件，但您没有指定在目录结构中的哪个位置创建它。所以我认为它将尝试在您的网络服务器设置为主目录的任何目录中创建文件。

更改 TCL 脚本中的文件名，将文件放在您知道可以写入的位置，看看这是否解决了您的问题。