-3

我正在尝试编写一个 Perl 程序来确定 7 个字符的用户输入是否是回文。

不使用任何数组、字符串或反向函数。

期望的输出:

    Enter in a 7 character item: 1111111
    PALINDROME!

或者

    Enter in a 7 character item: 1234567
    NOT A PALINDROME!

这是我到目前为止所拥有的:

print "Enter in a 7 character item: \n";
my ($a, $b, $c, $d, $e, $f, $g);
chomp ($a=<>); chomp ($b=<>); chomp ($c=<>); chomp ($d=<>);
chomp ($e=<>); chomp ($f=<>); chomp ($g=<>);
if ($a~~$g && $b~~$g && $c~~$e){
    print "PALINDROME!\n";
}
else{
    print "NOT A PALINDROME! \n";
}

不幸的是,这给了我这个结果:

    Enter in a 7 character item:
    1
    1
    1
    1
    1
    1
    1
    PALINDROME!

如果有人有建议,将不胜感激。

我期待听到您的意见。谢谢!

4

4 回答 4

5

这在我看来是正确的,毕竟1111111是回文!

但是,智能匹配运算符并不是一个非常有用的东西,并且您想在此处测试字符串是否相等,因此请使用eq而不是~~.

更好的是,我建议您允许用户输入整个字符串,所以

chomp(my $str = <>);

if ( $str eq reverse($str) ) {
     print "PALINDROME!\n";
}
else {
     print "NOT A PALINDROME! \n";
}
于 2013-04-01T22:29:54.970 回答
3

不使用reverse

#!/usr/bin/perl
use strict;
use warnings;

my ($word) = @_;

my @chars = split //, $word;
my $palindrome = 1;
for (0..@chars/2-1) {
   $palindrome = $chars[$_] eq $chars[-($_+1)]
      or last;
}

print "$word ".($palindrome ? "is" : "isn't")." a palindrome\n";

用法:

script word
于 2013-04-01T23:18:28.890 回答
1

改变

$b~~$g 到 $b~~$f 也可能有帮助。

于 2013-04-01T22:36:19.497 回答
0

没有使用反向,而是正则表达式(和递归)。

 sub palyndromeP{
     my $s=shift;
     if (length($s)<2) {return 1}        
     if ($s !~ /^(.)(.*)\1$/) {return 0}
     return palyndromeP($2);
 } 
于 2015-02-07T16:36:46.020 回答