regular expression

[giampiero]

there is a way using regular expression to detect if in a string there
is a substring and its rotation. es 000012340003412000?
thanx a lot

 

[Bart Van der Donck]

there is a way using regular expression to detect if in a string there
is a substring and its rotation.

Does this help you ?

#!perl
use strict;
use warnings;
use String::Substrings;
my $b='AF452UFA25';
my @r=();
my $prev='none';
my @p=substrings $b;
my @out=grep($_ ne $prev && ($prev=$_),sort @p);
for (@out) {
push @r, $_
if($b=~/$_/ && $b=~/@{[my $o=reverse]}/ && length>1)
}

# small report utility
print "\nFollowing substrings appear reversed in '$b':";
print "\n".$_ for @r;

I'm leaving out substrings that only consist of 1 character (they would
always be in the result array obviously).

String::Substrings is at
http://cpan.uwinnipeg.ca/dist/String-Substrings.