Skip to content

Instantly share code, notes, and snippets.

Kazuki Oshita (cory) cory-ko

Block or report user

Report or block cory-ko

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@cory-ko
cory-ko / glinks.java
Created Feb 11, 2013
Sample script to access G-Links (http://link.g-language.org/) via Java.
View glinks.java
@cory-ko
cory-ko / glinks.rb
Created Feb 11, 2013
Sample script to access G-Links (http://link.g-language.org/) via Ruby.
View glinks.rb
@cory-ko
cory-ko / glinks.py
Created Feb 11, 2013
Sample script to access G-Links (http://link.g-language.org/) via Python.
View glinks.py
@cory-ko
cory-ko / glinks.pl
Last active Dec 12, 2015
Sample script to submit sequence data to G-Links (http://link.g-language.org/) with feeling lucky (-direct = 1).
View glinks.pl
View range_operator.pl
#!/usr/bin/env perl
use strict;
use warnings;
while (<DATA>) {
chomp;
print "$_\n" if ( /^_START_$/ .. /^_END_$/ );
}
__END__
@cory-ko
cory-ko / range_operator.pl
Created Dec 11, 2012
Sample script for range operator in "if" section.
View range_operator.pl
#!/usr/bin/env perl
use strict;
use warnings;
while (<DATA>) {
chomp;
print "$_\n" if ( /^_START_$/ .. /^_END_$/ );
}
__END__
@cory-ko
cory-ko / sfc-room.pl
Created Nov 12, 2012
Sample script to use SFC::Room
View sfc-room.pl
#!/usr/bin/env perl
use strict;
use warnings;
use SFC::Room;
my $rooms = SFC::Room->new();
my $delta = $rooms->parse('ΔS113');
print $delta->string,"\n"; # デルタS113
You can’t perform that action at this time.