Skip to content

Instantly share code, notes, and snippets.

@ruz

ruz/gist:144606

Forked from anonymous/gist:143493
Created July 10, 2009 16:37
Show Gist options
  • Save ruz/144606 to your computer and use it in GitHub Desktop.
Save ruz/144606 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.pl
my $tmp = $heads{$hc}{subheads};
foreach my $sc (
sort { $tmp->{$a}{sort} <=> $tmp->{$b}{sort} } keys %$tmp
) {
next unless scalar @{$tmp->{$sc}{data}};
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment