comment on

Whoa, 1 and undef are on par , optimization?

#!/usr/bin/perl -- 

use Devel::Size qw(size total_size);
use strict;
use warnings;

{
my %h;
    
    for ( 1 .. 20_000 ){
        $h{1}{$_}=1;
        $h{'$_'}{$_}=$_;
        $h{'undef'}{$_}=undef;
        $h{'!undef'}{$_}= !undef;
        $h{'!!undef'}{$_}= !!undef;
        $h{'!!!undef'}{$_}= !!!undef;
        $h{'sv_yes'}{$_}= !0;
        $h{'sv_no'}{$_}= !1;
    }

    printf "%10s %10s %10s\n", 'value', 'size', 'total_size'; 
    printf "%10s %10d %10d\n",$_, size($h{$_}),total_size($h{$_}) for 
+sort keys %h;
}
[download]

ActivePerl Build 813, perl, v5.8.7 built for MSWin32-x86-multi-thread

     value       size total_size
  !!!undef     660026    1420026
   !!undef     660026    1400026
    !undef     660026    1420026
        $_     660026    1328920
         1     660026     980026
     sv_no     660026    1400026
    sv_yes     660026    1420026
     undef     660026     900026
[download]

strawberry-perl-5.10.0.1-1.exe , v5.10.0 built for MSWin32-x86-multi-thread

     value       size total_size
  !!!undef     660014    1540014
   !!undef     660014    1540014
    !undef     660014    1540014
        $_     660014    1616018
         1     660014     980014
     sv_no     660014    1540014
    sv_yes     660014    1540014
     undef     660014     980014
[download]

In reply to Re^3: Idiom: hashes as sets by Anonymous Monk
in thread Idiom: hashes as sets by vrk

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


more useful options
	PerlMonks