hi, im having trouble printing out the key of this record hash: i wan the result to print:
THIS_HERE
im sure its trivial, but i cant figure it :)
martin
{
'THIS_HERE' => {
'ISH' => [
'3'
],
'ISHpix' => [],
'bg' => [
''
],
'gelpix' => [],
'base' => [
'T'
],
'norm' => [
''
],
'gel' => [
'456'
],
'drug' => [
''
],
'primer' => [
'2'
],
'mt' => [
'foo'
],
'organism' => [
'Human'
],
'band' => [
'1'
],
'name' => [
'abc'
],
'date' => [
'123'
],
'cell' => [
''
],
'quant' => [
''
],
'tissue' => [
'Testis'
]
}
}
i read in the hash using this:
{ #block to control scope
local ($/) = undef; #make this change local so as not to screw up anything else
open SOURCE, $hash_file or die "Can't open file: $!";
$hash_ref = eval <SOURCE>;
die $@ if $@;
close SOURCE;
}
so printing should be something ala:
print $hash_ref -> { <?> };
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
