in reply to @- Bug on the loose, lets isolate it
I get 2244604 on the first run, then 2244628 on all subsequent runs (within the same command window).
This is perl, v5.6.1 built for MSWin32-x86-multi-thread (with 1 registered patch, see perl -V for more detail) Binary build 633 provided by ActiveState Corp. http://www.ActiveState. +com Built 21:33:05 Jun 17 2002
I also checked $-[0] and the @+ array using this:
use strict; use warnings; my $string = 'abc' x ( 3 ); while( $string =~ /b/g ) { print "$-[0], $#-, $+[0], $#+\n"; }
Output:
C:\>test.pl 1, 2244604, 2, 0 4, 2244604, 5, 0 7, 2244604, 8, 0 C:\>test.pl 1, 2244628, 2, 0 4, 2244628, 5, 0 7, 2244628, 8, 0 C:\>test.pl 1, 2244628, 2, 0 4, 2244628, 5, 0 7, 2244628, 8, 0 C:\>test.pl 1, 2244628, 2, 0 4, 2244628, 5, 0 7, 2244628, 8, 0
Update: also tested on Red Hat Linux release 7.3 (OS 2.4.18-3):
This is perl, v5.6.1 built for i386-linux [/d]$ perl test.pl 1, 56, 2, 0 4, 56, 5, 0 7, 56, 8, 0 [/d]$ perl test.pl 1, 56, 2, 0 4, 56, 5, 0 7, 56, 8, 0
|
|---|