[$ syntax EmbperlBlocks $] [- $escmode = 0 -] [# DB connection #] [- require DBI; require DBD::mysql; $dbh = DBI->connect("DBI:mysql:host=localhost;port=3306;database=hedgogram", "hedgogram","hedgogram"); $pubs = $dbh->prepare( "select pub.pub_id, pub.title, pub.pubmed_url, experiment.experiment_id, experiment.excerpt, experiment.diseases, experiment.animals, experiment.reagents from pub left join experiment on experiment.pub_id = pub.pub_id" ); $pubs->execute(); -] Hedgehog Signaling Pathway: Literature
Hedgehog Signaling Pathway Database
 
Literature

[# [- $p = $pubs->fetchrow_hashref() -] [$ foreach $k (keys %{$p}) $] key: [+ $k +]
[$ endforeach $] #] [$ while( $p = $pubs->fetchrow_hashref() ) $] [$ endwhile $]
TitleDetailsDiseaseModel OrganismReagents
[+ $p->{'title'} +] Details [+ $p->{'diseases'} +]  [+ $p->{'animals'} +]  [+ $p->{'reagents'} +]