如何通过 perl 脚本执行 primetime 命令

Question

我正在将 TCL 脚本转换为 Perl。

我已经使用系统命令和后退抽搐进行了尝试。我正在黄金时间按以下方式执行 perl 脚本， 执行脚本.pl。 该脚本包含许多命令，包括以下命令。

my $val = `sizeof_collection [get_pins -quiet -filter "is_hierarchical == true"]`;

shell 会抛出类似这样的错误 sizeof_collection：找不到命令。

Answer 1

在 表面上， 的翻译是（使用

quiet

的真实 y 值）：

my $val = sizeof_collection(get_pins(quiet=>1, filter=>"is_hierarchical == true"));

但这只是表面；然后你就会直接遇到“什么是

sizeof_collection

和

get_pins

子例程？”的问题。问题在于它们是由增强的 Tcl 运行时实现的（它们是特定于应用程序的扩展），并且增强是用 C（或 C++）编写的大型应用程序。移植这是一项艰巨的任务。

公平地说，

sizeof_collection

可能几乎微不足道。但

get_pins

不是；显然，它正在应用过滤器从底层数据模型中选择内容，这突然意味着您正在处理应用程序核心的很大一部分......