なんと2018年の記事です．皆様無事明けられておりますでしょうか． さてYAML::XSには2017年に色々と変更が入り，実用するにあたり非常に便利な機能が色々と導入されました (具体的に言うと，$YAML::XS::LoadBlessedと$YAML::XS::Booleanです)．また安定化が図られました *1． というわけで個人的に，最近PerlでYAMLをserialize/deserializeするにあたってはYAML::XSを使うことが多くなってきたわけですが，そこでふと各YAMLライブラリの性能について気になったのでベンチマークを取ってみたという次第です．以下はその記録です． 追記 最近はYAML::PPもオススメな気がします。— Shoichi Kaji (@shoichikaji) 2018年1月18日 とのことでしたので，YAML::PPについても記載しました． ベンチ
http://d.hatena.ne.jp/hirafoo/20110529/1306600000 を書いたら即行でxaicronさんからコメントを頂いた。 自分は use ifのifをビルトイン関数のifだと思ったけど、ビルトイン関数のifはこんな使い方はできない。後置ifは使えるけど。 で、教わったとおり if.pm を見る。 package if; $VERSION = '0.05'; sub work { my $method = shift() ? 'import' : 'unimport'; die "Too few arguments to `use if' (some code returning an empty list in list context?)" unless @_ >= 2; return unless shift; # CONDITION my $p =
名前 JSON::XS - 正しくて高速な JSON シリアライザ/デシリアライザ JSON::XS - 正しくて高速な JSON シリアライザ/デシリアライザ (http://fleur.hio.jp/perldoc/mix/lib/JSON/XS.html) 概要 use JSON::XS; # exported functions, they croak on error # and expect/generate UTF-8 # エクスポートされる関数, これらはエラー時には # corak し, UTF-8 を期待/生成します. $utf8_encoded_json_text = encode_json $perl_hash_or_arrayref; $perl_hash_or_arrayref = decode_json $utf8_encoded_json_text; # O
Win32::OLEモジュール（日本語チョウ訳） Ver. 0.14 by Hippo2000(2001/2/20) PerlからExcelだろうがWordだろうが自由に扱えるというWin32::OLEモジュールです。 Copyrightの先頭にあるMicrosoftの文字が光りますね。 Jan Duboisさんにはメールで了解をいただきました。 内容等が間違っていたら修正します。ご連絡ください。 名前 概要 説明 メソッド オブジェクト・メソッドとプロパティ 関数 オーバー・ロード イベント モジュール・オプション 例 注意 Microsoftオフィス オートメーションのためのヒント 互換性の欠如 バグと制約 参考資料 作者(AUTHORS) 著作権(COPYRIGHT) バージョン 名前 Win32::OLE - OLEオートメーション拡張 概要 $ex = Win32::OLE->
概要 スカラ変数に関する様々な処理を行うサブルーチンを集めたモジュール。Perl 5.8 以降で標準モジュール。 サブルーチンを使用するためには、インポート時にサブルーチン名を明示的に指定する。 提供されるサブルーチン blessed(EXPR)EXPR が bless() によって関連付けられたリファレンスであれば真を返す。 $var = dualvar(NUM, STRING)変数 $var について、数値として評価された場合に NUM として、文字列として評価された場合には STRING としてそれぞれ振る舞うようにさせる。 isvstring(EXPR)EXPR がバージョン文字列（v5.5.1 など）として記述されていれば真を返す。 isweak(EXPR)EXPR が弱いリファレンス（weak reference）であれば真を返す。weaken を参考のこと。 looks_li
2007年09月21日00:45 カテゴリLightweight Languages perl - $scalarの中身が数値か否かを判定する 詳しくはCookbookの2.1を参照してもらうとして、これは以外とよく出てくる設問なので。 Perl Cookbook (English) Christiansen / Torkington [邦訳: Perlクックブック] Kazuho@Cybozu Labs: MySQL の高速化プチBKところで、実数の場合はどうすればいいんでしょうね。 Scalar::Util::looks_like_number() Perl 5.8.1以降であれば、第一選択はこれです。第一引数の結果が数値か否かを、Perl APIに直接問い合わせるので高速です。ベンチマークを最後に示しますが、真偽ともに正規表現と比較して250倍高速です。 Regexp::Common
名前¶ Clone - ネストしているオブジェクトの再帰的コピーのためのPerl拡張 書き方¶ use Clone; push @Package::A::ISA, 'Clone'; $a = new Package::A; $b = $a->clone; # あるいは use Clone qw(clone); $b = clone($a,1); 説明¶ Cloneモジュールはネストし、tieされている変数も含めて、 ハッシュ、配列、そしてスカラのオブジェクトの再帰的なコピーを作成する cloneメソッドを提供します。オプションのパラメータによってコピーの深さを 制限することが出来ます。 作者¶ Ray Finch, ray@classmates.com Copyright 2000 Ray Finch. This module is free software; you can redis
Win32::Soundモジュール（日本語チョー訳） by Hippo2000(1999/7/4) Win32::Soundモジュールなのです。これであなたのパソコンでもPerlでWAVEファイルを演奏できます。 マルチメディアですねぇ。(^_^) このドキュメントではWin32::Soundをインストールするときに作成されるSoundhtmlを日本語に訳そうとしたものです。わかりにくい部分は本物を見てください。(^^; 原本の著作権はAldo Calpini氏がお持ちです（詳しくは作者の部分を見てください）。 Aldo Calpiniさんにはメールで了解をいただきました。 Thank you again, Mr.Calpini! なお内容等が間違っていたら修正します。ご連絡ください。 目次 名前 概要 関数 WaveOutパッケージ 関数 サウンド形式 コーディング例 バージョン 作
～ Perl : [ timegm / timelocal ] で「年」引数の仕様の正しい理解と使い方について ～ [ 祝日ロジック( Perl )へ戻る ] (補) ～ この問題で影響を受ける範囲 ～ [ 2011/3/24 追記 ] 「1900年代の日付（[$year-1900]=0～99 になる）を使う事は絶対に無い」という場合には、この問題に 抵触しませんので、[$year-1900] の使い方を続けても全く支障ありません（2000年代以降の日付ならば [$year-1900]の値が３桁になりますので、timegm/timelocalに[1900年からのオフセット]として解釈 して 貰えます）。 「カレンダーツール・日付に関する関数」等の開発に際して、1999年以前もカバーするという仕様を検 討する場合には、この問題に注意を払ってください。引数をエポック秒で受け取る仕
UNIX系標準仕様の関数を、Perlでも使えるようにするPOSIXモジュール。その中でもstrftime関数は、日付や時刻を特定のフォーマットで出力したい時の選択肢のひとつです。 が、Windows人としては、POSIXと言われてもリファレンスが無いと分からないです。ということで、strftimeのフォーマットの指定方法のメモです。 モジュールの使い方 useするときは関数名を指定して読み込む use POSIX qw(strftime); # 現在の日付・時刻を、取得 my $datetime = strftime("%a, %d %b %Y %H:%M:%S %z", localtime()); [ ページ先頭へ ] フォーマットの指定方法 日付関係 %Y
2007年04月19日04:15 カテゴリLightweight Languages perl - 勝手に添削^2 - loop control 他にもつっこみどころはあるのですが今回は、loop controlに的を絞って。 Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] ここギコ！: 安易なループは慎むべきですね jnaoyaのはてな日記 - 添削その2 [H.Iさんのコメントを受け加筆訂正アリ] まずは、DCONWAY先生の一言から。Loopに関する黄金則です。Perl以外でも有効。 Reject As many iterations as possible, as early as possible. 繰り返しは排除せよ、それもなるべく早い段階で 以下をご覧下さい。 jnaoyaのはてな日記 - 添削その2 while (m
Kawa.netxp [Perl] XML::TreePP／Pure Perl実装によるXMLファイル展開モジュール XML::TreePP モジュールは、 XML ファイルを解析してツリー構造の多次元変数（ハッシュ／配列）に展開します。 XML テキストと Perl オブジェクト（ハッシュ＆配列）間の相互変換が可能です。 コンパイル不要の Pure Perl 実装モジュールなので、 プロバイダのレンタルサーバ環境でも .pm ファイル単体のコピーのみで手軽に利用できます。 （Ajax で利用する JavaScript の XMLHttpRequest オブジェクトのように） サーバからの XML ファイルのダウンロード処理にも対応しています。 安定版アーカイブ： XML-TreePP-0.41.tar.gz TARGZ CPAN ←通常パッケージ 最新版ソースファイル： lib/XML/
日頃より楽天のサービスをご利用いただきましてありがとうございます。 サービスをご利用いただいておりますところ大変申し訳ございませんが、現在、緊急メンテナンスを行わせていただいております。 お客様には、緊急のメンテナンスにより、ご迷惑をおかけしており、誠に申し訳ございません。 メンテナンスが終了次第、サービスを復旧いたしますので、 今しばらくお待ちいただけますよう、お願い申し上げます。
Perl5.9の時点では，assersionsと-Aコマンドラインスイッチという仕組みでCのassert(3)のようなことができるようになるはずだったらしい。しかし，そのメカニズムはPerl5.10には結局採用されなかった。 開発中はassert()が欲しい，しかし，リリース後の実行時パフォーマンスは落としたくない，というのがAssertを考えるときのジレンマというわけだ。そんななかで，CPANのCapr::Assertは関数呼び出しを完全に消し去ることができるので悪くない方法だと思う。 use Carp::Assert; assert($x > 1) if DEBUG; DEBUGはCarp::Assertの提供する定数関数で，その値が偽ならばこの一文はコンパイル時に完全に削除される。 $ PERL_NDEBUG=0 perl -MO=Deparse -MCarp::Assert \ >
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
