Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Re: A (memory) poor man's hash

by BrowserUk (Pope)
on Nov 22, 2003 at 08:00 UTC ( #309128=note: print w/replies, xml ) Need Help??

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
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://309128]
help
Chatterbox?
[BarApp]: I can not use modules. I gain temporary access and still can not use modules.
[Cosmic37]: ta erix - this szabo geezer is pretty cool methinks and he writes about undef but I cannot see instructions for redefining the record separator after having undefined it
[Corion]: $/ = "wahtever";
[Corion]: (it's a magic variable)
[karlgoethebier]: BarApp: whoami
[Cosmic37]: ok fankyou - I was wondering about that but thought there might be a redefine command or something; peachy
[Lotus1]: Cosmic37 if you undef $/ in a local context to a block it won't affect the global version after the block finishes
[Lotus1]: or you can just do local $/ in a block

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2017-06-29 16:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (672 votes). Check out past polls.