pseudohash script

[london@pixelmagic.com]

and heres a script to run it...
#!/bin/perl -w

use strict;

use pseudohash;

my $p = new pseudohash;

$p->assign(
	'computer'=>'Sun',
	'os'=>'Solaris',
	'memory'=>'1 gig',
	'speed'=>'500 mhz',
	);

my $memory = $p->getvalue('memory');

print "$memory \n";


$p->delete('memory');

my @keylist = $p->keys;

print "keylist is " . join(" ", @keylist) . "\n";



my @valuelist = $p->values;

print "valuelist is " . join(" ", @valuelist) . "\n";

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---