meso-cacase

#!/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と統合

meso-cacase

#!/usr/bin/perl

# usage: zcat completeXXX.rna.gbff.gz ./grep_gbff.pl 'Homo sapiens'

use warnings ;
use strict ;

my $keyword = $ARGV[0] ;

$/ = "\n//\n" ;

meso-cacase

#!/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

#!/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

#!/usr/bin/perl

# ファイルまたは標準入力からコマンドリストを読み込み並列実行する
#
# Usage:  ./parallel.pl  [-MAX_PROC]  commandlist.txt
#
# MAX_PROC は並列実行するコマンドの最大数（数値）
# 省略時は 1、つまり並列化せず1行ずつ順番に実行
# コマンドリストは1行に1コマンドを記載
#

meso-cacase

#!/usr/bin/perl

use warnings ;
use strict ;
use LWP::Simple ;

while (<>){
	chomp ;

	# ProbeIDを標準入力から取得

meso-cacase

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

meso-cacase

ACCGATACGCG
ACCGTTCGTCG
ACGACCGTTCG
ACGATCGTCGG
ACGCGCGATAT
ACGGTACGTCG
AGCGTCGTACG
ATATCGCGCGG
ATATCGCGCGT
ATCGTCGACGA

meso-cacase

#!/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で認証した場合は自分自身のツイートを取得する

meso-cacase

#!/usr/bin/perl

# Twitterで自分のタイムラインを取得し、タブ区切りテキスト形式で出力する
#
# Usage:  ./home_timeline.pl  [-s  SINCE_ID]  [-m MAX_ID]
#
# Options:
# -s SINCE_ID, --since=SINCE_ID
#     SINCE_ID（数値）よりステータスIDが大きい（つまり新しい）ツイートを取得する
#     タイムライン更新時などはこの値を指定すると所得済のツイートを転送しなくてすむ