andrawaag

#!/usr/bin/perl

use LWP::Simple;
use URI::Escape;
my $sparql = "SELECT DISTINCT ?wpIdentifier ?elementneedsattention ?elementLabel
WHERE {
    ?pathway dc:title ?title .
    ?elementneedsattention a gpml:requiresCurationAttention .
    ?elementneedsattention dcterms:isPartOf ?pathway .
    ?elementneedsattention rdfs:label ?elementLabel . 

andrawaag

#!/usr/bin/perl

use LWP::Simple;
use URI::Escape;
my $sparql = "SELECT DISTINCT ?wpIdentifier ?pathway ?page
WHERE {
    ?pathway dc:title ?title .
    ?pathway wp:organism ?organism .
    ?pathway foaf:page ?page .
    ?pathway dc:identifier ?wpIdentifier .

andrawaag

SELECT DISTINCT ?Country count(?EducationalInstitute) as ?noInstitutes 
WHERE {
       ?Country <http://dbpedia.org/property/gdpNominal> ?Nominalgdp .
      ?Country <http://dbpedia.org/property/gdpNominalYear> ?gdpNominalYear . 
      ?Country <http://dbpedia.org/property/gdpPppPerCapita> ?gdpPppPerCapita .
      ?Country <http://dbpedia.org/property/gdpPpp> ?gdpPpp .
      ?EducationalInstitute   <http://dbpedia.org/property/country> ?Country .
      ?EducationalInstitute <http://www.w3.org/1999/02/22-rdf-syntax-ns#type>  <http://schema.org/EducationalOrganization> .} ORDER BY ?noInstitutes

andrawaag

CONSTRUCT {?externalEnsemblId <skos:relatedMatch> ?dbPrimaryAcc .
     ?dbPrimaryAcc <DC.source> ?dbName .} 
WHERE { 
     ?xref a <xref> . 
     ?xref <hasDbprimary_acc> ?dbPrimaryAcc . 
     ?xref <hasDisplayLabel> ?dbDisplayLabel . 
     ?xref <hasExternalDbId> ?externalDbId .  
     ?xref <hasInternalEnsemblId> ?internalEnsemblId . 
     ?externalDbId <hasDbName> ?dbName . 
     ?internalEnsemblId <hasExternalEnsemblId> ?externalEnsemblId .

andrawaag

open DISEASEGENEFILE, "N:/FHML_BIGCAT/Bioinformatics/Programming/mart.txt";
open EXPRESSIONFILE,    "N:/FHML_BIGCAT/Bioinformatics/Programming/GeneExpression.txt";;

%disease = {};
while($line = <DISEASEGENEFILE>){
  @fields = split(/\t/, $line);
	if ($fields[2] ne ''){
	    $disease{$fields[0]} = $fields[2];
	} 
}

andrawaag

open EXPRESSIONFILE,    "N:/FHML_BIGCAT/Bioinformatics/Programming/GeneExpression.txt";
$counter = 0;
while ($line = <FILE>){
   @fields = split('\t', $line);
   if ($fields[2]<0){
    $counter = $counter + 1;
}
   
}
print $counter;

andrawaag

open EXPRESSIONFILE,    "N:/FHML_BIGCAT/Bioinformatics/Programming/GeneExpression.txt";
while ($line = <FILE>){
   @fields = split('\t', $line);
   if ($fields[2]<0){
    print $line;
}
   
}

andrawaag

open EXPRESSIONFILE, "N:/FHML_BIGCAT/Bioinformatics/Programming/GeneExpression.txt";
while ($line = <EXPRESSIONFILE>){
  @fields = split('\t', $line);
   print $fields[9]."\n";
} 

andrawaag

%fruitcolor = ("apple", "red", "banana", "yellow", "orange", "orange", "kiwi", "brown");
while (($key, $value) = each(%fruitcolor)){
     print "A ". $key." is ".$value."\n";
}

andrawaag

%fruitcolor = ("apple", "red", "banana", "yellow", "orange", "orange", "kiwi", "brown");
print $fruitcolor{"apple"}."\n";
print $fruitcolor{"banana"}."\n";
print $fruitcolor{"orange"}."\n";
print $fruitcolor{"kiwi"}."\n";