存在不明のパス名からディレクトリを構築する


公開 (UL): 2020-06-07
更新 (UD): 2020-06-07
閲覧 (DL): 2021-05-07

この記事のもくじ

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

前の記事

2020-05-04
UTF-8 文字(列)と UNICODE の変換

次の記事

2020-12-22
年月日から曜日を求める数式

最近の記事

2021-03-04
全角⇔半角の変換
2021-02-23
五十音の「辞書順」の処理
2020-05-04
エスケープ文字変換/復元
2020-03-23
準プレーンテキスト形式
2019-12-06
プレーンテキスト文字化けのブラウザとサーバ対策
新着情報

新着情報 Recent docs.

Sorry, but almost these pages are only Japanese.
「マイナンバー」が危険なこれだけの理由 «The reasons of "My-Number System" is danger.»
それでも「マイナンバー」を推す裏の理由を推察。
「確定申告書等作成コーナー」を使ってみた «Report of the using "Tax-office" website.»
まぁまぁ使えたそのコーナー,感想と要望など。
詐欺メールを晒す! «A real phishing mail!»
サイト管理者の元に届いた「詐欺メール」を晒すとともに,その対処,防犯対策を紹介。
デジタル化なら「スタイル編集」すべき «Let's "Style-Editting" with word-processor application.»
ワープロで「書式設定」の代わりに「スタイル編集」することで使える様々な便利機能。
「差別意識」を世に広め続けるタテワリ行政 «"Tatewari" means hard to work over-ministries cooperation in Japan. I'm worried it makes racist mind.»
「タテワリ構造」が解消しないと「差別意識」も根絶できない話。

人気記事 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 ダウンロード多数御礼!←地方教育委で人気。
NTT 東日本代理店の勧誘のあり方に対する疑問 «I feeled pretty doubt the solicitation of "Optical-fiber communication" from the agency of NTT-east corporation.»
「あえて」分かりにくい説明をする業者に儲けさせてはいないか?
貧乏人を殺す行政の構造 «Structurally, the administrators kill the poors in Japan.»
ヘタすると多摩川に流されるところだった台風 19 号

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

おすすめ! Recommend

「事故防シート」について «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.»
当サイトで開発/使用中の日本語向けに特化した軽量マークアップ言語

ご支援 Support this site.

この活動をご支援いただける方はこちらへ
Could you support this site, see here (but Japanese).

 ファイル作成時,指定パスの存在を確認し,ディレクトリが存在しない場合に根元に近い既存ディレクトリからディレクトリを新規作成してパスを構築していくための処理。

● perl の場合

 関数再帰呼び出しでパラメータのふるまいがおかしかったのでメモ。
 こんな関数を作ったのだが……。

▼ 再帰的ディレクトリの確認と構築(失敗する)
  sub	mkdirRc {
	return( ( -d $_[0] )||
	  ( $_[0] =~ /\/[^\/]+$/ && mkdirRc( $` ) &&
		mkdir( $_[0], 0777 ) ) );
	}

 受け取ったパラメータのパスが既存なら真を返し(2行め),存在しなければ,最後のスラッシュより前の文字列,つまり親ディレクトリのパスを再帰的に自分に渡して再調査(3行め)をしてから,受け取ったパラメータ名でディレクトリを作る(4行め)。途中で何かエラーがあれば,ディレクトリは作られず偽を返す。
 なかなかシンプルに書けたと思っていたが,正しく動作しない。途中で「File exists」というエラーが出る。つまり,存在しないディレクトリでも,「既に存在している(から作れない)」エラーが出る。

 調べたところ,親ディレクトリを辿っていき,存在するディレクトリに行き着くと再帰呼び出しから返って来た時のパラメータ($_[0])が全てそのディレクトリ名になってしまうという現象が起きていた。だから,それ以降は既存ディレクトリ名で mkdir が呼び出されるらしい。
 たとえば,このサブルーチンでファイルを作るためにパスを構築したい時は以下のように呼び出すわけだが……。

▼ ファイル作成のためのディレクトリの構築
	$filname = "/home/user/dir1/dir2/file";
	$filname =~ /\/[^\/]+$/;
	mkdirRc( $` );

 /home/user が既存の場合,親ディレクトリを辿ってそこに行き着くと,そこから返って来た時は呼び出した側の $_[0] も /home/user になってしまっていて,mkdir で「既に存在する」エラーが出てしまう。
 こうしたら出なくなった。

▼ 再帰的ディレクトリの確認と構築(成功する)
  sub	mkdirRc { my $p = $_[0];
	return( ( -d $p )||
	  ( $p =~ /\/[^\/]+$/ && mkdirRc( $` ) &&
		mkdir( $p, 0777 ) ) );
	}

 1行めの my $p に値を移しただけなのだが。パラメータ配列(@_)というのは,そのサブルーチン「唯一」のものなのか?
 そのワリに,以下の「階乗」を求める関数は正常に動作する。

▼ 階乗を求める
   sub fact { return $_[0] ?( fact( $_[0]- 1 )* $_[0] ): 1; }

 どういう現象なんだろ。



© M.Ishikawa; TREEWARE 2021.