在一系列行中查找字符串并选择特定字符串后的所有字符串并将其附加到另一个文件

Question

我的内容为file 1

wire x;
wire y;
input a;
input b;
input c;
reg m;
reg n;

我必须以下列方式将信号a，b，c仅放在另一个文件file 2中

assign inst.a=;
assign inst.b=;
assign inst.c=;

任何人都可以使用Perl或Python帮我解决这个问题吗？

Answer 1

这个单线Perl程序

perl -lne 'print "assign inst.$1=;" if /^input\h+(\w+);/' 'file 1'