in reply to palindrome using regular expressions

This uses the recursive definition of a palindrome:

As for other solutions, there is of course the non-regex way of doing join '',reverse split //, $_ eq $_ but that is probably not what you are looking for.

Note that my $r = "(??{\$palindrome})"; is equivalent to my $r = '(??{$palindrome})';, there is no reference involved (as I thought at first glance).

Update: Minor typo correction

-- Hofmator

Code written by Hofmator and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

Replies are listed 'Best First'.
Re^2: palindrome using regular expressions
by reneeb (Chaplain) on Oct 10, 2006 at 12:01 UTC
    You don't have to split. reverse can also handle strings: 

    #!/usr/bin/perl

use strict;
use warnings;

my $palindrome = 'lagerregal';
my $check = reverse $palindrome;

print "yes\n" if $check eq $palindrome;

    [download]
    (see perldoc -f reverse)
[reply]
[d/l]
[select]
      Yes, you are absolutely right. Thanks for the correction.

      In fact, I also thought that reverse worked on strings and so I tried print reverse 'hello' which returns hello. From that I (incorrectly) concluded that it doesn't work ... well, got bitten by list context again, print scalar reverse 'hello' does the job OK :)

      -- Hofmator

      Code written by Hofmator and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

[reply]
[d/l]
[select]

        exactly.

        reverse is aware of its context; if you use it in string context ($reverse = reverse ...), it reverses the string; but if you use it in list context (print reverse ... or @array = reverse ..), it reverses the list (and does nothing if the list only has one element

        Best regards,
        perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom