Perl入学式に関するツイートをIdobataに通知するボットを作った
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 #!/usr/bin/env perl use utf8; use v5.12; use AnyEvent::Twitter::Stream; use Encode; use Furl; use Config::Pit; my $config = pit_get( 'nqounet@twitter.com', require => { consumer_key => 'consumer_key', consumer_secret => 'consumer_secret', token => 'access_token', token_secret => 'access_token_secr
use Module::CoreList; - 今日のCPANモジュール（跡地）
宣伝と注意書き このサイトが元になったCPANモジュールガイドという本を書きました。 Module::CoreListは本では取り上げていません。コアモジュールの場合インストール不要かというとそうではなく、更新されているものはアップデートしていった方が良いと考えたからです。 執筆時点のバージョンを記載しており、できるだけこのバージョン以上をお使いください、としました。なお、perl本体と同じディストリビューションで開発されているため単体ではアップデートできないモジュールもあります。それらについては確認したperlのバージョンを記載しました。 2007-02-15 use Module::CoreList; ぜんぜん日刊じゃないじゃないか！と言われそうなので、こっそり発行周期を「ほぼ日刊」に改めた今日のCPANモジュールです。 さて、前々回の Fatal は、"コア"モジュールでした。つまり
プロトタイプ - モダンなPerl入門
Perlのプロトタイプ (書きかけ誰かもっとかいて!) Perlの関数は基本C/C++/Javaのように引数の型や数の宣言をする必要はありません。 ですが、特殊な状況下（たとえばDSLを書きたい時）ではある一定の指定ができます。 このような指定を「関数のプロトタイプを指定する」といいます。 このプロトタイプはJavaScriptのフレームワークであるPrototypeとは違い、関数の引数の型の宣言を行うことが出来ます。関数にプロトタイプが定義されている時は、定義された型どおりに関数を呼び出さなければエラーとなります。 sub subname ($$$) { my($foo, $bar, $baz) = @_; } といった定義の時は subname $foo, $bar, $baz; という形で関数を呼び出さなければなりません。 my @list = qw( foo bar baz );
おそらくはそれさえも平凡な日々: Perlのサブルーチンプロトタイプについて
プログラミングPerlとPerlベストプラクティスを読み返して勉強しなおした。概要としてはこんな感じ。 サブルーチンの引数の型を指定出来るようになる 暗黙的にリファレンス渡しができるようになる 例えば、組み込み関数のpushは第一引数に配列を取るが、暗黙的にリファレンス渡しになっている。(引数リストとして展開されない) このような挙動は通常のPerlのサブルーチンの仕組みでは実現できないが、プロトタイプを使うと実現できる。 sub my_push(\@@){ my ($arr_ref, @arr) = @_; for(@arr){ $$arr_ref[$#$arr_ref+1] = $_; } } my @test_arr = (1,2,3,4,4); my_push(@test_arr, 1,2,3); print join ',',@test_arr; #1,2,3,4,4,1,2,3
標準出力や標準エラー出力を捕まえてテストする Test::Output / Capture::Tiny - 酒日記 はてな支店
Perl で、あるコードが標準エラー出力に吐き出した内容をテストしたい場面がありました。 自分でまず思いついたのは STDERR を dup して保存しておいて、ファイルにリダイレクトして、元に戻して、というやりかた。これはこれで動くのですが面倒。こういう場合は Test::Output (や miyagawa さんに教えてもらった Capture::Tiny) が便利です。 Test::Output はこんな感じ。 std(out|err)_(is|isnt|like) といったテスト関数が使えるようになります。 use Test::Output; use Test::More; stderr_is { # STDERR になにか出力するコード } "STDERRの内容", "description"; stdout_like { # code } qr/regexp/, "descri
Term::UI - サクッと対話的に入力を求める - Articles Advent Calendar 2011 Casual
こんにちは、コンビニに行くたびに店員さんから舌打ちされるdameninngennです。サックリと書きます！ 対話的に処理を進めるスクリプト書いたりしますよね！あの[yes/no]とか聞かれて入力するやつです！！ 例えばrsyncで--dry-runオプション付きで一旦実行して、そこから[yes/no]を聞いて本当にsyncするかどうかみたいな感じのやつです！！！ まず、標準入力から受け取るだけであれば、 my $str = <STDIN>; chomp $str; # do something # ... こんな感じに受け取ったりするかと思いますが、本当に[yes/no]が入力されたのか判定したりそうじゃなかったらもう一回入力求めたりとか書くのめんどくさいですよね。 そこらへんのめんどくささとかを解消してくれるTerm::UIというモジュールがあります。 誤解を招くかもしれませんがTerm
Perlでコマンドラインオプションの解析に Getopt::Long を使う時、絶対に忘れてはいけない引数 - たごもりすメモ
Perlでコマンドラインオプションをparseしようと思うと組込みモジュールとしては Getopt::Std と Getopt::Long がある。が、long style option *1 つまり --option-name のようなオプションを解釈してくれるのは Getopt::Long だけだ。なので普通はこちらを使おう。 ただし 絶対にデフォルト、つまり以下のようにして使ってはいけない。 use Getopt::Long; my (@primary, @secondary, $silent); GetOptions( "server-primary|p=s" => \@primary, "server-secondary|s=s" => \@secondary, "silent|S" => \$silent ); これダメ！ 絶対ダメ！ 死ぬ！ 最初に結論を書く 必ず以下のように
New Class of Vulnerability in Perl Web Applicationsの紹介
Redditを眺めておりましたら以下の記事が目に止まりました。 New Class of Vulnerability in Perl Web Applications ざっくりというと以下の様な内容です CGI.pmのparamメソッドの返り値をハッシュに突っ込んでいる箇所がある クエリ文字列に同名のパラメータを複数セットすると、配列値が返る 配列をハッシュに突っ込むことにより、別のキーの値が変更される 私はこの内容に興味を持ちましたので、以下に詳しく説明します。 PoC 元エントリにもPoCが出ておりますが、少し手をいれたものを以下に示します。 #!/usr/bin/perl use strict; use CGI; my $cgi = new CGI; my $loginname = 'smith'; my $password = 'a3k!sz9'; my %user = ('log
Perl 初心者がウェブアプリケーションを書く時に気をつけるべきこと - tokuhirom's blog
$c->req->param('id') みたいなメソッドは使ってはいけない。これは歴史的経緯から残っているものなので、基本的に使わない方がいい。 $c->req->parameters->{id} をかわりに使ってください。 Perl の世界には List コンテキストというものがあって、これがウェブアプリケーションを開発するときには鬼門となります。 +{ id => $c->req->param('id') } のようなコードは、param メソッドはリストコンテキストではすべての id を返すので、 ?id=3&id=hasegawa&id=yosuke というようなクエリが来ている場合、 +{ id => 3, hasegawa => 'yosuke' } のようなデータ構造が作成される。これは明らかに意図していない挙動である。 以下の様にかくのがおすすめです。 my $id =
SQL::Translator::DiffでDBスキーマに追従させる方法 - すぎゃーんメモ
#5「GitDDLまじイノベーティブ」 tech.kayac.com Advent Calendar 2012 | tech.kayac.com - KAYAC engineers' blog が便利そうだなーと思って。 でもGitと絡めなくても、Webアプリにおいて「現在の環境で使用するデータベース」と「有るべきスキーマの状態を示すDDLファイル」の差分を取って埋めることができればそれだけで十分使える気がする、と思って一つの運用方法を考えてみた。 もちろんGitDDL使っても良いのだけど、SQL::Translatorを使うだけでもある程度は、ということで。 Amon2プロジェクトの例で。 初期設定 $ amon2-setup.pl MyAppとかで雛形プロジェクトを作ると、sqlディレクトリが作られて、そこにDDLを保存する雰囲気になる。そのままsql/mysql.sqlを使っていくこ
blessされたオブジェクトをJSONに変換 - hounobouno
#!/usr/local/bin/perl -w use strict; use warnings; use utf8; use JSON; my $obj = new Target('hounobouno'); # 変換対象インスタンス生成 my $json = new JSON; # JSONインスタンス生成 $json->convert_blessed; # blessedObjectが渡されたらTO_JSONを呼ぶように設定 my $json_text = $json->encode($obj); # 変換 # こう書くことも可能と #my $json_text = $json->allow_blessed->convert_blessed->encode( $obj ); print $json_text; exit; # 変換対象obj package Target; use
Mojoliciousアプリを UpStart + Sarver::Starter + Starlet で運用してみる
Mojoliciousアプリを UpStart + Sarver::Starter + Starlet で運用してみる 2013.05.20 CentOS6.x perl perl, Starlet, Upstart Server::Starter + Starlet 以前はdaemontools+Starmanで起動していたのだけれど、 最近のPlack/Starletのパフォーマンス改善まとめ。最大2倍の性能向上を読んでたらStarletが使ってみたくなったのでServer::Starter+Starletを試してみることに。 コマンドラインから起動してみる。 start_server --port=3000 -- plackup -s Starlet --max-workers=5 my app.pl start_server (pid:31803) starting now...
Monoceros というPrefork型だけどC10Kの接続を捌くことができるPSGI/Plackサーバ書きました - blog.nomadscafe.jp
Monoceros というPSGI/Plackサーバ書きました https://metacpan.org/release/Monoceros https://github.com/kazeburo/Monoceros StarmanやStarletのようなPreforkなアプリケーションサーバでは、コネクションの維持イコールプロセスの占有なので、HTTPのKeepAliveは無効にするのが一般的ですが、負荷の高いサービスではTIME_WAIT状態のソケットが溜まったり、SYN-ACKの再送問題などあり、KeepAliveを使いたいという欲求があったりなかったりします。 Monoceros はリクエストを処理するworkerの他に、イベントドリブンで動くコネクション管理プロセスを立てて、クライアントからの接続ソケットをunix domain socketを使いプロセス間でやりとりします。待機
第53回 型グロブ - bingo_nakanishiの他言語出身者のためのPerl入門
blessは２引数で - 北海道苫小牧市出身の初老PGが書くブログ このようなご指摘をいただいていた。 正直なところ、 *new = \&Human::new;の部分のアスタリスクは「型ブログ」と呼ばれるものであろうということぐらいの認識しかなく理解していなかった、そんな中、 Web::Scraper - Web Scraping Toolkit inspired by Scrapi - metacpan.org のソースを、ひょんなことから読んでみようとおもって読んでみると、 同じように、 *を使っているところがあった。 どうしようもなくわからないので、友人にきいたところ、 自前で import をしているのでは？ といわれ、調べてみることに。 型グロブ Perlでは頭に、 $ @ % &という文字を付けてスカラー変数や、配列であることを示す。 これはファニー文字と呼ばれている。 ファニ
Perlの型グロブと名前空間アクセスの応用
Perlの名前空間と型グロブに関する応用的な話です。高度な内容ですので、少なくともリファレンスについては理解している人向けです。型グロブも多少知らないと難しいかもしれません。 型グロブとは 名前空間の取得と操作 外部モジュールと名前空間 名前空間の開放と変数の開放 名前空間まとめ 応用：動的な関数のフック 応用：ライブラリの自動リロード 具体的な方法 アンロードルーチン まとめ ※以下特に断りがない限りPerl 5.10での動作確認です。 型グロブとは Perlの名前空間にアクセスする際に出てくるものです。prefrefによれば型グロブには次のようなものがあります。 $scalarref = *foo{SCALAR}; $arrayref = *foo{ARRAY}; $hashref = *foo{HASH}; $coderef = *foo{CODE}; $ioref = *foo{I
Fukuoka Perl Workshop（Fukuoka.pm）参加レポート - uzullaがブログ
渋谷AppleStoreにいったら行列がすごくて、まったく予約していたiPhoneが買えなく（見れもせず）、飛行機にのって天神のApple StoreでiPhone実機をみたuzullaです、こんにちは。 天神のアップルストアは平和でした。 さて、今回JPA講師派遣制度の支援をいただき、Fukuoka Perl Workshop（Fukuoka.pm）に参加してまいりました。 お呼びいただきましたFukuoka.pmの皆様、支援いただきましたJPA樣、大変有り難うございました！ http://www.zusaar.com/event/5567003 PHPでベストトークを取った私が行って良いものかと思いましたが（最近勘違いされますが、Perlも書きますよ！！！）、今回のお題は「YAPC::Asia レポート 2014」という事でした。 長いので三行でまとめると、 ・Fukuoka.pmにJ
お手軽InnoDBウォームアップを実現するMySQL::Warmerの話をGotanda.pm #2 でしてきました | おそらくはそれさえも平凡な日々
発表資料 Gotanda.pm #2 でMySQL::Warmerというモジュールの紹介をしたのですが、それをCPANizeしたのでエントリを書いています。 % cpanm MySQL::Warmer とすると、mysql-warmupというコマンドがインストールされ以下のようなコマンドを打つとウォームアップクエリがダラっと発行されます。--dry-runもあり、その場合、発行されるクエリが標準出力されます。 % mysql-warmup mydatabase -h db.example.com -u dbuser -p サービス投入前のDBのデータをメモリに乗っけてやるのに有用でしょう。 ウォームアップ戦略はkazuhoさんのMySQL のウォームアップ (InnoDB編)に基づいていますが一部適当です。突っ込みどころがあれば指摘いただければと思います。 ISUCONでも再起動かかった直
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
cinnamon/lib/Cinnamon/DSL.pm at master · kentaro/cinnamon
Perlによるコマンドラインツール開発Tips
Perl Friends