求助正则替代

逝去的华丽

有如下形式的表达式：
y = a ^ b ^ c ^ d ^ e ^ f ^ g
y1 = a ^ c ^ f
y2 = b ^ g
想用y1,y2来代替y中的相同项，如何写正则？
结果为： y = y1 ^ y2 ^ d ^ e

谢谢~~~~~~

MMMIX

原帖由 逝去的华丽 于 2009-4-9 10:02 发表
有如下形式的表达式：
y = a ^ b ^ c ^ d ^ e ^ f ^ g
y1 = a ^ c ^ f
y2 = b ^ g
想用y1,y2来代替y中的相同项，如何写正则？
结果为： y = y1 ^ y2 ^ d ^ e

你是不是把 regexp 当作万应药了？

hfahe

从数据结构／算法方面着手吧。。正则在这儿不擅长

machine

1） 你这个问题，正则似乎解决不了
2） 如果用算法解决的话，你的问题也没描述清楚，比如 y1，y2中的元素会不会有重复？ 重复了该如何处理？ y1，y2中会不会出现y中没有的元素？ 等等

MMMIX

原帖由 machine 于 2009-4-9 11:18 发表
1） 你这个问题，正则似乎解决不了
2） 如果用算法解决的话，你的问题也没描述清楚，比如 y1，y2中的元素会不会有重复？ 重复了该如何处理？ y1，y2中会不会出现y中没有的元素？ 等等

其实，楼主的问题看点编译器优化方面或者符号推导系统方面的资料最好了，这些表达式的替换、合并等等在那里都有讲，也都有用。

flw

原帖由 MMMIX 于 2009-4-9 11:52 发表

其实，楼主的问题看点编译器优化方面或者符号推导系统方面的资料最好了，这些表达式的替换、合并等等在那里都有讲，也都有用。

嗯，如果只是想解决问题的话，
用 LEX 这样的东西可能会更好一些。

当然了，Perl 也是有 parser 的。可以到 CPAN 上搜索一下。

逝去的华丽

那各位推荐一点 编译器优化的资料？？

逝去的华丽

另外还有一个问题：
比如，
my $t1 = "s8[0]";
my $t2 = "s8[0] ^ s8[1] ^ s8[2]";
if ( $t2 =~ /$t1/ )
   {  print "xxxxxx\n"; }
结果却不能匹配，为什么？？

DQP

因为你的$t1种有[]
[]是正则中的metacharacter 改成$t2 =~ m/\Q$t1\E/

或者用index就好了