PSGIへの誘い
6. シンプルなCGI #!/usr/bin/env perl use strict; ### HTTPレスポンスヘッダ print “Content-type: text/htmlnn”; ### HTTPレスポンスボディ print <<EOF; <html> <body> <h1>Hello, world!</h1> </body> </html> EOF 7. CGI.pmをつかってみる #!/usr/bin/env perl use strict; use CGI; ### CGIインスタンス生成 my $cgi = CGI->new; ### HTTPレスポンスヘッダ print $cgi->header( -type => 'text/html' ); ### HTTPレスポンスボディ print <<EOF; <html> <body> <h1>Hello, world!<
Perl と人生(Perl and Life)
PHPで関数は使えるけれどオブジェクト指向はよくわからないという人向けの勉強会の資料です。 Ustream録画 (1/5) http://www.ustream.tv/recorded/21256905 67分 (2/5) http://www.ustream.tv/recorded/21253084 80分 (3/5) http://www.ustream.tv/recorded/21254139 60分 (4/5) http://www.ustream.tv/recorded/21254817 24分 (5/5) http://www.ustream.tv/recorded/21255084 6分
CentOS5.7のcpanでMongoDBを入れるときのメモ - にゃははー
人生初perl/cpanでcpanの依存関係が死んでるらしくて嵌ったのでメモ... まずDateTimeは自動的に選択されるけど,死んでるのは総じてDateTimeから先. MongoDB `-> DateTime |-> Math::Round |-> Params::Validate | `-> Attribute::Handlers |-> DateTime::Locale `-> DateTime::TimeZone DateTimeのテストでMath/Round.pmが無いって怒られる DateTimeのテストでParams/Validate.pmが無いって怒られる Params::ValidateのテストでAttribute/Handlers.pmのバージョンが低いって怒られる(act:0.8.20, req:0.9) DateTimeのテストでDateTime/Locale.
CPANモジュール「DateTime」を依存関係を解決してインストール
KYO's Tech Web関連の備忘。Linux運用とMac関連をメインに、vim, git, shell, php, symfony..など。 CPANモジュール「DateTime」のインストール なぜか、コマンドですんなり入ってくれなかったので、無理やり入れた際のメモ まずは、依存パッケージを以下から検索 CPAN dependencies 以下のようなShellを作成して、rootで実行 [shell] \#!/bin/bash cpan Scalar::Util cpan Test::Exception cpan Test::Harness cpan Test::More cpan Sub::Uplevel cpan Module::Build cpan Carp cpan DateTime::TimeZone cpan parent cpan ExtUtils::MakeMak
ピヨピヨ ZeroMemory( ) » Blog Archive » Data::DumperでUTF-8フラグつき文字列をエスケープさせないようにするには
変数の中身を表示してくれるperlのCPANモジュール、Data::Dumperは、UTF8フラグのついているデータがエスケープされて文字化け状態になってしまうため、UTF8で日本語を扱う時に困る。でもそもそもUTF8フラグがついていなければエスケープされることもなくて困らないのはなんで？というわけでソースを読むと Data::Dumper::qquote() というメソッドの中で、文字列をエスケープする条件に my $bytes; { use bytes; $bytes = length } s/([^\x00-\x7f])/'\x{'.sprintf("%x",ord($1)).'}'/ge if $bytes > length; というトリッキーなコードが入っていた。UTF-8フラグがついていると、UTF8の文字列が正しく文字として認識されてlengthがバイト数よりも小さくなるので
手元のPODを簡単・綺麗に見るひとつの方法 - Charsbar::Note
ほかにもやり方はいろいろあるわけですが、カレントディレクトリにCPANモジュール風のディレクトリ構成をもった何かがあるとすると、コマンドラインから > cpanm Mojolicious Pod::Simple (必要なら) > mojo generate lite_app podviewer > perl podviewer daemonとタイプして、http://localhost:3000/perldoc/lib/Hoge のようなURLを見ると、http://mojolicio.us/perldoc 以下で使われているPODビューアを構文ハイライトやらなにやら込みで利用できます。 また、実際には@INCの中をチェックしているので、必要ならpodviewerを起動するときに-Ilibを追加するか、podviewerの中でuse lib "lib";のような行を追加してやると、http
perl - use encoding; #は黒歴史 : 404 Blog Not Found
2009年06月08日14:30 カテゴリLightweight Languages perl - use encoding; #は黒歴史 ぎゃあぁぁ length関数で文字列の長さを求める - perl初心者BLOG - Hatena::Group::Perl 日本語の文字数を正確に求めたい場合、use encodingを指定する use encoding;は、jperlなど、かつて存在したL10Nされたperl用に書かれたレガシースクリプトを、モダンperlで動かすときのためのおまじないです。こういう目的で利用すべきではありません。 このあたりのことは、以前 404 Blog Not Found:perl - no encoding; # whenever possible でも書いたのですが、大事なことなのでまた書きます。 スクリプトはUTF-8で書き、use utf8;する のがモ
Excel列名変換問題で第２回社内プログラミングコンテストを開催してみた(前編) - give IT a try
2011.12.31 追記 後編を書きました。こちらもあわせてどうぞ。 Excel列名変換問題で第２回社内プログラミングコンテストを開催してみた(後編) - give IT a try はじめに 先日、FizzBuzz問題を使って社内プログラミングコンテストを開きました。 このブログでも書いた通り、なかなか興味深い結果になりましたが、一方で反省点もいくつか見つかりました。 特に問題が解けなかった人が出てしまったのは痛い誤算だったので、今回はできるだけ最後まで解けるような配慮をしてみました。 ただし、問題自体はFizzBuzz問題よりもずっと難しくしてあります。 今回もちょっと長いエントリになっていますが、よろしければ最後までお付き合いくださいませ。 前回の反省点 詳しくはこちらのエントリに書きましたが、簡単にまとめると 言語の得意・不得意が結果に大きく影響した 抜き打ちで実施したことがその
emacsのcperl-modeを設定する: ash
Link to This Site Perl関係の記事へのリンク集 Perl To The People メールは下記まで info@roova.jp Recent Entries サニーデイ・サービス / 本日は晴天なり - decipher DJ YOGURT&KOYAS / CHILL OUT - decipher Module::BuildをWindows環境で使う - cipher HALCALI / ENDLESS NIGHT - decipher Perlのpack関数を使ってみた - cipher チャットモンチー / 表情 - decipher 実用Git - cipher Perlスクリプトの拡張子は何？ - cipher Apple Magic Mouse - decipher TOKYO No.1 SOUL SET / BEST SET - decipher Li
oinume journal
Raycastを使い始めて1年経ったので、どういうことに使っているかを振り返ってみる。去年書いた AlfredからRaycastに移行した - oinume journal の記事から少し使い方が変わっているところもあるのでメモがてら。 基本的な使い方 Cmd + QをRaycast起動のショートカットとして割り当てている。Pro版は使っていないのでAI機能などは使ったことがない。 ブラウザのブックマーク検索など、よく使うけどHotKeyを割り当てるほどでもないRaycastコマンドはbmのようにAliasを設定している。 Cmd + QでRaycastを起動してbmと入力するとブックマークの検索ができるので楽ちん アプリケーションランチャー機能 アプリケーションを起動するときのランチャーとして使っている。よく使うアプリにはHot Key(ショートカット)を割り当ててる。 Clipboar
Yet Another Hackadelic - 直積の導出と考えうる全ての値を網羅したハッシュの生成
昨日から激しく悩んでいた内容で、id:kazuhookuさんとnishioさんに色々教わったので、その内容のまとめ。 やりたい事 my $entries = { A => [0..5], B => ["A".."D"], C => ["a".."c"] }; みたいな集合A, B, Cってのがあるとして、A, B, Cから一個ずつ値を抽出してくる組合せを列挙すると言うお話。 ちなみに場合の数として、6 * 4 * 3 = 72 通り存在するハズです。 List::Utilのreduceを使う id:kazuhookuさん案を適当に整形。 #!/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use List::Util qw(reduce); my $entries = { A => [0..5], B =>
perl - for(each)やwhileの変数スコープ : 404 Blog Not Found
2011年06月09日20:00 カテゴリLightweight Languages perl - for(each)やwhileの変数スコープ 404 Blog Not Found:perl - 勝手に添削 - each vs. spliceへの追記ですまそうと思ったけど、大事なことなのでentryを改めて。 はてなブックマーク - Yuichirouの投げやりクリッピング keys => sub { my $value; foreach my $key ( keys %hash ) { $value = $hash{$key}; } } # こうじゃないかな? 何度でも違うって、そう言い返せます。 while(my $var){ #… }やforeach my $var () { #… }の$varのスコープはどちらになるでしょう?はい、lleval君! use strict; use
なぜ Perl で配列に対して defined を使ってはいけないのか?
defined の挙動で相談されたのでソースコードを見てみたら、配列に対して defined を呼んでいた。 最近の Perl では配列に対して defined を使うのは非推奨である(perldata や perlfunc 参照)。 ほとんどの人が望むような判定結果は返ってこない*1。 perl -e '@a = (); print defined @a ? 1 : 0; push @a, 1; print defined @a ? 1 : 0; shift @a; print defined @a ? 1 : 0' 配列が空かどうかならスカラーコンテキストで評価するだけで OK なのだが、Perl プログラミング経験上、1度は defined を使用してしまうだろう。 ただ通常は警告が出るのですぐ気がつく。 この警告は Perl 5.6.0 以降で出る。 #!/usr/bin/perl
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
A Perl Monger in the Ruby World
CGI::Applicationを用いたアプリケーションの実装
bayashi.jp
https://dankogai.livedoor.blog/archives/50641827.html
カリビアンコム期間限定スペシャルー無料お試し開始！
bayashi.jp
Maruta