If you leave out the referencing in line 2, you are fine (alternatively, do a double dereferencing in the sub).

Hope this helps,

jeroen
"We are not alone"(FZ)
Update: Forgot some ObDocLinks: perlref, perlreftut,perldsc and perllol
Use CODE tags around your code:
<CODE>
#my perlcode may contain any character like [] </CODE>
Read Writeup Formatting Tips

OK, I'm still not sure what's going on.
I ran

foreach my $key (sort keys %clocks){
  print_clock_assertions({ $clocks{$key} });       #line 32
}
sub print_clock_assertions {
  my($hashref)=$_[0];
  print STDOUT "ref 1 :$hashref->{'speed'}\n";     #line 44
  }
[download]

and got loads of


Odd number of elements in hash assignment at parse_timing_info.pl line
+ 32.
Use of uninitialized value in concatenation (.) at parse_timing_info.p
+l line 44.
ref 1 :
[download]

does $hashref contain the has reference when I do this?

PS Why how do stop the square bracket being removed?

Edit: chipmunk 2001-04-19

You have to remove the {} in line 32.

PS: Put your code in <code>tags.

Lets first deal with the main code. You wrote:

foreach my $key (sort keys %clocks){
  print_clock_assertions(\{ $clocks{'$key'} });
}
[download]

By putting single quotes around $key, you are now passing literally the text $key to the subroutine so you need to remove those single quotes as in:

foreach my $key (sort keys %clocks){
  print_clock_assertions(\{ $clocks{$key} });
}
[download]

Next, as I understood you you had has that contained references to hashes that contained clock information. In which the act of writting $clocks{$key} would return a reference to a clock hash, so you don't need to enclose the that in \{ }. So the next revision is:

foreach my $key (sort keys %clocks){
  print_clock_assertions($clocks{$key});
}
[download]

Your subroutine looks fine, though I always have problems discerning when perl will recognize something as an expression in double quotes or not. So if you do have problems change:

print STDOUT "ref 1 :$hashref->{'speed'}\n";
[download]

To:

print STDOUT "ref 1 :", $hashref->{'speed'}, "\n";
[download]

for my $key (sort keys %clocks) {
  for my $subkey (sort keys %{$clocks{$key}}) {
    print "clocks/$key/$subkey = $clocks{$key}{$subkey}\n";
  }
}
[download]