考虑一个包含以下内容的文本文件：
apple apple pear plum apple cherry pear apple cherry plum plum pear apple cherry pear pear apple plum
并考虑perl one-liner：
perl -pe "s/apple/green/g and s/pear/yellow/g and s/plum/blue/g and s/cherry/red/g" < fruits.txt
这取代了每种水果的颜色.
现在,这可以用一个s /// g以某种方式完成,而不是上面的四个吗？
我也关注水果词的顺序.
如果我的样本不包含“apple”,则其他替换都不会完成.
我该如何解决这个问题？
请注意：我希望将解决方案保持为单行.
因此,定义哈希,读取文件以及需要多行perl代码的其他解决方案并不能让我前进.
这更像是一种好奇心,而不是一个项目所依赖的生死攸关的问题.
现在困扰我好几天了,并且认为一个更有经验的perl用户可以在心跳中帮助解决这个问题,或者直接告诉我这不能按照我想要的方式完成.
perl -E 'my %h = qw(apple green foo bar); say "apple foo" =~ s/(apple|foo)/$h{$1}/rge;'