逆に助かった。さーて、Rubyやるかな。

またRubyに戻りたくなってきてしまった。どうするか？

スタティック変数とスタティックメソッドを使用。 job.pm #!"C:\perl\bin\perl.exe" package Job; $sum = 0; sub new { my $class = shift; my $self = { 'start' => 0, 'end' => 0, 'rest' => 0, 'total' => 0, }; return bless $self, $class; } sub set {…

↓参考 Perlクイックリファレンス - SMART 開発者のためのウェブマガジン job.pm #!"C:\perl\bin\perl.exe" package Job; sub new { my $class = shift; my $self = { 'start' => 0, 'end' => 0, 'rest' => 0, 'total' => 0, }; return bless $self, $class; …

リファレンスが最初よくわからなかった。今でも時々迷うが。(今リファレンス使ってるんだっけ、実体使ってるんだっけ？とか)常にリファレンスを使えば間違いないが、『->』だらけになってしまうのが困りもの。その点最初からリファレンスだけになっているPyt…

ようやく第一歩ですか。 旧式のPerl-CGIで、クラスを使えない環境だったのが功を奏した。 サンプル my $proc = &init_closure("Yoshiko san"); $proc->("Hello"); $proc->("Good-by"); sub init_closure { my $name = shift; my $closure = sub { my $greeti…

# スカラー $scalar = "aaa"; $ref_scalar = \$scalar; $scalar = $$ref_scalar; print "$scalar\n"; # 配列 @array = ("aaa","bb","ccc"); $num = @array; $num = $#array + 1; for($i = 0; $i < $num; $i++) { print "$array[$i]\n"; } foreach $i (0..$#a…

バイオインフォマティクスでは主流だからです。でもこれは内緒です。ばれると人が殺到するから。って思いっきり書いてどうする？

Perl案件ということだが、かなりあやしい。内容は旧世代のCGIらしいが、最初のステップとしてはちょうど良いかも知れない。

チャーーンス(笑)。Perlの面白さをみんなが気付かないうちに思いっきりやっとこう。Perl on Railsはやばいが、おそらく国内ではさほど注目されないだろう(？)。

BBC、「Perl on Rails」開発 - ITmedia NEWS 今日は4月1日じゃないよね。 Perl大好きオヤジの俺には朗報。 ただし、一般公開するかどうかは不明らしい。

仕事でPerlをやりたいとか言ったら変な目で見られた(笑)。まあ、Ruby流行の今、普通の人から見たら時代に逆行していると思われるかも知れない。しかし、世界では本当に先進的(実験的)なプログラムはまだまだPerlが多い。また、プロバイダで使える環境はPerl…

何故かわからない。おそらく、RoRはやっていくうちにやることが収束してしまうからかも知れない。やはりそれがフレームワークというものの限界なのかも知れない。手法が限定されるのはいいことだが、それを破壊しなければならない状況になるとなんとなく躊躇…

PHPがあるのにと言われるかもしれない。JavaやPythonに比べたらオブジェクト指向プログラムがやりにくい、Rubyに比べて古臭さを感じるなど。しかしやりようによってはオブジェクト指向プログラムもちゃんとできるし、柔軟すぎるため、読みにくくなりがちとい…

実際に使ってみると、楽なのは最初だけで、開発の後半はむしろ力仕事が多くなる。少し前にPerlの仕事があったが、Perlでできることは非常に広範囲で、ヒアドキュメントや、CSS(style属性)などを上手く使って、シンプルなソースで、綺麗な画面を生成していた…

なんとなく気になったので、 Perl-CGIからのJSON形式のデータをAjaxで受信する - Throw or Die and ChouChou html(19行目) eval("var data = " + req.responseText);を var data = eval(req.responseText);に修正。 json.plを以下のように修正。 #!"C:\perl\…

昨日のHTML AjaxでJSONを呼ぶ - Throw or Die and ChouChou の7行目 var url = 'json.txt';を var url = '/json.pl';に、修正し、以下をcgi-bin以下に置く。 json.pl #!"C:\perl\bin\perl.exe" print "Content-Type: text/html\n\n"; print <

昔はJavaマンセーだったので、記号とかが多いPerlは目がチカチカしてなんか読みにくいし、 汚いなあと思うことが多かった。 しかし最近では、正規表現や、PHPやRubyなども使ったりしているうちに抵抗が無くなって来た。 あと、それを忘れさせるくらいの生産…

↓ここのぱくり。 http://www.geocities.co.jp/SiliconValley-PaloAlto/2130/ fasta.plの中身 use Bio::Perl; $test_seq = get_sequence('swissprot', "roa1_human"); write_sequence(">roa1_human.fasta",'fasta',$test_seq);以下のように実行。 perl fasta.…

コマンドプロンプトより、ppmを起動する。 ppmが起動したら、 検索用のテキストボックスに、 bioperl と入力して、 View＞All Packages を選ぶと、インストール可能なBioPerl関連のパッケージが表示される。 最初に、 Bundle-BioPerl-* を、右クリックして、…

http://www.geocities.co.jp/SiliconValley-PaloAlto/2130/ なかなかいい。 今度やってみよう。

参照のことですな。 # スカラー $s = "aiueo"; $s_ref = \$s; print "$$s_ref\n"; # リスト @a = ("ka","ki"); $a_ref = \@a; print "$a_ref->[0]\n"; print "$a_ref->[1]\n"; # ハッシュ %h = ("sa","ta","si","ti"); $h_ref = \%h; print "$h_ref->{'sa'}\…

かなり気軽に使える。 ↓こんな感じ。 # クロージャを返す関数 sub function { my $scalar = shift; my $closure = sub { my $scalar_c = $_[0] + $scalar; return $scalar_c; }; return $closure; } # クロージャの初期化 $closure1 = function(100); $closu…

一つ前のバージョン(第2版)だが、Web上で無料で見ることができる。 Learning Perl Perl全体は、ここ↓ The Perl CD Bookshelf

時代を逆行しているとしか思えないが、そこが私の私たる由縁(？) 要はBioPerlをやりたいだけ。 あ！例の絶版本買うの忘れた！ やばいよ。。。

基本からちゃんとやってみますか。

Perlのインストール JREのインストール Eclipseのインストール Perl用Eclipse-Pluginのインストール Perlプロジェクトの作成 を行ったら、 プロジェクトを右クリック＞実行＞構成および実行で、 Mainタブで、 構成名：わかりやすいもの プロジェクト：Perlプ…

ちょっときれい過ぎたかな？ @lt = qw(q w e r t y u i o p a s d f g h j k l z x c v b n m); @bt = qw(Q W E R T Y U I O P A S D F G H J K L Z X C V B N M); @list = (41, 2, 18, 18, 8, 100, 27, 8, 3, 18, 12, 200); foreach (@list) { if($_ < 26) …

5回ほど失敗してようやく成功 ActivePerl 5.8.8.820をインストール ppmで、リポジトリを追加 コマンドプロンプトから、以下のコマンドでリポジトリを追加 >ppm repo add tcool http://ppm.tcool.org/server/ppmserver.cgi?urn:PPMServer >ppm repo add theor…

基本的なことを知らんかった。 変数について/Perl/CGI より 関数への値の渡し方 スカラーを渡す my $str = &func('aiueo','kakikukeko'); print "$str\n"; sub func { my @args = @_; return "$args[0]$args[1]"; }連想配列を渡す my %data = ('name' => "Na…