Skip to content

Instantly share code, notes, and snippets.

@soh-i
Created June 30, 2012 11:57
Show Gist options
  • Save soh-i/3023536 to your computer and use it in GitHub Desktop.
Save soh-i/3023536 to your computer and use it in GitHub Desktop.
get UniProt ID from kegg orthology web page.
#!/usr/bin/env perl -w
use strict;
my $fh;
open $fh, '<', $ARGV[0];
while (my $line = <$fh> ) {
if ( $line =~ /www\.uniprot\.org\/uniprot\/(\w+)/){
print $1, "\n";
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment