Re: mkdirの -p オプション相当を実現するには？

Article View: fj.lang.perl

Article #136

#136

From: Inaba Hiroto
Date: Wed, 22 Apr 1998 00:00

31 lines
1924 bytes


Followup-To: fj.comp.lang.perlとしました.

kazuhiko.nammei@toshiba.co.jp (Kazuhiko Nanmei) writes:

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

> う～ん。(?_?)
> 私には？？？（解釈できません）です。(T_T)
> 修行が足りなくて、ごめんなさいm(__)mです。

いえいえ, 自分が衒学的なこと書いてしまったんで, あやまるとしたらこっち
です. でも上の意味がわかるくらいにPerlになじんでもらえたら嬉しいです.

一応自分のコードを書きかえると, 

$_ = '/hoge_top/a/b/c';
while (m:/|$:g) {
  system("MKDIR $` >/dev/null 2>&1") and die "MKDIR failed for $`\n"
	 if $` ne "" and system("LS -d $` >/dev/null 2>&1") ;
}

です.
--
	稲葉 浩人 <inaba@sdd.tokyo-sc.toshiba.co.jp/inaba@st.rim.or.jp>

Technical Details

Message-ID: <7sk98i4gr6.fsf_-_@sdd.tokyo-sc.toshiba.co.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References:

<6fvo5c$jd9@ux37.fuchu.toshiba.co.jp> <38vhss3235.fsf@gaea.ssel.toshiba.co.jp> <6g063d$475$1@meshsv66.os.mesh.ad.jp> <yaxo1aai.fsf@carnival.st.rim.or.jp> <38zphzq03h.fsf@gaea.ssel.toshiba.co.jp> <6hhk95$fjc@ux37.fuchu.toshiba.co.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 1043e7,35a2f9c0f0c5150f
X-Google-Attributes: gid1043e7,public
X-Google-Thread: f9898,cf2bc2d3a2c6b0c2,start
X-Google-Attributes: gidf9898,public
From: Inaba Hiroto <inaba@sdd.tokyo-sc.toshiba.co.jp>
Subject: Re: mkdirの -p   オプション相当を実現するには？
Date: 1998/04/22
Message-ID: <7sk98i4gr6.fsf_-_@sdd.tokyo-sc.toshiba.co.jp>
X-Deja-AN: 346539299
Sender: inaba@nittei02
References: <6fvo5c$jd9@ux37.fuchu.toshiba.co.jp> <38vhss3235.fsf@gaea.ssel.toshiba.co.jp> <6g063d$475$1@meshsv66.os.mesh.ad.jp> <yaxo1aai.fsf@carnival.st.rim.or.jp> <38zphzq03h.fsf@gaea.ssel.toshiba.co.jp> <6hhk95$fjc@ux37.fuchu.toshiba.co.jp>
Followup-To: fj.comp.lang.perl
Mime-Version: 1.0 (generated by tm-edit 7.48)
Content-Type: text/plain; charset=ISO-2022-JP
Organization: Tokyo System Center, TOSHIBA Corp., Japan
Newsgroups: fj.lang.perl,fj.comp.lang.perl

Reply to Parent Message