Perl 中的替换问题分析

molliechan

大家好，我是一个刚刚学perl 的菜鸟，有一个关于替换的问题请教：）

句子：
The boy hit the ball and the orange.
The girl is looking for the book and the umbrella.

要求：
请把句子中的the 根据后面的名词替换成a 或者an (以辅音开头的比如ball和book,就变把the ball和the book变成 a ball, a book; 元音开头（a,e,i,o,u) 的orange 和umbrella, 就把the orange和umbrella 变成an orange 和an umbrella."

我在note pad 中写的：
$_="The boy hit the ball and the orange.
The girl is looking for the book and the umbrella.";
s/the/a/gi;
s/\ba\b ([aeiou])/an $1/gi;
print;

我已经可以run了，我想问有什么其他的写法吗，或更加简单的，比如用if... 什么的

谢谢大家！！！

yun456900

你这样写如果单词中出现zhe就会出问题