如何在Perl脚本中执行PrimeTime命令？转写后调用报错求助

你用反引号执行sizeof_collection命令时，Perl会调用系统Shell去执行这条命令，但sizeof_collection是PrimeTime的TCL内置命令，Shell根本不认识它，所以才会报“command not found”错误。反引号、system()函数都是用来调用系统级命令的，无法直接访问PrimeTime的TCL命令环境。

根据你在PrimeTime中通过exec script.pl执行Perl脚本的场景，提供几种可行的实现方式：

方式1：让Perl输出TCL命令，由PrimeTime执行 #

这种方式直接复用当前PrimeTime的环境，无需启动新进程：

1. 修改Perl脚本（script.pl），让它输出要执行的TCL命令：

print 'sizeof_collection [get_pins -quiet -filter "is_hierarchical == true"]';

2. 在PrimeTime的TCL环境中，捕获Perl的输出并执行：

set tcl_cmd [exec script.pl]
set val [eval $tcl_cmd]

这样就能在PrimeTime内部执行命令，得到正确的结果。

方式2：Perl调用PrimeTime命令行执行TCL命令 #

如果需要在Perl内部直接获取结果，可以启动PrimeTime子进程执行指定TCL命令：

# 构造TCL命令，注意转义引号
my $tcl_command = 'sizeof_collection [get_pins -quiet -filter "is_hierarchical == true"]';
# 调用pt_shell执行命令，捕获输出
my $val = `pt_shell -no_log -batch -cmd "$tcl_command"`;
# 清理输出中的多余换行或日志信息
chomp $val;

这种方式会启动一个新的PrimeTime实例，适合在PrimeTime外部运行Perl的场景。

方式3：使用PrimeTime Perl API（若版本支持） #

部分PrimeTime版本提供了Perl绑定模块，可以直接在Perl中调用TCL命令：

# 加载PrimeTime Perl模块（需确认版本是否支持）
use PrimeTime;

# 直接调用PrimeTime命令
my $pins = get_pins(-quiet => 1, -filter => "is_hierarchical == true");
my $val = sizeof_collection($pins);

这种方式最简洁，但需要确认你的PrimeTime版本是否提供该API，以及正确配置模块路径。

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