🚀 go-pugleaf

>>>>> inaba@st.rim.or.jp (Inaba Hiroto) (="稲") さん
>>>>>   <yaxo1aai.fsf@carnival.st.rim.or.jp> で
>>>>> 3 Apr 1998 01:02:49 +0900 に言われるには:

 nammei> mkdirの-pオプション相当を実現したいのですが、どんなふうに
 nammei> 書けば良いんでしょうか？
...
>	   @d = split m'/';

>	   for (@d) {
>	     mkdir $_
>	       unless -d $_;
>	     chdir $_;
>	   }

 稲> この考え方でいいと思いますが、ちょっとだけ別のやりかたをしてみました。

私のやり方は基本に忠実ではあったと思いますが、

 稲> #/usr/local/bin/perl -w
 稲> for (@ARGV) {
 稲>   while (m:/|$:g) {
 稲>     mkdir $`, 0777 or die "Can't mkdir $`: $!\n" if $` ne "" and !-d $`;
 稲>   }
 稲> }

また、目から鱗が落ちました。稲葉さんのコードを見ていると、自分にとって
はまだまだ perl が外国語なのを思い知ります。

m//g を list context で使えば split は使わずに済んでしまうんですね。し
かも、$` を使えばいちいち chdir する必要がない、と。
--
				東芝	入内島 健	横浜市鶴見区在住
mailto: ken.iriuchijima@toshiba.co.jp, junkto: ken@gaea.ssel.toshiba.co.jp