Help for this page

Select Code to Download

Select or download this

tie %chat, "Tie::IxHash";
# other stuff
tie %chat, 'SDBM_File', $chat, O_CREAT | O_RDWR, 0644;

Select or download this

#!/usr/bin/perl -w
use Tie::IxHash;
...
}

print tied(%chat), "\n";