求助如何用perl实现一种格式间的转换

chtxzy

1^# chtxzy 发表于 2008-04-28 10:54

如何用perl语言把  GTECH_XOR2  c6(.A(in1),.B(in2),.Z(N0))
转换为                   c6    in1 in2 N0 XOR2
知道的告诉下  谢谢了

sunny67892000

2^# sunny67892000 发表于 2008-04-28 15:59

$a="GTECH_XOR2 c6(.A(in1),.B(in2),.Z(N0))";
$a=~/.{5,}_(\w+)\s+(\w+)$.*\((\w+)$.*\((\w+).*\((\w+).*$/;
print "$2 $3 $4 $5 $1\n";