Re: mkdir$B$N(B -p $B%*%W%7%g%sAjEv$r<B8=$9$k$K$O!)(B

Article View: fj.lang.perl

Article #138

#138

From: IRIUCHIJIMA Ken / 入内島健
Date: Wed, 22 Apr 1998 00:00

28 lines
1788 bytes

Followup-To: fj.comp.lang.perl

を忘れてました ^^;

>>>>> 私が 21 Apr 1998 18:51:28 +0900 に書きました:

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

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

元々 $_ に // がある場合を忘れていました。しかし、先に処理してしまった
方がわかりやすそうです。

#! /usr/local/bin/perl
$_ = '/hoge_top/a/b/c'
s#/+#/#g;
for (split m'/') {
  $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

Technical Details

Message-ID: <38lnsy6x7c.fsf@gaea.ssel.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> <38pvibtsdb.fsf@gaea.ssel.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,73245a952237c319,start
X-Google-Attributes: gidf9898,public
From: ken@gaea.ssel.toshiba.co.jp (IRIUCHIJIMA Ken / 入内島 健)
Subject: Re: mkdir$B$N(B -p $B%*%W%7%g%sAjEv$r<B8=$9$k$K$O!)(B
Date: 1998/04/22
Message-ID: <38lnsy6x7c.fsf@gaea.ssel.toshiba.co.jp>
X-Deja-AN: 346598149
Sender: ken@gaea.ssel.toshiba.co.jp
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> <38pvibtsdb.fsf@gaea.ssel.toshiba.co.jp>
Followup-To: fj.comp.lang.perl
Content-Type: text/plain; charset=iso-2022-jp
Organization: R. & D. Center, TOSHIBA Corp., JAPAN / $BEl<G(B $B8&5f3+H/%;%s%?!<(B
Mime-Version: 1.0
Newsgroups: fj.lang.perl,fj.comp.lang.perl

Reply to Parent Message

Article View: fj.lang.perl

Re: mkdir$B$N(B -p $B%*%W%7%g%sAjEv$r<B8=$9$k$K$O!)(B

Re: mkdir$B$N(B -p $B%*%W%7%g%sAjEv$r<B8=$9$k$K$O!)(B