Skip to content

Instantly share code, notes, and snippets.

View andreitudor's full-sized avatar

Andrei Tudor andreitudor

View GitHub Profile
@andreitudor
andreitudor / config.json
Last active April 21, 2018 13:35
Awsome Miner Coin Updater config
{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:
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;
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);
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>