How to change @INC to find Perl modules in non-standard locations
When using modules that are not installed in the standard directories of Perl, we need to change @INC so perl will be able to find them. There are several ways to do that solving different use-cases. We are going to see a use-case and a solution, but if you have arrived to this page, I wonder, do you really have a special case, or do you just need to install the Perl module? Loading your private P
【Perl, Windows】WMIに接続する（基本編） | blog.delphinus.dev
前回のネタについて細かく見て行こう。 そもそもWMIとは何か。 Windows Management Instrumentation – Wikipedia http://ja.wikipedia.org/wiki/WMI Windows Management Instrumentation（WMI）は、Windows Driver Modelへの拡張の一種で、システムの構成要素について情報収集と通知を行うオペレーティングシステムのインタフェースを提供する。 これだけではなんだかよくわからないが、要するに、OSから得られる様々な情報に対する統括的なインターフェイスだ。Windowsの状態について知りたいならばこれで全て賄えるのである。 PerlからこのWMIへのアクセスにはWin32::OLEモジュールを使う。基本的な構文はこうだ。 $wmi = Win32::OLE->GetObject
各メジャーバージョンの Perl に同梱されている List::Util で使える関数一覧 - Qiita
リスト処理に有用な関数群を収録している Perl モジュール List::Util はコアモジュールであり、原則的にどの Perl 環境でも同梱されています。 とはいえ、Perl のバージョンアップに伴って、同梱されている List::Util もバージョンアップしており、収録されている関数にも差異があります。2010年前後の古い Perl だと外部モジュール List::MoreUtils を別途インストールしないと出来なかったことも、2020年代の新しい Perl であれば List::Util のみで完結することもあります。 以下、Perl のバージョンと、それに同梱されている List::Util のバージョン、そしてその List::Util が提供する関数一覧を表にしてみました。なお Perl 5.8 より前のバージョンの Perl は省略しています。 Perl List::U
Perl の関数をオーバーライドする
一時的なオーバーライド (Foo.pm) package Foo; use strict; use warnings; sub bar { my $baz = shift; $baz * 2; } 1; (hoge.pl) #!/usr/bin/perl use strict; use warnings; use Perl6::Say; use Foo; say Foo::bar(3); # 6 { no warnings 'redefine'; local *Foo::bar = sub { my $baz = shift; $baz ** 2; }; say Foo::bar(3); # 9 } say Foo::bar(3); # 6 関数を、local で一時的に上書きする。 no warnings 'redefine'; は関数の再定義を許してね、という宣言。 no warnin
地獄のPerlを解説する - Qiita
各要素を解説する 以降、Perlを知らない人向けの要素説明をします。 Perlは、動作を如何様にも変更できるため（演算子の元の意味なんて飾りです）、既定の動作のみ説明します。 <> while文の評価値として <> があります。 これは、ダイアモンド演算子です。 ファイル読込みや標準出力読込みを簡単にする際などに利用します。 while文の評価値にダイアモンド演算子がある場合、ファイルを一行ごと読込んで処理できます。 行入力演算子「<>」 - ファイルから一行読み込む - Perlゼミ ちなみに、while文で取得できる一行の値がどこに入るかと言うと、 $_ に入ります。 $_ 様々な箇所で登場していますね。 これは、デフォルト変数と呼ばれるものです。 Perlでは、評価値を受取る変数を定義しない場合、デフォルト変数に値が入る仕組みになっています。 また、関数によっては、引数を指定しない場
qr - 5部 関数リファレンス - [SMART]
この演算子はSTRINGを正規表現としてクォートします (可能ならコンパイルします)。引数STRINGはm/PATTERN/内のPATTERNと同様に文字変換されます。 ダブルクォーテーション（ " ）がデリミタとして使用された場合、文字変換は行われません。 簡単な使い方 # $patternの値を正規表現としてクォート $re = qr/$pattern/; # qrの返却値を利用してマッチング $string =~ /$re/; 上記のように、qrの返却値はパターンマッチのサブパターンとして使えます。 Perlはqr演算子を実行する際にパターンをコンパイルするので、qrを使うことでいくつかの場面で速度的に有利になります。特にqrの結果が独立して使われる場合に有利になります。 sub match { my $patterns = shift; # $patternsの値（複数）を一括して
map, grepの中でreturn - Qiita
map, grepのブロックの中でreturnするとそのブロックではなくその外側のブロック(サブルーチンなど)からreturnする。 perl v5.14.2で確認。 use strict; use warnings; use feature qw(say); use List::Util qw(first reduce); sub custom1(&) { shift->(); } sub custom2(&@) { shift->(); } sub test_grep { my @a = (1); @a = grep { return 'from inside grep' } @a; return 'from outside grep'; } sub test_map { my @a = (1); @a = map { return 'from inside map' } @a; re
EXIF抽出スクリプトのサンプル
JPEGファイルからExifを取り出すPerlスクリプトです。ソースを短くするため、シンプルな機能に絞っており、あまり最適化もしていません。ひな形としてお使いください。 最初の%target_tagで定義したExifタグのみを取り出すので、必要なデータだけを抽出して利用できます。実際の出力はサブルーチンread_dir_entryで行っているので、ここのprint関数の部分を書き換えると、XHTMLのテーブルなど、好みのフォーマットで出力できます。 コメントフィールドは、とりあえず内容にかかわらずそのまま出力しています。必要に応じて、RDFであることをチェックしたり、XMLを適当な形に変換するなど書き換えてください。 #!/usr/local/bin/perl #グローバルで使う変数 ($buf, $long_tmpl, $short_tmpl) = (); #抽出するExifタグを定義す
どうしても業務命令でPerlを使わざるを得ないあなたに送る、IDE（IntelliJ）でPerlを殴る方法。
今更なんで俺perlの環境をいれてるんだろう。。。 しかし昔の俺とは違う。 今はIntelliJがそばについているんだ。 俺はこいつと一緒にPerlを殴りに出かけた。 （注）この記事は前職で社内向けに書いたナレッジの修正版です。 plenv perlのバージョン管理。 だいたいこいつのインストールで数分の時間を取られる。 goのインストール時間をもっと見習って欲しいところですね。 https://papix.hatenablog.com/entry/2018/03/10/160838 anyenv入れておくと便利だよ。 欲しいperlバージョンをインストールしたら、 plenv install-cpanm してcpanmをインストールしておくこと。 carton モジュール管理。 cpanmとか使ってる人は今すぐ窓から飛んだほうがいい。 cartonは厳密なバージョン管理で冪等性が保たれる
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Breaking out of a 'do while' loop in Perl
How to Identify a Good Perl Programmer
perlreref - Perl の正規表現のリファレンス - perldoc.jp
Indented HEREDOC?
MSXML, It's Not Just for VB Programmers Anymore
sub_graph.pl: perl call graph generator
simple factorial function in perl error: return outside a subroutine
Win32-API-Prototype WNet
log - Perldoc Browser
perl でソケット通信 - ふなWiki
Win32::GUI::Scintilla
