On Wed, Nov 01, 2000 at 11:40:35AM +0000, Richard Clamp wrote:
> That's 1.5, maybe 2 lightning talks. Or maybe a slightly longer
> session on Tieing for fun and profit.
Yeah - I had great fun last night when I realised that using a tied
scalar as a hash key does some very interesting things ...
#!/usr/bin/perl -w
use strict;
package Quantum::Heisenberg;
sub TIESCALAR { bless [], $_[0] }
sub FETCH { my $self = shift; $self->[int rand @$self]; }
sub STORE { push @{$_[0]}, $_[1] }
sub DESTROY {}
package main;
tie my $val, 'Quantum::Heisenberg';
$val = $_ for (1 .. 10);
my %count;
$count{$val}++ for (1 .. 1000);
for my $i (sort {$count{$b} <=> $count{$a}} keys %count) {
print "$i: $count{$i}\n";
}
Tony
--
-----------------------------------------------------------------------------
Tony Bowden | Belfast, NI | [EMAIL PROTECTED] | www.tmtm.com | www.blackstar.co.uk
a friend in need's a friend indeed, a friend who'll tease is better
-----------------------------------------------------------------------------
