Perl における flip-flop 演算子の使い道について - 理系学生日記
flip-flop 演算子とは、スカラーコンテキストで使用される範囲演算子(Range Operator) のことです。一般にはドット (.) 2 個で構成される演算子として認識されています。 この演算子は 2 つのオペランドを取ります。下記の例では、3 と 5 をオペランドに取っています。 perl -nle 'print if 3 .. 5' bigfile.txt 上記は、bigfile.txt を 1 行ずつ読みこんでいくのですが、bigfile.txt が 1 ~ 2 行目のうちは if 文は false を返します。3 行目になると if 文は true になり、if 文が true として評価されるこの状態は 5 行目まで続きます。そして 6 行目に達して以後は、ずっと false として評価されます。 ここではわざと「状態」という言葉を使いましたが、この演算子は「状態」を持
2017年 Perl5 との戦いに生き残るための最高の開発環境を手に入れる - Qiita
はじめに：これは誰のための記事か？ Perl で書かれた比較的大きなスクリプトやプロジェクトを保守する必要のある人. Perl 5 との戦い Perl5 (以下 Perl) といえば一時期 CGI を作るための標準的な技術として Web の開発で利用されたり、テキスト処理用の言語として昔から広く使用されている言語です。 かつてはサーバー上で CGI を動作させるために Perl でなければならない というような状態がありましたが、近年では Ruby on Rails や PHP 製のフレームワークなどがサーバー上で普通に利用できるようになっており、かつてのような Perl が必要とされる ようなシチュエーションは減ってきているかと思います。 また、オブジェクト指向プログラミングや関数型プログラミングをサポートする新しい言語が普及してきている現在では、新規の開発に Perl を採用するメリッ
YAPC::Kansai 2017 OSAKA
YAPC::Kansai 2017 OSAKA 03/03 前夜祭 前夜祭参加チケット 完売御礼 YAPC::Kansai 2017 OSAKA 03/04 一般・学生チケット（Tシャツつき） 完売御礼 個人スポンサーチケット 完売御礼 YAPC::Kansai 2017 OSAKA 03/04 懇親会 一般・学生チケット 完売御礼 竹迫 良範 広島県出身。Shibuya.pm二代目リーダー。ppencodeの作者。2003年「mod_perlにおけるC10K Problem」で発表者デビュー。 日本初のYAPC::Asia Tokyo 2006を立ち上げたメンバーの一人。 大学卒業後、独立系ITベンチャーにて大企業向けmod_perl製品開発とi18n（国際化）を担当。その後、上京し、セキュリティ研究開発の傍ら、エンジニア採用、産学官連携と日本の若手IT人材育成に関わる。 現在は大手企業
Atomの自動補完プラグイン「autocomplete-plus」のPerl用Providerを書いている話 - Takuji->find;
これは はてなエンジニアアドベントカレンダー2016 23日目の記事です。 qiita.com developer.hatenastaff.com 昨日は id:takuya-a さんの文字列アルゴリズムの学びかたでした。 こんにちは、はてなでアプリケーションエンジニアとしてWebサービスやAndroidアプリ（たまにiOSアプリ）を開発しているid:takuji31です。 私は普段VimでPerlを書いているのですが、最近AtomでPerlを書きたくなってAtomの自動補完プラグインである「autocomplete-plus」のPerl用Providerを書いているので、今日はそのことについて話します。 先に謝罪しておきますと、本来はこのエントリーで公開しましたと告知する予定でしたが、まだ実用的なクオリティーには達していないので、開発中とお知らせするだけになります 🙇 github.c
モジュールメンテナンスを通じて感じる最近のPerl - YAPC::Hokkaido 2016 // Speaker Deck
モジュールメンテナンスを通じて感じる最近のPerl
5分でわかる Perl and web security
yapcjapan2016_lt.md 5分でわかる Perl and web security ma.la CSRFとかXSSとか CSRF: フレームワークの機能使って下さい XSS: Xslateとか自動エスケープして下さい、jsの動的生成はするな 終わり 本題 YAPCなのでPerl固有の問題について解説します。 Webアプリケーションの一般的な流れ パラメータ受け取る(フォームとかJSONとか) 何らかの処理をする レスポンスを返す(HTMLとかJSONとか) フォームやJSONを安全に受け取るには paramはscalarで受け取りましょう Why $params = { name => $r->param("name"), value => $r->param("value"), } これをやると ?name=hoge&name=fuga で壊せる。 list context
Light weight callback APIを使う場合とそうでない場合の差 - Shohei Yoshida's Diary
List::UtilsBy::XSを書いてます。 - Life is very short のようなことを今やっています。詳しく Perl APIを理解できている わけではないので、List::Util、List::MoreUtilsを参考にしています。 それらのモジュールでは Light weight callback API(MULTICALL等)が 使われているのですが、'perldoc perlcall'を見ると zip_byとか bundle_byはそれらを使って実装できなさそうです。 そこでリストの処理を XS化する場合のキーポイントと思われる Light weight callback PAIを用いた場合とそうでない場合の比較を 行なってみました。 ソース コールバック関数に配列要素を $_として与え、各結果を戻り値として 返すというものを実装しました。 (私の知識不足で問題
高速にリストからハッシュにする - アリ
いまいちピンとくる言い方が分からないけれど，つまりはこういうこと． [ { id => 1, value => 'foo', }, { id => 2, value => 'bar', }, ] このようなデータ構造があったときに，以下のようにidをkeyとしてハッシュにしたい． { 1 => { id => 1, value => 'foo', }, 2 => { id => 2, value => 'bar', } } 割とよくあることなので，普段はmapを使ってこのように書いている． my $x = +{map { ($_->{id} => $_) } @users}; これは，List::Utilのreduceを使っても同じように書ける．引数の先頭がハッシュリファレンスになっていて，それを引き回すことで実現している． use List::Util qw/reduce/; my $x
Rendering React Components Using Perl - Tilt Engineering Blog
The Tilt.com website was originally built using Perl. Perl on the backend helped us get to where we are today, but about a year ago we began …The Tilt.com website was originally built using Perl. Over the years, we added jQuery UI to build widgets that had dynamic page behavior. Perl on the backend and jQuery UI on the frontend helped us get to where we are today, but about a year ago it was clear
Perlでプラガブルモジュールを作ろう！：第2回 attributeを使ってplugin作成を支援する｜gihyo.jp … 技術評論社
今回のテーマ 今回は、Perlのattributeという仕組みの詳細と、そのattributeを利用したClass::Componentのpluginについての解説、pluginの作成方法といった話題を取り上げます。 サンプルアプリケーション 本連載では、プラガブルなモジュールを作製するという事を考えて、Gopperという実際に実行可能なサンプルアプリケーションを元に解説を行ないます。GopperはCodeRepos上のsvnリポジトリに置いてあるので各自checkoutしてください。 svn co -r 455 http://svn.coderepos.org/share/lang/perl/Gopper/trunk Gopper attributeとは attributeとは、Perlのサブルーチンや変数に属性を定義して、サブルーチンとしての挙動を標準から変更したり、どのようなサブルー
Mouse::Util::TypeConstraints - Type constraint system for Mouse - metacpan.org
NAME Mouse::Util::TypeConstraints - Type constraint system for Mouse VERSION This document describes Mouse version v2.5.10 SYNOPSIS use Mouse::Util::TypeConstraints; subtype 'Natural' => as 'Int' => where { $_ > 0 }; subtype 'NaturalLessThanTen' => as 'Natural' => where { $_ < 10 } => message { "This number ($_) is not less than ten!" }; coerce 'Num' => from 'Str' => via { 0+$_ }; enum 'RGBColors'
JQuery - Interface to Jquery, a language based on Javascript - metacpan.org
NAME JQuery - Interface to Jquery, a language based on Javascript VERSION Version 1.00 SYNOPSIS JQuery provides some of the functionality provided by the JQuery language. use JQuery; my $jquery = new JQuery(jqueryDir => '/jquery_js') ; my $accordion = JQuery::Accordion->new(id => 'myAccordion', headers => \@headers, texts => \@texts, panelHeight => 200, panelWidth => '400px' ) ; $jquery->add_css_l
AUTOLOADによる他クラスへのメソッドの委譲のテスト - ゆううきブログ
最近，Net::Qiita http://search.cpan.org/~yuuki/Net-Qiita-0.03/lib/Net/Qiita.pm というモジュールを作った． そのモジュールの中で，Net::QiitaクラスのAUTOLOADで，Net::Qiita::Clientが持っているメソッドを動的に呼び出す（委譲するとかいうらしい）ということをやった． Rubyでmethod_missingでメソッド名を取得してrespond_toしてsendする感じ． use Net::Qiita::Client; sub new { my ($class, %options) = @_; Net::Qiita::Client->new(\%options); } # Delegate method to Net::Qiita::Client object sub AUTOLOAD { m
【2016年度版】このPerlハマりどころがすごい！100連発 - Hatena Developer Blog
はじめに autovivificationを避ける myと後置ifを同時に使ってはならない return;で返る値は空のリスト 正規表現によるバリデーションでは\Aと\zを使おう '0' は偽で評価される each は中断した時、中断した時点の状態が残り続ける おわりに はじめに こんにちは。アプリケーションエンジニアの id:t_kyt です。 春です。Perlを始めるにはいい季節ですね。Perl始めていますか？ どの言語にもハマりどころというものがありますがPerlも例外ではありません。というわけで今回はPerlを始めた人がハマりがちなポイントを幾つか紹介したいと思います。 この記事ははてなの教科書程度の知識を前提としています。またモジュールに依存しない部分に絞りました。 github.com autovivificationを避ける autovivificationとはundefの入
Perlの組み込み関数 wantarray の翻訳 - perldoc.jp
Returns true if the context of the currently executing subroutine or eval is looking for a list value. Returns false if the context is looking for a scalar. Returns the undefined value if the context is looking for no value (void context). 現在実行中のサブルーチンか eval ブロックのコンテキストが、 リスト値を要求するものであれば、真を返します。 スカラを要求するコンテキストであれば、偽を返します。 何も値を要求しない(無効コンテキスト)場合は未定義値を返します。 return unless defined wantarray; # don't bo
「切り捨て」に int() は使うべからず : にぽたん研究所
Perl で、浮動小数点数の整数化 (小数点以下の切り捨て) をやる場合、 int() を常用していたけど、どうやら、これは基本的に推奨されてないということを、今更ながら知る。 これって常識？ % perldoc -f int int EXPR int Returns the integer portion of EXPR. If EXPR is omitted, uses $_. You should not use this function for rounding: one because it truncates towards 0, and two because machine representations of floating point numbers can sometimes produce counterintu- itive results. For exam
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
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 ); これダメ！ 絶対ダメ！ 死ぬ！ 最初に結論を書く 必ず以下のように
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
頼りがいのあるORM「Aniki」徹底解説!
https://github.com/sonots/ruby-sql-maker/blob/master/scripts/perl2ruby.rb
