🚀 go-pugleaf

>>>>> kazuhiko.nammei@toshiba.co.jp (Kazuhiko Nanmei) (="nammei") さん
>>>>>   <6hhk95$fjc@ux37.fuchu.toshiba.co.jp> で
>>>>> 21 Apr 1998 08:10:13 GMT に言われるには:

 >> 実際使うコマンドは、mkdirでは無く、他の外部コマンドなんですが・・・
 >> また、そのコマンドが、-pの様なオプションを実装してくれていなんで
 >> 困ったしだいです。

 nammei> というのが、真意です。
 nammei> 質問の内容が伝わらずに、スミマセンでした。

いえ、-d が使えないことを除けば、わかっていましたよ。ご心配なく。

 nammei> 私なりに書いてみたのが、以下です。

ちょっと刈り込んでみました。

 nammei> $path = "" ; パスの初期化

これはなくても同じですね。元々空なので。

 nammei>   $path = join("/", $path , $_ );

これは
	   $path .= "/$_";

の方が読みやすいでしょう。perl の実装を知らないので、速いかどうかは言
えませんが。

 nammei>   $path =~ s#/+#/#g ;

@d が split で作ったものなら、この処理が必要になる場合はないのではない
でしょうか? 


その他端折って、こんな感じにしてしまいます:

#! /usr/local/bin/perl
for (split m'/', '/hoge_top/a/b/c') {
  $path .= "/$_";
  system("MKDIR $path >/dev/null 2>&1")
    if system("LS -d $path >/dev/null 2>&1");
}
--
				東芝	入内島 健	横浜市鶴見区在住
mailto: ken.iriuchijima@toshiba.co.jp, junkto: ken@gaea.ssel.toshiba.co.jp