Re: Re: How does ~~ force string interpolation of code into scalar context?

In fact, it works in exactly the same way against integer and string.

Does not. Try this:

$\ = "\n";
print ~3;
print ~"3";
[download]

Result:

4294967292
Ė

Now, if it worked exactly the same way for integers and for strings, how come the intermediate result is different?

I stand by my point: even though they work differently (as shown here), the net result of the double not is exactly the same for both: the original value. That means that an integer produces the original integer, and that a string produces the original string.

Perhaps you mean something other than I do?

Comment on Re: Re: How does ~~ force string interpolation of code into scalar context? Download Code

Replies are listed 'Best First'.
Re: Re: Re: How does ~~ force string interpolation of code into scalar context? by sauoq (Abbot) on Oct 26, 2003 at 05:40 UTC
Perhaps you mean something other than I do? If I had to guess — and I do — I think he does mean something different than you do. I understand the points both of you are trying to make. Your two examples "work differently" only because you are, in reality, providing different data and interpretting the answer differently. It'll come as no surprise to you that they work the same if you make other things equal... `print ~"3"; print pack("c",~ord("3")); # Or... print ~3 print unpack("L", ~"\x00\x00\x00\x03");` [download] and I think that's pg's point. Your point, however, is really that Perl does treat strings and integers differently. And it's a good point. Another example that clears things up a bit: `$x = "3"; print ~$x; # This is... $x = 3; print ~$x; # Not the same as this... $x .= ""; print ~$x; # But, after stringification, it is.` [download] So, you're both right. :-) -sauoq "My two cents aren't worth a dime.";	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: Re: How does ~~ force string interpolation of code into scalar context?
by sauoq (Abbot) on Oct 26, 2003 at 05:40 UTC

Perhaps you mean something other than I do?

If I had to guess — and I do — I think he does mean something different than you do. I understand the points both of you are trying to make.

Your two examples "work differently" only because you are, in reality, providing different data and interpretting the answer differently. It'll come as no surprise to you that they work the same if you make other things equal...

print ~"3"; 
print pack("c",~ord("3"));

# Or...

print ~3
print unpack("L", ~"\x00\x00\x00\x03");
[download]

Your point, however, is really that Perl does treat strings and integers differently. And it's a good point. Another example that clears things up a bit:

$x = "3"; print ~$x; # This is...
$x = 3;   print ~$x; # Not the same as this... 
$x .= ""; print ~$x; # But, after stringification, it is.
[download]

-sauoq
"My two cents aren't worth a dime.";

[reply]
[d/l]
[select]