diff snpEff/scripts/queryBiomart.pl @ 0:481a95ca5339

Migrated tool version 0.9 from old tool shed archive to new tool shed repository

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/snpEff/scripts/queryBiomart.pl	Tue Jun 07 17:08:59 2011 -0400
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+#------------------------------------------------------------------------------
+# An example script demonstrating the use of BioMart webservice
+#------------------------------------------------------------------------------
+
+use strict;
+use LWP::UserAgent;
+
+open (FH,$ARGV[0]) || die ("\nUsage: queryBiomart.pl Query.xml\n\n");
+my $xml;
+while (<FH>){ $xml .= $_; }
+close(FH);
+
+my $path="http://www.biomart.org/biomart/martservice?";
+my $request = HTTP::Request->new("POST",$path,HTTP::Headers->new(),'query='.$xml."\n");
+my $ua = LWP::UserAgent->new;
+
+my $response;
+$ua->request($request, 
+	     sub {   
+		 my($data, $response) = @_;
+		 if ($response->is_success) { print "$data"; }
+		 else { warn ("Problems with the web server: ".$response->status_line); }
+	     } ,1000);