イベント内Likeツール、Goomer作りました - Paradigm Shift Design
もうね、ジョーの心境ですよ。 81忘年会というイベントが毎年開催されています。 1981年生まれの僕は、初開催の時から行きたくて行きたくて仕方なかったのです。 だけども、20歳からの10年間、北海道・名古屋とすんでいた僕は参加できずにいました。 東京帰ってきたから行くぞと。楽しみは楽しみなんだけど、呑んだら死にそうな状態であります！ がんばれ！ というわけで、 企画：id:uzullaさん デザイン：id:kkotaro0111さん プログラミング：id:kent013とid:tama_d で、イベントで使えるWebアプリケーションを作りました。 「Goomer」 といいます。http://g.cfe.jpで公開しています。 もっと気軽に簡単にイベント内でコミュニケーションをする方法はないか！ というuzullaさんの思いを62%くらい表現できているのではないかと思います。 インタフェース
Mojolicious::LiteとAnyEventを同時に動かすにはEVを入れておけばいい
Mojolicious::LiteとAnyEventを同時に動かすにはEVを入れておけばいい スポンサードリンク Tweet 端的に言うと、 M.C.P.C.: Google ChromeウェブブラウザにMojolicious::LiteサーバからWebSocketで接続しリアルタイムでTwitterのストリームを表示する M.C.P.C.: Google ChromeウェブブラウザにMojolicious::LiteサーバからWebSocketで接続しリアルタイムでTwitterのストリームをニコニコ動画風に表示する に掲載してあったソースを、そのままAmazon EC2上に建てたCentOS 5.6の最小インストール環境に入れて、ソースにあるとおりのモジュールをcpanmで入れた状態にして、daemonとして起動して、いざTwitterのストリームを受信しようと思ったら、全く落ちてこな
recursive blocking wait detected への対処 - Pixel Pedals of Tomakomai
連休の非同期祭も(疲れたので)これでラストです。 AnyEvent(5.2)でこんなコード書くと、「recursive blocking wait detected」が出ます。 use strict; use warnings; use AnyEvent; sub main { foreach my $i (1 .. 5) { my $cv = AE::cv; my $t = AE::timer $i, 0, sub { $cv->send($i); }; print $cv->recv, "\n"; } } my $t = AE::timer 0, 0, \&main; AE::cv->recv; # 結果 # EV: error in callback (ignoring): AnyEvent::CondVar: recursive blocking wait detected at
OAuth::LiteでOAuth対応のHTTP::Requestを作る方法 (Perlでtwitter bot書いてる人向け) - 酒日記 はてな支店
最近人気エントリーに便乗したネタが多くてすみません。 実用！ PerlでコマンドラインからTwitter投稿（OAuth対応） では、Net::Twitter を使って OAuth で投稿する方法が紹介されていますね。 ところで、単純な twitter bot 作るのに Net::Twitter 使います？「投稿なんて LWP で1発リクエスト投げればいいだけだから使わない」という人も多いと思いますが、Basic 認証が廃止されたらどうしましょう。 そのようなかた向けに、OAuth::Lite で OAuth 対応な HTTP::Request を作る方法をご紹介します。 consumer key, consumer secret, access token, access token secret は既に何らかの方法で取得できているものとすると、こんな感じです。 use OAuth::L
perlでハッシュとかのカッコの前に付いてるプラスの意味 - 新だるろぐ跡地
{}の前にプラスが付いて、+{}とかなってるのをよく見るけど、やっとこれの意味が分かったのでメモ。 このカッコはハッシュ以外にも使われるから、「これはハッシュリファレンスですよ」と明示するためのもの。 use strict; use warnings; use Data::Dumper; local $\ = "\n"; sub p { print Dumper shift; } sub hashref_ng { { @_ } } sub hashref_ok { +{ @_ } } my $ng = hashref_ng(1,2,3,4); my $ok = hashref_ok(1,2,3,4); p $ng; p $ok; 実行結果 % perl hashref.pl $VAR1 = 4; $VAR1 = { '1' => 2, '3' => 4 }; こんな常識も知らずにおりますよ
はてなブックマークの OAuth 対応 API 利用サンプル。 Run | $ perl consumer.pl daemon | and access http://localhost:3000/.
consumer.pl �"_{$V ��{$V #!/usr/bin/perl use strict; use warnings; use utf8; use Mojolicious::Lite; use OAuth::Lite::Consumer; use XML::Atom::Feed; use XML::Atom::Entry; use URI::Escape qw/uri_escape_utf8/; use Encode qw/decode_utf8/; my $origin = 'http://localhost:3000'; my $consumer_key = '__consumer_key__'; my $consumer_secret = '__consumer_secret__'; my $consumer = OAuth::Lite::Consumer->new(
mojoliciousでOAuth2 - Paradigm Shift Design
Hi, perl apprenticeなkent013です。 Mojolicious::Liteは何となく1ファイルに全て押し込む的な発想（単に慣れてないだけ）が嫌いなので、Mojoliciousを単体で使ってみようとか思ってます。 だけど、その辺に落ちているコードはLite用で苦労してます。 ま、勉強っつーコトで。 掲題のOAuth2ですが、mojolicious素敵だからさくっとできるんだろうなー。凄いんだろうなー！ って期待してやってみましたが、Railsのomniauthほどではないけど、簡単。 1, Mojolicious::Plugin::OAuth2をインストール Mojolicious::Plugin::OAuth2をインストールするのに、 cpanm Mojolicious::Plugin::OAuth2 ってしたら、 FAIL Installing Mojoliciou
PerlでSingleton - 理系学生日記
Perlってばお茶目なので、privateだのpublicだの基本ない感じです。 privateなメソッドは最初に_をつけるとかいう慣習もあるっぽいんですけど、もちろん外からは呼び出せる。 Singletonはそのクラスのオブジェクトを1つしか生成しないというデザインパターンで、コンストラクタをprivateにするのが定石みたいですが、Perlだとprivateとかないし、当然外からそのコンストラクタは呼び出せることになってしまう。 どうしたもんかなぁと思って悩んだ後、コンストラクタ消せばいいじゃん!!!!!!!!ってことに気づきました。 まず普通にコンストラクタを定義して1つしかないオブジェクト作った後、そのコンストラクタの中身を、さっき作ったオブジェクトを返すように変える。 BEGINの中身がそんな感じです。 いちおう、bokuで一意（?）な値を出力させるようにして確認することにします
amari3の日記
東京ビッグサイトで開催されたYAPC::Asia Tokyo 2015に参加してきた。ちなみに今回の参加は7回目である。初めて参加したのは2007年で、確かSledge 2の話とかがあったと記憶している。ブログを書くまでがYAPCなので、僕のYAPCはもうちょっとだけ続くんじゃ。 セッションの内容の多くはスライドが公開されると思うし、自分の感想を中心に書いていこうと思う。 続きを読む pop3sが正しく動作しているかどうかの確認コマンドをメモ。 # openssl s_client -connect localhost:995ブログさぼり気味なんで、自分用のメモ書きくらいから再開していこう。 慶応義塾大学日吉キャンパスで開催されたYAPC::Asia Tokyo 2014に参加してきたので、自分なりの感想を書こうと思う。昨年は諸事情で参加できなかったんで2年ぶりの参加となる。通算では6回目
cperl-modeでの引数の無名関数のインデント - Shohei Yoshida's Diary
コールバックを引数で取るような関数で無名関数を使ったとき こんな感じにして欲しいところですが、 cperl-modeだとこんな感じか こんな感じに なってしまいます。どうやったら一番上になるんだって思って ソース見ていたらなんとかなりそうだったのでその手順を示します。 melpaから取得できる cperl-modeの場合 このためのフラグ cperl-indent-subs-speciallyが用意されているので それを設定するだけで対応できます。 (setq cperl-indent-subs-specially nil) ;; もしくは (custom-set-variables '(cperl-indent-subs-specially nil)) Emacs付属の cperl-modeの場合 Emacs付属の cperl-modeも一応開発が進んでいるようで、 melpaにはない修
OSXでperl実行環境を作ってyanchaを動かす。 - Paradigm Shift Design
ちょっと落ち着いたのでブログ。 もう10日経ったのか...！！！って感じです。 いまさらかよ！って感じですが、自社でチャットツールを作ろうとしています。 その参考として@uzullaさんたちがhachioji.pmのメンバで作っているyanchaをインストールしようかと思って。 yancha (旧名yairc) はログの保全、リアルタイム性、モバイル端末への対応を重視した、Perlで作成されたチャットシステムです。 サーバサイドはPerl、クライアントサイトはHTML＋JSで作成され、PocketIOによりWebsocketで通信しています。 https://github.com/uzulla/yancha より で、ほぼ生粋のぺちぱーであまのじゃくな僕は、mongerのみなさんにバカにされつつも、PHPにこだわってきた個人的な恨み経緯があるので、ちょろーっと触った事があるくらいなんですよ
oinume journal
Raycastを使い始めて1年経ったので、どういうことに使っているかを振り返ってみる。去年書いた AlfredからRaycastに移行した - oinume journal の記事から少し使い方が変わっているところもあるのでメモがてら。 基本的な使い方 Cmd + QをRaycast起動のショートカットとして割り当てている。Pro版は使っていないのでAI機能などは使ったことがない。 ブラウザのブックマーク検索など、よく使うけどHotKeyを割り当てるほどでもないRaycastコマンドはbmのようにAliasを設定している。 Cmd + QでRaycastを起動してbmと入力するとブックマークの検索ができるので楽ちん アプリケーションランチャー機能 アプリケーションを起動するときのランチャーとして使っている。よく使うアプリにはHot Key(ショートカット)を割り当ててる。 Clipboar
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
LWP read fail error
https://groups.google.com/forum/#!topic/mojolicious/L--K5c6Yt6U/discussion
How to Split on three different delimiters then ucfirst each result[]?
Perl: checking if a value is an integer | coding.debuntu.org
List Of Pornstars - Porn Models - SloppyKnees
layer8.sh
The Perl5 Manual - スタッシュとオブジェクト
GitHub - jrockway/cperl-mode: cperl-mode with 5.10 fixes, mx-declare support, perl6 support, etc.
