Skip to content

Instantly share code, notes, and snippets.

Yuki Naito meso-cacase

Block or report user

Report or block meso-cacase

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
View difffcmd.pl
#!/usr/bin/perl
# テキスト比較ツール difff《デュフフ》【コマンドライン版】
#
# 2つのテキストファイルを読み込み、差分をハイライト表示したHTMLを出力する
# diffコマンドを用いて文字ごと(英単語は単語ごと)に比較を行う
#
# 2012-10-22 Yuki Naito (@meso_cacase)
# 2013-03-07 Yuki Naito (@meso_cacase) 日本語処理をPerl5.8/UTF-8に変更
# 2013-03-12 Yuki Naito (@meso_cacase) ver.6 トップページを本CGIと統合
View grep_gbff.pl
#!/usr/bin/perl
# usage: zcat completeXXX.rna.gbff.gz ./grep_gbff.pl 'Homo sapiens'
use warnings ;
use strict ;
my $keyword = $ARGV[0] ;
$/ = "\n//\n" ;
View siDirect2crawl.pl
#!/usr/bin/perl
# README
#
# This script uses WWW::Mechanize to get siRNAs from siDirect 2.0 web server (http://siDirect2.RNAi.jp/).
# WWW::Mechanize module is available at CPAN.
#
# Usage:
# ./siDirect2crawl.pl sequence.txt
#
@meso-cacase
meso-cacase / get_direct_messages.pl
Last active Sep 26, 2015
Twitterでダイレクトメッセージを取得する
View get_direct_messages.pl
#!/usr/bin/perl
# Twitterで自分宛または送信したダイレクトメッセージを取得し、タブ区切りテキスト形式で出力する
#
# Usage:
# ./get_direct_messages.pl [-s SINCE_ID] [-m MAX_ID]
# 自分宛のダイレクトメッセージを取得する
# ./get_direct_messages.pl -t [-s SINCE_ID] [-m MAX_ID]
# 自分が送信したダイレクトメッセージを取得する
#
@meso-cacase
meso-cacase / get_followers.pl
Last active Sep 27, 2015
Twitterで特定ユーザのフォロワー一覧を取得する
View get_followers.pl
#!/usr/bin/perl
# Twitterで特定ユーザのフォロワー一覧を取得し、タブ区切りテキスト形式で出力する
#
# Usage: ./get_followers.pl [USER]
#
# USER(screen name)で指定したユーザのフォロワー一覧を取得する
# 省略時は自分自身のフォロワー一覧を取得する
#
# 必要なモジュール:
@meso-cacase
meso-cacase / parallel.pl
Created Nov 8, 2012
ファイルまたは標準入力からコマンドリストを読み込み並列実行
View parallel.pl
#!/usr/bin/perl
# ファイルまたは標準入力からコマンドリストを読み込み並列実行する
#
# Usage: ./parallel.pl [-MAX_PROC] commandlist.txt
#
# MAX_PROC は並列実行するコマンドの最大数(数値)
# 省略時は 1、つまり並列化せず1行ずつ順番に実行
# コマンドリストは1行に1コマンドを記載
#
@meso-cacase
meso-cacase / probe2gene_ggrna.pl
Created Feb 22, 2016
GGRNAをつかいプローブIDと遺伝子の対応表を作成
View probe2gene_ggrna.pl
#!/usr/bin/perl
use warnings ;
use strict ;
use LWP::Simple ;
while (<>){
chomp ;
# ProbeIDを標準入力から取得
View U133P2GeneID.txt
1007_s_at 780
117_at 3310
1255_g_at 2978
1294_at 7318
1320_at 11099
1405_i_at 6352
1431_at 1571
1438_at 2049
1487_at 2101
1552256_a_at 949
View 11mers_not_used_in_hg38.txt
ACCGATACGCG
ACCGTTCGTCG
ACGACCGTTCG
ACGATCGTCGG
ACGCGCGATAT
ACGGTACGTCG
AGCGTCGTACG
ATATCGCGCGG
ATATCGCGCGT
ATCGTCGACGA
@meso-cacase
meso-cacase / user_timeline.pl
Last active Mar 4, 2017
Twitterで指定ユーザのツイートを取得する
View user_timeline.pl
#!/usr/bin/perl
# Twitterで特定ユーザのツイートを取得し、タブ区切りテキスト形式で出力する
#
# Usage: ./user_timeline.pl [-u USER_ID] [-s SINCE_ID] [-m MAX_ID]
#
# Options:
# -u USER_ID, --user=USER_ID
# USER_ID(数値またはscreen name)で指定したユーザのツイートを取得する
# 省略時は、OAuthで認証した場合は自分自身のツイートを取得する
You can’t perform that action at this time.