Re^7: memory use array vs ref to array

It looks like you've got your "after do" and "after no do" labels the wrong wayaround; but I agree, it looks like there is no difference on your version of Perl on *nix.

I was running under my default perl5.10; so I re-ran the tests under the latest version I have installed, 5.22 and I see the same results:

C:\test>\Perl22\bin\p1.pl
[0]{} Perl> print mem;;
9,404 K

[]{} Perl> open I, '<', 'test.dat'; my $s; do{ local $/; $s = <I> }; p
+rint mem;;
997,760 K

[]{} Perl> Terminating on signal SIGINT(2)

C:\test>\Perl22\bin\p1.pl
[0]{} Perl> print mem;;
9,392 K

[]{} Perl> open I, '<', 'test.dat'; my $s = do{ local $/; <I> }; print
+ mem;;
1,986,016 K

[]{} Perl> Terminating on signal SIGINT(2)
[download]

So maybe it's 'a windows thing'.

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^7: memory use array vs ref to array Download Code