如何编写TCL脚本实现用户输入产品ID与数量后生成账单汇总

原代码问题梳理 #

你提供的初始代码存在几个不符合TCL语法和功能缺失的问题：

• 误用了Shell环境的grep命令，TCL没有内置该函数，需要自行实现商品ID匹配逻辑
• 变量赋值、split函数的调用语法不符合TCL规范，TCL赋值使用set 变量名 变量值格式，不支持等号直接赋值
• 缺少用户输入合法性校验、商品信息匹配、金额计算、账单格式化输出的核心逻辑
• 读取的商品文件内容没有按行拆分，无法逐行匹配目标商品ID

预设前提 #

我们默认你的商品库文件tcldata.txt每行采用产品ID 产品名称 单价的格式存储，示例内容如下：

1001 无线键盘 129
1002 无线鼠标 79
1003 笔记本支架 39

完整可运行代码 #

#!/usr/bin/tclsh

# 读取商品库文件内容
set fp [open "tcldata.txt" r]
set file_data [read $fp]
close $fp
# 按行拆分商品数据为列表
set product_lines [split $file_data "\n"]

# 接收并处理用户输入的产品ID
puts "请输入产品ID："
flush stdout
gets STDIN input_id
set input_id [string trim $input_id]

# 接收并校验购买数量合法性
puts "请输入购买数量："
flush stdout
gets STDIN input_quantity
set input_quantity [string trim $input_quantity]
if {![string is integer -strict $input_quantity] || $input_quantity <= 0} {
    puts "输入错误：购买数量必须为正整数"
    exit 1
}

# 遍历匹配对应产品信息
set product_found 0
set product_name ""
set unit_price 0
foreach line $product_lines {
    set line [string trim $line]
    if {$line eq ""} {
        continue
    }
    set product_info [split $line]
    if {[lindex $product_info 0] eq $input_id} {
        set product_name [lindex $product_info 1]
        set unit_price [lindex $product_info 2]
        set product_found 1
        break
    }
}

if {!$product_found} {
    puts "查询失败：未找到ID为 $input_id 的产品信息"
    exit 1
}

# 计算总金额
set total_amount [expr {$unit_price * $input_quantity}]

# 格式化输出账单汇总
puts "--------------------------"
puts "          账单汇总        "
puts "--------------------------"
puts "产品ID：$input_id"
puts "产品名称：$product_name"
puts "单价：$unit_price 元"
puts "购买数量：$input_quantity"
puts "--------------------------"
puts "应付总金额：$total_amount 元"
puts "--------------------------"

功能说明 #

• 自动校验输入的购买数量是否为合法正整数，输入异常会直接提示报错
• 自动匹配商品库中对应ID的商品名称、单价信息，找不到对应商品会提示
• 自动计算应付总金额，格式化输出账单汇总信息

内容的提问来源于stack exchange，提问作者Mohammad Adil