是否有一些方法告诉您perl/tk？
根据文档，小部件具有一种方法index()，该方法返回小部件中各个位置的" line.char"。将其传递给特殊标记"插入"的名称，以获取插入光标的当前位置。将其传递给特殊标记"电流"的名称，以获取鼠标上的当前位置。
您的问题并不清楚您想要的两个。