「Excel ファイルの内容を Ruby を使って高速取得する」の記事を見て。 Perlでは「Spreadsheet::ParseExcel」を使うことにより、Excelファイルの内容を取得できます。 「Spreadsheet::ParseExcel」はExcelを起動しないため、上の記事よりもずっと早く取得できます。 しかも、Windows以外のOSでも動作可能。 最初に、Spreadsheet::ParseExcelをインストールします。 ActivePerlの場合、 ppm install Spreadsheet-ParseExcel その他の場合、 perl -MCPAN -e shell install Spreadsheet::ParseExcel 実際のコード #!/usr/bin/perl use strict; use Spreadsheet::ParseExcel; m
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
デバッグのときに XXX とか WWW とか使うようになったのだが、出力がyamlだとどうもピンとこない。で、普通はuse XXX -dumper しているのだが、Test::Baseを使ってるときは、Test::Baseが(というか中にあるSpiffyが) XXX 等をエクスポートしているので use Test::Base; use XXX -dumperと書くと警告がでる。 そんなこんなで今までyamlで我慢していたのだけど、こうすればよいことを発見。 use Test::Base; use Spiffy -dumper; ほんとはuse Test::Base -dumper;なんて書きたい気分だけど、まあこの辺で妥協。
シンプルなPerl 5でクラスを作る 普通のPerl5 OOでクラスを書くと { package Dog; use strict; use warnings; sub new { my ( $class, %args ) = @_; my $obj = bless { name => $args{name}, gender => $args{gender}, }, $class; return $obj; } sub name { my $self = shift; $self->{name} = shift if @_; return $self->{name}; } sub gender { my $self = shift; $self->{gender} = shift if @_; return $self->{gender}; } sub bark { my $self = s
local にある tar.gz ファイルのモジュールから依存関係にあるモジュールも含めてインストールする。 例えば次の状況の場合 ・root権限を使用しないで、任意のユーザーがインストールする。 ・CPANにあげていない、自作のPerlモジュールを依存関係にあるモジュールを含めてインストールする。 インストール先を ~/perl/lib とする。 環境変数を指定しておく export PERL5LIB=~/perl/lib ※ 依存関係にあるモジュールは、cpan シェルで設定したmakepl_arg などが適用されるため cpan シェルで設定を行う。 ※ $CPAN::Config options from '/home/$HOME/.cpan/CPAN/MyConfig.pm':(ユーザー用の$CPAN::Configに設定) 任意のユーザーで、cpan シェルを起動 cpan
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
Shawn M Moore <sartak at gmail.com> Aleksandr Matveev Alex Solovey Bernhard M. Wiedemann Boutros Lab User Brett Chris Prather Daisuke Maki (lestrrat) Daisuke Maki Dann David Steinbrunner Eiichi Tsukata FUJI Goro (gfx) Fuji, Goro Ingy dot Net Jesse Vincent Joel Bernstein John SJ Anderson Kensaku Araga Kent Fredric Luca Ferrari Masahiro Honma Matt S Trout Michael G. Schwern NAKAGAWA Masaki Nick Wool
uuidの生成の仕方はどれがいいのかな、という訳で色々ベンチとってみた。 APR::UUIDとData::UUIDの比較 my $du = Data::UUID->new; cmpthese(100000, { 'APR::UUID' => sub { APR::UUID->new->format;}, 'Data::UUID' => sub { $du->create_str(); }, }); Rate APR::UUID Data::UUID APR::UUID 86207/s -- -12% Data::UUID 98039/s 14% -- Data::UUIDの方がちょっと速い。 Data::UUIDでも毎回newするとかなり悲惨 cmpthese(100000, { 'Data::UUID new each' => sub { Data::UUID->new->create_
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く