TCL要求用户输入多个输入

Question

我试图向用户询问多个问题，以便机器可以根据输入制作零件。输入将保存为稍后在程序中调用的变量。我编写了以下代码并请求帮助，以了解它为什么不运行。我在使用puts命令时遇到错误，以及在每个问题之后没有等待响应的程序。正如您所看到的，我是新手，对您提供的任何指示都会感激不尽。提前谢谢。

    #Asks user for diameter of probe
    flush stdout;
    puts “Enter Diameter ”
    gets stdin diameter
    #Asks user for Taper Length of probe
    flush stdout;
    puts “Enter Taper Length ”
    gets stdin taper
    #Asks user for tip shape of probe
    flush stdout;
    puts “Enter Tip Shape s=sharp, r=radius and f=flat”
    gets stdin shape
    # Prompt for tip size
    flush stdout;
    if {r} {
    puts “Enter Radius Size ”
    gets stdin radius
    } elseif {d}{
    puts “Enter Diameter Size”
    gets stdin diameter
    }

Answer 1

确定因为引号是使用MS Word编写的，所以它们是导致错误的错误类型。通过删除它们并在Notepad ++中添加引号来解决这个问题。 if语句也使用（if {$shape == "r"}）和（elseif {$shape == "f"}）进行了更正。谢谢你的帮助。