Erm. That doesn't help. The following program produces exactly the same errors?

my $str = 'the quick brown fox';
while( $str =~ m/(.)/g) {
    print "Matched '$1' \@ pos:", pos();
}
[download]

I'm not sure why you thought that use a variable rather than a constant would change anything as I am not attempting to modify the data in anyway, I'm just printing the char captured (successfully) and the position at which it was found (unsuccessfully).

Basically, the pos() function is never returning anything but undef, despite the fact that the m//g is obviously remembering the last position matched as it print each successive char on subsequent iterations.

The documentation for pos explains this behaviour - Where a variable is not specified as the first argument to the pos function, the match offset is attempted against $_.

In the example code that you provide, you are matching against the variable $str while trying to find the match offset against the default variable $_, which naturally returns an undefined error. If you update the code to either match against the variable $_ or return the match offset against the variable $str, your code will execute as expected.

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000000111111010"))'

Ah so! Grasshopper. Thanks++

No matter how many times I read

Returns the offset of where the last m//g search left off for the variable in question.

I never took in the significance of those last 5 words.

Makes sense (now:), if was just the last position matched by the last m//g which was how I was reading it, there would be no need for a function; a $var would do.

D'oh!

---

Examine what is said, not who speaks.