Re^10: Global regex giving up too soon

[Coruscate]

1 while $str =~ s/PAT/REPL/;

Why not just $str =~ s/PAT/REPL/g;? Gives same result...

$str =~ s/A/a/i for 1,2,3;

All this really shows is that without 1 while or the /g modifier that it always matches at the beginning again during reiteration...

I don't mean to be rude, but you didn't really demonstrate anything too revealing :) I'm looking for a case where there is a difference between 1 while s/foo/bar/ and 1 while s/foo/bar/g.

[Abigail-II]

#!/usr/bin/perl

use strict;
use warnings;

my $str = "123456";

$_ = $str;
1 while s/(\d)(\d)(\d)/$3$2/;
print "$_\n";

$_ = $str;
1 while s/(\d)(\d)(\d)/$3$2/g;
print "$_\n";
__END__
62
52

Abigail

[Coruscate]

Thank you, that knocked it into me. I shall remember the difference.