Help for this page

Select Code to Download


  1. or download this
    $hash{ $_ } = undef for 1 .. 1_000_000;
  2. or download this
    undef $foo{ $_ } for 1 .. 1_000_000;
  3. or download this
    use DB_File;

...
1069482523
1069482799  # 276 secs (4.6 mins)
 1000000
  4. or download this
    print time; 
$hash{ substr $_, 0, 4 } .= $/. $_ for 1 .. 1_000_000; $hash{$_} .= $/
+ for keys %hash; 
...
1069484612
1069484656 # 44 secs.
 1000000