Arrays 段落回文的Perl程序

我想编写一个perl程序来查找段落中的回文数。 但在这里，我必须使用数组。请帮忙。

看一看

它包括一个回文测试的例子，毫无疑问，你可以适应你的目的，不管它们是什么：

use strict;
use warnings;

my $pp = qr/^(\W* (?: (\w) (?1) \g{-1} | \w? ) \W*)$/ix;

for $s ( "saippuakauppias", "A man, a plan, a canal: Panama!" ){
    print "'$s' is a palindrome\n" if $s =~ $pp;
}

产出：

'saippuakauppias' is a palindrome
'A man, a plan, a canal: Panama!' is a palindrome

---

“段落”和“数组”是什么意思。请解释！你试过什么，怎么会失败？在一半的数组上循环并检查数组（i）是否等于数组（max-i）在概念上和算法上似乎都很简单。这听起来很有趣，但需要澄清。“从来没有奇数或偶数”是这个评论段落中间的回文。是的，对于奇数和偶数，这里的段落意味着超过3-4个句子，假设它是一个数组，并找到回文（奇数和偶数）。@Rajkishore90如果你自己都不尝试的话，还有什么理由去做这些挑战吗？