soh-i

#!/usr/bin/env perl

use strict;
use warnings;

use JSON::XS;
use LWP::Simple;

if ( scalar @ARGV != 1 ) {
    die"Usage: perl $0 <twitter_search_result.json>";

soh-i

#!/usr/bin/env perl

use strict;
use warnings;

use 5.16.0;

##
## This script makes figures that phosphorylation sites given specify output data by R batch mode.
## 

soh-i

#!/usr/bin/evn perl                                                                                                     

use strict;
use warnings;
use 5.17.0;

use LWP::UserAgent;
use LWP::Simple;
use JSON qw/decode_json/;

soh-i

#!/usr/bin/env perl

use strict;
use warnings;
use 5.17.0;

use LWP::UserAgent;
use LWP::Simple;
use JSON qw/decode_json/;

soh-i

#include <iostream>
#include <string>

#include <seqan/sequence.h>

using namespace std;

int main () {
	seqan::String<char> text = "this is test using by seqan";
	seqan::String<char> pattern = "test";

soh-i

#include <iostream>
#include <string>

#include <seqan/sequence.h>
#include <seqan/align.h>

using namespace seqan;

int main ()
{

soh-i

#!/usr/bin/env perl

use strict;
use warnings;

use DBIx::Simple;

my $db = DBIx::Simple->connect('dbi:SQLite:dbname=./Kobito.db') || die DBIx::Simple->error;

my $result = $db->query('select ZCREATED_AT, ZTITLE, ZRAW_BODY, ZBODY from ZITEM') || die $db->error;

soh-i

#!/usr/bin/env perl                                                                                                                                                           
use strict;
use warnings;

my @list = ( 3, '_hoge', 1, 'Y', 'X', 2, 23, 64, 123, 90, 11, 12, 21, 23);

my @sorted = sort chromosome_sort @list;

print join(", ", @sorted)."\n";

soh-i

;; cperl-mode
(defalias 'perl-mode 'cperl-mode)
(setq auto-mode-alist (cons '("\\.t$" . cperl-mode) auto-mode-alist))
(add-hook 'cperl-mode-hook
          '(lambda ()
             (cperl-set-style "PerlStyle")))
(setq cperl-highlight-variables-indiscriminately t)
(add-hook 'cperl-mode-hook
          '(lambda ()
             (font-lock-mode 1)

soh-i

sub sort_region {
    
    my $start = shift;
    my $end   = shift;
    
    if ( $start < $end ) {
        my $join = "$start..$end";
        return scalar $join;
    }