無精・短気・傲慢

perlの事 いろいろ

JSONP

JSONP JSONは情報をやり取りする際のフォーマットとして頻繁に使われるようになりました。 ただ、外部サービスと通信する際に、AjaxでJSONをやり取りするには「クロスドメイン」という壁があります。つまり、他ドメインに属するファイルはAjaxでは基本的に取…

mojolicious memo

perl WAF Mojolicious(モジョリシャス)はperl製のWebアプリケーションフレームワークです。2つのウェブサーバが同梱されていてmojoliciousだけセットアップすれはwebを開発、公開できます。1つはmorbo (モーボ)で開発用のサーバーです。起動しっぱなしでも…

中置記法から後置記法(逆ポーランド記法)への変換と計算

Calculation and conversion to postfix notation (Reverse Polish Notation) from infix notation perlでは入力内容をevalすれば良いだけだけどアルゴリズム(algorithm)の備忘録として書いてみた。 使い方 $ perl calc.pl "((1+5)*(-2+-3) * -1)**2 % 8" 4$…

github

2016/01/23 githubはじめました。まだよく解りません。mmtを登録してみました。 https://github.com/john-smith-7701/ https://github.com/john-smith-7701/mmt ソースをwikiに貼る作業が煩わしいのでgithubに登録してみました。

mmt -- Master Maintenance Tool perl module.

目的 mmt.pmをmojoliciousで書き直す。 apache無しでmojoliciousたけで動かす。(apache,psgi,等々で動かしても良いが…) utf-8をデフォルトにする。 prototype.jsからjQueryに移行する。 github https://github.com/john-smith-7701/mmt に登録した。 memo …

gitbash

gitbash これだけあればwindowsを使うのが楽しくなる。 ここhttps://git-for-windows.github.io/からダウンロード gitは使わないが(まだ)これをインストールすればwindowsでbash,vim,perlが使える。windowsで*nixLIKEのオペレーションが… 日本語の設定 .pr…

gitbash

gitbash 編集 これだけあればwindowsを使うのが楽しくなる。 ここhttps://git-for-windows.github.io/からダウンロード gitは使わないが(まだ)これをインストールすればwindowsでbash,vim,perlが使える。windowsで*nixLIKEのオペレーションが… 日本語の設…

YAPC Asia TOKYO 2015

夏だ!祭だ!YAPC::Asia What is YAPC? 世界最大のYAPCが最後の大花火をぶちあげに今年ももどってきました!YAPCはYet Another Perl Conferenceの略で、Perlに関するカンファレンス・・・いや、お祭りです!Perlだけに限らず、様々な分野のギーク達が集まり…

飛び出せPerl6

飛び出せperl6 アスキーでステレオグラム。ワンライナーで『パール6』を浮き出させる。いまいち飛び出ないか…。もっとガンガレ… $ perl6 -e 'sub MAIN($x,$y){ for 1..10 -> $i { for 1..7 -> $j { print ($i==9 and $j==6)??"$y "!!"$x ";}; print "\n";}}'…

多項式の因数分解(factorization)

高校の数学の本を元にアルゴリズム(algorithm)の備忘録として 使い方 $ perl factor.pl '8x^3+12x^2-2x-3' (2x-1)(2x+1)(2x+3) $ perl factor.pl ' x^4+x^2+1 ' (x^2+x+1)(x^2-x+1) $ 【計算】 [factor.pl] $str = shift || ' 8x^3+12x^2-2x-3 '; #<----- $s…

perl6 memo

array etc.. 編集 $ perl6 -e 'say ("a".."z")[5]' f $ perl6 -e 'say first-index { $_ > 5 }, (1..10)' 5 $ perl6 -e 'say [+] 1..10' 55 $ perl6 -e 'say join ",", 1..10 ' 1,2,3,4,5,6,7,8,9,10 $ perl6 -e 'for 1..10 -> $x {say "[$x]";}' [1] [2] [3…

PERL6

「ラブ・ストーリーは突然に」 編集 突然、PERL6(パールシックス)が気になってきた。今年(2015)はラリーからのクリスマスプレゼントがあるらしい(わくわく) [wikipediaより] 言語仕様は現在のPerl (Perl 5)と互換性がなく、既存のPerl 5のソフトウェアを…

再帰(recursion)

再帰でプログラミングするとシンプル(綺麗に、格好良く)に書ける。再帰脳を鍛えよう! 最初の一歩 等差数列の和(1から10までの合計を求める。) 編集 perl -E 'sub f{$_[0]>1?$_[0]+f($_[0]-1):$_[0]} say f(10)' ワンライナーをばらすと… sub f{ $_[0]…

アルゴリズム(algorithm)

再帰(recursion)などでONELINERで書ける物を集めてみる 1~10までを足す perl -E 'sub f{$_[0]>1?$_[0]+f($_[0]-1):$_[0]} say f(10)' ・1回で計算出来ればその方が良いに決まっている perl -E 'sub f{($_[0]+$_[1])*($_[1]-$_[0]+1)/2} say f(1,10)' 2つの…

無精・短気・傲慢

無精(Laziness) エネルギーの総支出を減らすために、多大な努力をするように、あなたをかりたてる性質。こうして労力を省くために書いたプログラムは他人も使うようになり、そのプログラムに関する質門にいちいち答えずに済むようにドキュメントを書くように…