Help for this page

Select Code to Download


  1. or download this
    my %temp_hash;
    while (my $ref = $sth->fetchrow_hashref) {
    ...
         my $title = $ref->{title};
        push @{$temp_hash{$season}}, { title => $title };
    }
    
  2. or download this
    my $appearances = [ map { +{ season => $_ , eps => $temp_hash{$_} } } 
                           sort keys %temp_hash ];