Perl で利用宣言時にモジュールをカスタマイズする


公開 (UL): 2021-12-17
更新 (UD): 2021-12-21
閲覧 (DL): 2024-05-20

この記事のもくじ

→本文へ
当サイトは SNS の公式アカウントがないので,「議論ネタ」にする際は,皆さんのブログ,メーリングリスト,SNS や掲示板などで,適当にハッシュタグを付けたりリンクを掲載するなどしてご利用ください。

前の記事

2021-06-01
Base54

次の記事

2022-04-04
サイトのローカル試験と実ウェブ上の差を縮める手法(Perl)

最近の記事

2024-02-11
XMPP - 長く使える安心チャット
2023-09-15
Perl の正規表現での A と Z の扱い
2023-01-16
Android のキーボード・ショートカット一覧
2022-08-09
代表的な画像ファイル形式一覧
2021-06-01
PPOP
新着情報
She appears also the top page.

新着情報 Recent docs.

Sorry, but most of these pages are only Japanese.
福祉改善を阻むオヤクショ思考 «Japanese subsidy system of communication aid device for disabilities cannot be applied those if it's with features except communication, IDK why.»
「意志伝達」しかできない高額な装置にのみ税金が使われる謎制度。
XMPP - 長く使える安心チャット «Gmail doesn't give you notices? Try to use XMPP chat!» (Japanese only)
Gmail 通知が来ない? XMPP チャットはいかが?
「理不尽採点」教育と「英語力低下」 «Japanese English skill ranking in the world has been down. I guess one of the reason is that the government's education policy lacks coherence.»
日本人の英語力が低下,しかも小学校から英語が必修になった世代ほど。「教育方針の一貫性のなさが原因」とする考察。
倫理意識の社会的低下 «One day, I set to stop DM from a banking corporation, but those continue to be sent after that. I'm feeling falling sense of ethics in Japanese society.»
某銀行からの DM が,およそ金融と関係ないもの多数。停止設定後も何ヶ月も配信が続く状況に,倫理意識の社会的低下を感じた話。
オヤクショの「上から目線」という殺傷光線 «Tokyo government gifted me "Okome(rice) coupon". But I have allergic to rice. The government officers often make services considering insufficiently, then people is leaded wrong by that.»
東京都から届いた「おこめクーポン」は,アレルギー持ちは頼みにくく,ウェブは「申し込めない」地雷だらけ。そうなる原因を考察。
給使乖離現象 «"Server and User Design Gap" phenomenon (abbr: SUDG), it's the trend to lack of considerations in design for user of the service.»
愚かな経営者たちが考えた劣悪なウェブサービスにより,人々が一方的に不利益を被るという話。
日本の「IT 人材不足」の正体 «The simple reason why Japanese companies lack IT-skill.»
保険会社からのセキュリティガバガバメールが「IT 人材不足」の正体を暴く。

人気記事 Frequent view pages.

表計算で「令和」に対応する方法
How to adapt the Gengo era "Reiwa" on spreadsheet applicaiton.

古いアプリも OK。「表計算 令和」の検索結果上位御礼!
表計算ソフトで予定表を自動作成する超便利な方法 «How to make the schedule table automatically on spread-sheet.»
「毎月第○×曜日」的な法則は自動で作らせてラクしよう!
表計算ソフトに「個人情報保護機能」を仕込む方法 «Prevention to leak private-data with spread-​sheet macro function.»
「漏えい」のためのフェイルセーフ。「表計算 個人情報」の検索結果上位御礼!
Wary-Basher (ワリバッシャー)
DIY device that enables the handicapped to operate many things with a switch like push-button.

障害者の様々な操作をスイッチ操作で実現する器具。キットも発売中! 「作り方」PDF ダウンロード多数御礼!←地方教育委で人気。
貧乏人を殺す行政の構造 «Structurally, the administrators kill the poors in Japan.»
ヘタすると多摩川に流されるところだった台風 19 号

この記事に対する → 調布市の反応

おすすめ! Recommend

現在当サイト人気 No.1!
Android のキーボード・ショートカット一覧 «The list of Android Keyboard Shortcuts (EN ready).»
Android のスマホやタブレットにキーボードをつないだ時に知っていると便利なキー操作。
[PDF 118KB] 生活保護申請時のオヤクショ対策
申請の「水際作戦」を突破するための心得。「ホームレス総合相談ネットワーク」製作の図解を小サイズ化したもの。

出典 ☞ 路上からもできるわたしの生活保護申請ガイド (2017 年版) (外部リンク)
文字ベース天気予報 «Weather forecast in text mainly from JMA Json-data.»
古いブラウザやスマホ,音読ソフトでも大丈夫! 気象庁の JSON データを利用した文字ベースの天気予報(試験版)。
「事故防シート」について «Cared persons taking with "Jiko-​Bow-​Sheet" prevents from accidents.»
介護現場の負担軽減と事故防止のアイデア
【連載】 キーボードの「キー」の詳しい使い方 «The detial of usage each key on keybord.»
各キーの機能詳細。機能別五十音順一覧。
和易ゐ記 (WAI-WIKI) «WAI-WIKI is light­weight markup language for Japanese, and generates HTML on this server on-​demand.»
当サイトで開発/使用中の日本語向けに特化した軽量マークアップ言語

ご連絡 Contact

▼ メールフォームはこちら
SSL 証明書の更新に不具合が多いため,期限切れエラーが出た際は,お手数ですが「例外指定」をお願いいたします。 一時期,送信できなかったようです。すみません。今は大丈夫だと思います(テストは OK)。

ファイルの暗号化
当サイト管理者(石川)宛にメール添付で送信するファイルを暗号化したい時は,唯一のパスワードを PPOP で取得できます。 PPOP gives a password for encryption of the file(s) attached your mail to the admini­strator of this site M.Ishikawa.
PPOP

MEMO / Email to the Author
あとで調べたい点のメモなどに利用可能。
下部ボタンでそのまま著者にメールできます。 一時期,送信できなかったようです。すみません。今は大丈夫だと思います(テストは OK)。


CAPTCHA: easy math prob in Japanese

時事川柳 News Senryu

パーティー券  
民意も一緒に
  蹴り返し
Kick back both party tickets and people's opinions.

 自民党の一部(?)派閥がパーティー券のノルマを上回る分の売上げを議員にキックバックしておきながら政治資金収支報告書に不記載だった問題が広がりを見せている。なるほど,こうしたことが党内で常套化していたのだとすれば,岸田総理はじめ同党政治家にことごとく「民意を蹴り返すクセ」が付いているのは当然という感じもする。これっぽっちも「悪いこと」と思わなかったのだろうな。そんな人たちに誰が票を入れるのだろうか。少なくとも,岸田の広島と「頭悪いねぇ」と暴言を吐いた議員を選出した長崎に「ふるさと納税」はしないことにしよう。
参考: 自民県 絶対しないぞ ふるさと税

今回はもう一句!

危機感の  
ワリに二階は
  誰も居ず
Having sense of crisis, but nobody takes shelter of 2F.

 大雨などで危機感を持ったら二階のような高い所へ避難すべき的な話を聞いたよーな気がするのだが? パーティー券のノルマ上回り分キックバックの政治資金収支報告書不記載問題で,安倍派は何人も辞任したのに,同じく捜索を受けている二階派に辞任する話があるかというと,今のところ誰もいない。総理は「危機感を持って」とか言っているらしいが,どこが「危機感」なのやら。

(⌚2023-12-19)

ご支援 Support this site.

まだまだ コロナ失業中!!
CORONA-NEET, seeking works now!

この活動をご支援いただける方はこちらへ Could you support this site, see here (but Japanese).
都道府県庁さん, 地方自治体さんや教育委員会さん, 障害者就労支援機関さんやその他公的機関,省官庁さん, 「タダ見」しているだけでは, 格差が広がるだけだと思いませんか?
Welcome!
Amazon    Google
The companies, thanks for many accesses every months! Are the articles I wrote helping for increasing your income? Although, I cannot get even a penny and jobs from that.

 Perl modules have no notation for custom initializing from external proccess on DECLARATION of "use" or "require". Generally, like a constructor method sub named "new" implements it. But it has a possibility repeating similar initializing proccess on "new" sub and declaration. And I'm afraid that will be a waste operation.

 use や require などのモジュール利用宣言の初期化には,宣言時に行なわれるものと,コンストラクタ(new など)の初期化を含む手続きの呼び出しによるものとがある。そのモジュールを使う側特有の条件を「パラメータ」などとして与えて初期化したい時は,通常は後者の方法になるが,宣言時に行なわれた初期化と処理が重複する可能性がある。しかもこの方法は,「使いたい側が希望する条件では使えない」状況の時に,なるべく早い段階で感知したいと思っても,そのコンストラクタ的な手続きを呼び出すまで分からず,結果的に遅い場合も考えられる。「利用宣言時」の段階で分かればそれに越したことはないが,Perl では呼び出す側で設定したい値を「利用宣言時に」パラメータとして指定するなどの方法でモジュールに渡す方法は,特に用意されていない。
 「利用宣言時」にカスタマイズ的に初期化する「手段」として Perl に用意されているものはないが,調べたところ代替的に使えそうな方法があったのでメモ。

● 詳細

 一般的にモジュールの初期化は,use 宣言などをした時に行なわれるもの(実質的な BEGIN { …… } 処理)と,コンストラクタ的メソッド(通常は new)など「初期化」を含む手続きの呼び出しによりされるものがある。呼び出す側で独自の値を指定して初期化したい場合,たいていは宣言後にコンストラクタ相当の初期化を含む手続きにパラメータを与えて呼び出す方法になるが,場合によっては,モジュールの使用宣言をした時の初期化とコンストラクタ内で,似たような手続きを繰り返す可能性も考えられ,すると宣言時の初期化は半ば無駄な処理になる。
 一方で,もしモジュールの利用宣言をする側にとって目的通りの動作ができない状況があれば,なるべく早い段階……つまり,宣言の初期化時にエラーを返すなどで判明して欲しい場合もあると思われる。
  use や require といった利用宣言時点で,呼び出す側の都合で設定した値によってモジュールを初期化できれば,宣言時点の早い段階での動作確認ができるうえ,無駄な初期化処理もせずに済みそうな気がするが,Perl では宣言時に呼び出す側でそのモジュールに対し何らかの値を指定する方法は用意されていないうえ,use や require で呼び出し宣言されるモジュール内から直ぐ外側(そのモジュール使用を宣言した別のモジュールやスクリプトなど)の変数の値を確認する手段もない。そのため,呼び出す側の事情でカスタマイズした「初期化」をしたくても,「宣言」時点でそれをするための手段がなく,このままだと前述の「無駄な初期化」になると思われる処理を回避することはできない。

 ただ,perl の変数のうち“^_”で始まるものは,必ずグローバルな(main パッケージに属する≒%ENV などに似た)扱いになるのだとか。これを利用すると,呼び出されたモジュール内からもその値が読める。だから,require でモジュール利用を宣言する BEGIN 手続き内にその名前で変数を設定すれば,それは初期化時にも読めるわけで,「初期化手続き」に反映することができる。さらに,local 宣言をしておけば,BEGIN {} 内でのみ有効となり,他の手続きへの影響も避けられる。
 なお,この変数名に {} 括弧は必須らしい(${^_varname} など)。また“^_”自体は予約されているとかで,必ず文字の続く変数にする。

 Perl variables named prefix "^_" (e.g. ${^_varname} ) are accessible from any modules. Then in BEGIN { ... } proccess, you set "^_" prefix variable and use a module by "require", the module can access the variable on the declaration, and initialize with the value of the variable, before call initialize sub (e.g. new() constructor).

◆ 例(example)

 たとえば,こんなモジュールがあったとする。

▼ モジュール INITABL.pm
   package INITABL;
   my	$test;
	  if( exists ${^_INITABLini}->{ test } ){
	  $test = ${^_INITABLini}->{ test };
	  }
    
   sub testPrint {
	print __PACKAGE__ .": The variable \$test is \"$test\".\n";
   }
    
   print __PACKAGE__ .": \$test initialize to the value \"$test\".\n";
   1;

 本来 $test はレキシカルな変数のため外部からアクセスできない。呼び出す側から値を操作することはできないが,モジュール内で初期化時に値を ${^_INITABLini} 変数から取り込んで設定している。

 呼び出す側は,INITABL の require 宣言前に変数 ${^_INITABLini} にハッシュの参照を置き,その {test} に設定したい値を入れておく。

▼ 上記モジュールを呼び出す側(main)
   BEGIN { local ${^_INITABLini}={ test=>"Ok!" };
	  require INITABL;
   }
    
	INITABL::test();
▼ 実行結果(result)
   INITABL: $test initialize to the value "Ok!".
   INITABL: The variable $test is "Ok!".

 実行結果の1行めは BEGIN { …… } 中の require 宣言で呼び出された時に印字されたもので,この時点で既にレキシカル変数 $test に呼び出した側で指定した値が設定できていることを意味する。2行めは呼び出す側5行めの INITABL::test() によって印字されたもの。

 この“^_”で始まる変数を使う方法なら,require 宣言時にカスタマイズした初期化をすることが可能と思われる。

● “^_”を使わなくても読めるケース(2021-12-21 追記)

 その後いろいろ調べたところ,“^_”タイプの変数を使わなくても,モジュール内で変数に設定した値が(MODULE:: を付けずに)呼び出した側で読める場合があることが判明。ただし以下の条件を満たす場合。

◆ 初期化したいなら BEGIN 内

 あるモジュールを use や BEGIN { require …… } などの優先処理宣言で呼び出した場合,宣言よりも前に記載されている処理でも後回しになる。そのため,ある変数に適切な値を調べて設定するモジュールがあったとして,それより前に「デフォルト値を設定しておく」つもりで代入処理を置いても,優先処理宣言されたモジュール内の値の設定が先で,use や BEGIN 宣言の前に記述された「デフォルト値」の設定処理は後になる。結果的に前に記述された「デフォルト値」設定のまま変化しないように見える。呼び出す側で「デフォルト値」を指定したい時は「BEGIN の中で代入処理する」のが適切と思われる。
 一方で,BEGIN { …… } 内に入れずに require 宣言で呼び出すと,宣言より前に使われていた変数もモジュール内でアクセスできる。

 なお use では,こうした「宣言直前の代入処理」などはできない。

◆ use 宣言は BEGIN 内に置かないほうがいい

 どうやら BEGIN 処理の中に use があった場合も,やはりそちらを先に処理するよう。たとえば BEGIN 処理中,$HOME をホームディレクトリ("/home/username")に設定した直後に use lib "$HOME/lib/perl" という処理を置いても,$HOME に値が設定される前に use が処理されるため,@INC には "/home/username/lib/perl" ではなく "/lib/perl" が追加される。BEGIN の外に出すことで記述順通りの処理になるよう。または,BEGIN 内では use lib ではなく unshift @INC, ... を使う。



© M.Ishikawa; TREEWARE 2024.