Re^2: rotate a vector with a regex? (//g, s/\G)

in reply to Re: rotate a vector with a regex?
in thread rotate a vector with a regex?

local $_ = '12345';
while( /(?=..)/g ) {
    my $pos = pos();
    s/\G(.)(.)/$2$1/;
    pos() = $pos + length($2);
}
print $_, $/
__END__
23451
[download]

- tye

Comment on Re^2: rotate a vector with a regex? (//g, s/\G) Download Code

Replies are listed 'Best First'.
Re^3: rotate a vector with a regex? (//g, s/\G) by remiah (Hermit) on Nov 22, 2012 at 10:15 UTC
Hello tye. Thanks for reply zero width look ahead and \G . fine!	[reply]

In Section Seekers of Perl Wisdom