This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{coinFullName: "01Coin", CoinShortName: "ZOC", Algo: "NeoScrypt", BlockReward: 13, BlockTime: 150, BlockExplorer: "http://01coin.lchain.cc/ext/summary"} | |
{CoinFullName: "Absolute Coin", CoinShortName: "ABS", Algo: "Lyra2REv2", BlockReward: 6, BlockTime: 90, BlockExplorer: "http://www.explorer.absolute-coin.com/ext/summary"} | |
{coinFullName: "Agena", CoinShortName: "AGN", Algo: "NeoScrypt", BlockReward: 6, BlockTime: 90, BlockExplorer: "http://explorer.agenaproject.com/ext/summary"} | |
{CoinFullName: "Akroma", CoinShortName: "AKA", Algo: "Ethereum", BlockReward: 7, BlockTime: 10, BlockExplorer: "minerpool"} | |
{coinFullName: "ArchimedCoin", CoinShortName: "ARHM", Algo: "NeoScrypt", BlockReward: 3, BlockTime: 300, BlockExplorer: "http://explorer.archimedcoin.com/ext/summary"} | |
{CoinFullName: "Argo", CoinShortName: "ARGO", Algo: "Skein", BlockReward: 47.168, BlockTime: 60, BlockExplorer: "http://explorer.argocash.com/ext/summary"} | |
{CoinFullName: "Banq", CoinShortName: "BANQ", Algo: "NeoScrypt", BlockReward: 3, BlockTime: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use Bio::SeqIO; | |
my $seqio_object = Bio::SeqIO->new(-file => ">./CGYHR025.gbk"); | |
my $seq_object = $seqio_object->next_seq; | |
print $seq_object; | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
if ($yn[0] eq "Yes") | |
{ | |
my $wanted1 = sub { | |
if ($File::Find::name =~ m/\.gbk/) | |
{ | |
push(@path_gb,$File::Find::name); | |
push(@path,$File::Find::dir); | |
} }; | |
find($wanted1,$dir); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Tk::Error: Can't call method "accession_number" on an undefined value at script.pl line 585. | |
main::__ANON__ at script.pl line 585 | |
File::Find::_find_dir at /BioInfo/Apps/perlbrew/perls/perl-5.12.3/lib/5.12.3/File/Find.pm line 854 | |
File::Find::_find_opt at /BioInfo/Apps/perlbrew/perls/perl-5.12.3/lib/5.12.3/File/Find.pm line 722 | |
File::Find::find at /BioInfo/Apps/perlbrew/perls/perl-5.12.3/lib/5.12.3/File/Find.pm line 1297 | |
main::__ANON__ at script.pl line 608 | |
Tk callback for .toplevel.frame.button | |
Tk::__ANON__ at /BioInfo/Apps/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/darwin-2level/Tk.pm line 250 | |
Tk::Button::butUp at /BioInfo/Apps/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/darwin-2level/Tk/Button.pm line 175 | |
<ButtonRelease-1> |