docker-compose を使った Amon2 の開発環境構築の手順メモ 追記 この記事の内容は古くなっています。下記を参照してください。 takaya030.hatenablog.com 検証環境 Windows10 Home Edition VirtualBox 5.1.20 Docker version 17.05.0-ce, build 89658be docker-compose version 1.6.2, build 4d72027 ディレクトリ構成 +---amon | | docker-compose.yml | | | +---data | | Dockerfile | | | +---perlcli | Dockerfile | +---logs | +---www cpanfile 各種設定ファイル amon/docker-compose.yml version
圧倒的な速度で動作するadiaryの仕組みを解説します。勉強会等でスライド発表の要望がありましたらご連絡ください。Read less
3/24 の記事で、最近作った memcached-cli というツールの紹介をしました。 keyamb.hatenablog.com 別に困ってはいないのですが、もっと便利にしたので、Changes から抜粋して追加機能を紹介しておきます。 昨日か一昨日に手元に入れて試してみた、という方はぜひアップデートしてみてください。 gets, add, replace, append, prepend, cas, touch, incr, decr の実装 v0.6.0 以前は get/set/delete しかできませんでしたが、これで memcached/doc/protocol.txt に書かれている Retrieval, Storage コマンド + α のデータ操作が全てできるようになりました。 なんとなくコマンドの解説: add は該当キーのデータが無いときのみ成功します。 repl
配列に入っている式から四則演算行なうプログラムをperlで書いてみました。 演算子とカッコの優先度を考慮しながら計算するために、逆ポーランド記法に直して計算するようにしています。 use strict; use warnings; { cal(qw|5 + 4 - 3|); cal(qw|5 + 4 * 3 + 12 / 6|); cal(qw|1 + ( 2 + 3 ) * 4|); cal(qw|( 1 + 4 ) * ( 3 + 7 ) / 5|); cal(qw|( ( 2 + 3 ) + 3 * 2 ) - 3 * 2|); } sub cal { my @exp = @_; my @post = convert_to_postfix(@exp); print "exp: ", join(' ',@exp),"\n"; print "postfix: ", join(' ',@p
はじめに プログラマのみなさんなら、きっと算数が苦手でしょう。というのも電卓という便利な道具があるのですから計算は全部そいつに任せてしまうため、どんどん算数ができなくなっていくに違いないからです。 それに専用の電卓がなくとも、たとえばWindowsならば、「電卓」というアプリケーションがあります。 Windowsの電卓はごく普通の電卓なのですが、電卓というのは、「＋」や「÷」というボタンを押すと即座に計算してしまうため、たとえば次のような数式は １ ＋ ２ × ３ ＝ ９ となります。でも小学校の算数で習ったとおり、積や商は、和や差より先に計算しなければいけません。なので本当は １ ＋ ２ × ３ ＝ ７ となるはずです。実はWindowsの電卓には関数電卓モードというのがあり、このモードでは演算子の優先順位の処理はもちろん、カッコによる順序の変更も可能になっています。 というわけで苦手な
サンプルが見つからないってことは、普通はやらないことをやろうとしているんだと思う。 ということで、以下のようなことをしてみたかったので、試してみました。 Client (JavaScript) 側で RSA 鍵 (秘密鍵・公開鍵) を生成 公開鍵を Server (Perl) に POST Server (Perl) 側は受け取った公開鍵を用いて暗号化し送信 Client (JavaScript) は受け取った暗号文を 1 で生成した秘密鍵で復号 とりあえずサンプルで作ったものは RSA 鍵を生成 (Client) 公開鍵を POST (Client) UUID を生成 (Server) POST された公開鍵を使い暗号化 (Server) 受信した暗号文を秘密鍵で復号 (Client) という動作をします。 できたもの、ソースコードはこちら。 JP RSA http://jprsa.ma
Perl入学式 公式ブログ プログラミング未経験者／Perl初心者を対象としたワークショップ『Perl入学式』のブログです。 一緒にプログラミングの楽しさを体感しましょう！ みなさまこんにちは, Perl入学式校長のpapixです. いきなりですが, Perl入学式は今年で4年目となりました. ここまでの3年間, 多くの方と一緒にPerlを学ぶことができていて, とても嬉しく思っています. その中で, Perl入学式の卒業生からよく頂く意見の1つが, ｢卒業後に使えるカリキュラムが欲しい｣というものです. Perl入学式で扱う内容は, プログラミングを学ぶために不可欠な環境構築からスタートし, Perlという言語を通して｢プログラミングに必要な考え方｣を学んでいくという, まさに｢基礎中の基礎｣といえる内容になっています. 最終回でMojoliciousを利用したWebアプリケーションの開
先日行われた Gotanda.pm #5 でも発表させていただいたが、まさしく experimental な cpan client cpm を作った。 github.com Why new? cpan module の install にはいつも cpanm を使っており そのシンプルさと安定性には感心するばかりである。 が、cpanmにも不満がないわけではない。 perlである程度のことをやろうとすればすぐにcpan moduleの依存は 100を超える。 そういった場合、cpanmは直列でcpan moduleをインストールしていくため かなりの時間がかかる。 これをなんとかしたい。 Features of cpm cpm は如何に速くcpan module をインストールするか、しか考えていない。速くするために以下のようにしている。 cpanm を並列に使って cpan modul
本連載では第一線のPerlハッカーが回替わりで執筆していきます。今回のハッカーはJapanizeやText::MicroTemplateなどで有名な奥一穂さんで、テーマはUNIXプログラミングです。 はじめに 「正しいプログラム」を書くために必要な知識とはなんでしょうか。テストが正しく実行されることは、正しいプログラムであるための必要条件に過ぎません。プログラミングにおいてはプログラミング言語だけでなく、OSの動作やデータベース、ネットワークプロトコルなど、さまざまな知識が必要になります。 PerlはもともとUNIX系のOS（LinuxやFreeBSD、Mac OS XなどのOSを本稿では以下UNIXと総称します）の上で処理を行うためのスクリプト言語として開発され、今日でもPerlプログラムの多くはUNIX上で実行されています。しかし、「Perlでプログラミング」と言った場合はともすれば
2015 8/20(木)、8/21(金)、8/22(土) 真夏に熱いカンファレンスを御届けします！ 8/20 18:00~ : 前夜祭 8/21 10:00~ : Day 1 8/22 10:00~ : Day 2 世界最大のYAPCが最後の大花火をぶちあげに今年ももどってきました！YAPCはYet Another Perl Conferenceの略で、Perlに関するカンファレンス・・・いや、お祭りです！Perlだけに限らず、様々な分野のギーク達が集まり技術の話と楽しさに満ちた三日間のお祭りが開かれます。Perlに関連する事に興味がなくとも心配する必要は全くありません、YAPC::Asia Tokyo 2015は技術者であれば誰でも楽しめるカンファレンスです。 今年も様々なゲストを集めて熱いトークが交わされます。世界中のギーク達がどんな事を今を考えているのか行っているのか、是非皆様も体験
use 5.019009; use autodie; use feature 'signatures'; no warnings "experimental::signatures"; package Foo { sub new($class, $n) { bless {n=>$n}, $class; } sub bar($class, $a) { $a+3; } sub baz($self, $a) { $self->{n} * $a; } } sub add($left, $right) { return $left + $right; } say add(1,2); say Foo->bar(4); say Foo->new(5)->baz(4); みたいな感じでつかえる。 【追記】 use 5.019009; use feature 'signatures'; no warning
こうするのがいいかなーと思ってる。経緯は端折って大枠だけ。Webアプリケーションプロジェクトの場合です。 cpanfileちゃんと書いてコミット 今やどこでもやってますね。scan-prereqs-cpanfileも便利です。 開発者は各自carton installでモジュールをインストール。プロジェクトごとにPerlをビルドしたりしてる場合は、cpanm --installdeps .でも別に良い。 CI環境でcpanfile.snapshotを作る CI環境は必ず以下のとおりとする。 本番環境と同じアーキテクチャ 本番環境と同じバージョンのPerl まっさらな状態(Globalに何のモジュールも入っていない) CIにcarton installもさせて、必要なモジュールをlocal/に入れてテストさせる。毎回サラからcarton installしてたら時間かかるので、git pull
簡単にfibを高速化する方法を読み、おおっと思って、Perlでやってみた。 #!/usr/bin/perl use strict; use warnings; use feature qw/state/; use Benchmark qw/timethese cmpthese/; sub _fib_ret2 { my $n = shift; if ( $n == 1 ){ (1,1); } else { my ( $aa, $bb ) = _fib_ret2($n-1); ($aa+$bb, $aa); } } sub fib_ret2 { (_fib_ret2(shift))[0]; } sub fib_memo { state @cache; my $n = shift; $cache[$n] ||= $n <= 1 ? 1 : fib_memo($n-2) + fib_memo($n
おそらくはそれさえも平凡な日々: CPANモジュールのパッケージングの歴史 の話を見ていて、興味が湧いたというのと、CPANモジュールを作ってもそういうところは無視してしまっていたので、これは良くないと思い少しだけ調べた。 lib, bin, t, xt README, Changes, LICENSE Build.PL, Makefile.PL MANIFEST, MANIFEST.SKIP META.yml, META,json MYMETA.yml, MYMETA.json blib パッケージの歴史 先程も書いたけど、おそらくはそれさえも平凡な日々: CPANモジュールのパッケージングの歴史に非常によく説明されているので、これを見るのが一番手っ取り早い。 かなり適当にまとめると makeでビルドしよう ExtUtils::MakeMakerでMakefileを作ろう でも簡単なこと
Like a ハッカソン(pre Hachioji.pm #15)の準備として、Kossyの勉強用アプリとしてWIKIアプリを作ってみました。O/RマッパーをTengで、Object::Container::Exporterでインスタンスキャッシュという感じの構成。 Kossyの特徴 作ったアプリの話に入る前にちょっとした個人的なメモをば。 ディスパッチャー/ルーターとコントローラーはSinatra-ish,filterがいい按配 テンプレートエンジンは、Text::Xslate(Kolon) 独自のバリデーター セットアップスクリプトあり フロントサイドのサポートして、CSSフレームワークのbootstrapとJqueryもついてくる Kossyのメソッドについてのメモ filter(DISPATCHER METHODS for Kossy class) $appのコードリファレンスをラ
OrePAN的なやり方でモジュール管理していたプロジェクトのcarton化を進めているので、進捗をメモしてみる。 整合性が取れるまでcarton installを進める 現状のモジュールのバージョンを完全に固定したままで、carton installしたらあまりうまく行かなかった。プロジェクトにはテストがかなりあるので、まあ全部バージョン上がっても良いとして、carton installする。テストを走らせてみて、バージョンを固定しないと動かないようなモジュールはcpanfileに記述していった。 $ carton install $ # なんかおかしかったらcpanfileを編集 $ carton install cpanfileには以下の様な形でモジュールを固定していった。 requires 'HTTP::Message' => '<= 6.02'; またinstallが終わった後はc
最近リファクタリングをしたいと思っているんだけど、なかなか大変で後回しにしてしまう。これはいけないと思って、自分達を納得させるために、perlのメトリクスを出し、それをjenkinsで可視化するというのをやってみた。 perlのメトリクス集計 まずperlのメトリクス集計はPerl::Metrics::LiteやApp::plmetricsというのを使えば良い。これにより、関数の長さやCyclomatic Complexity(循環的複雑度)が集計できる。 まずPerl::Metrics::Liteのmeasureperlコマンドを使ってみる。すると以下のようにファイルの長さ、関数数やそれぞれのファイルのメソッドごとの長さ、Cyclomatic Complexityが集計できる。 $ measureperl lib #====================================
This document discusses using Perl to access web APIs. It provides examples of popular web APIs like Twitter, Google, and Flickr. It explains that web APIs use HTTP, URIs, and return formats like JSON and XML. The document then demonstrates how to use Perl modules like LWP, URI, and JSON to make requests to the Twitter Search API, handle UTF-8 encoding, and parse the JSON response. Finally, it men
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く