🚀 go-pugleaf

In article <38vhss3235.fsf@gaea.ssel.toshiba.co.jp> ken@gaea.ssel.toshiba.co.jp (IRIUCHIJIMA Ken / =?ISO-2022-JP?B?GyRCRn5GYkVnGyhCIBskQjdyGyhC?=) writes:

>  >>>>> kazuhiko.nammei@toshiba.co.jp (Kazuhiko Nanmei) (="nammei") $B$5$s(B
>  >>>>> 2 Apr 1998 10:09:48 GMT $B$K8@$o$l$k$K$O(B:

>   nammei> mkdir$B$N(B-p$B%*%W%7%g%sAjEv$r<B8=$7$?$$$N$G$9$,!"$I$s$J$U$&$K(B
>   nammei> $B=q$1$PNI$$$s$G$7$g$&$+!)(B

>  $B$P$i$7$F!">e$+$i=gHV$K$"$k$+$I$&$+;n$7$J$,$i:n$C$F$$$1$P$h$$$G$9$M!#(B
>  $B6h@Z$j$,(B '/' $B$J$N$G<c43LLE]$G$9$,9M$(J}$@$1=q$/$H!"(B$_ $B$K(B a/b/c/d $B$,F~$C(B
>  $B$F$$$k$H$7$F(B

>	   @d = split m'/';

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

$B$3$N9M$(J}$G$$$$$H;W$$$^$9$,!"$A$g$C$H$@$1JL$N$d$j$+$?$r$7$F$_$^$7$?!#(B

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

$B0l1~$3$N$^$^%9%/%j%W%H$K$7$F$bF0$/$h$&$K$7$?$D$b$j$G$9$,!"K\Ev$KLdBj$J$$(B
$B$H$OJ]>Z$7$^$;$s(B:->$B!#(B

In article <6g063d$475$1@meshsv66.os.mesh.ad.jp> m-azuma@mxa.meshnet.or.jp writes:

>    "`"$B$r;H$C$F%7%'%k$G<B9T$9$l$P$h$$$o$1$G$9$+$i!"(B

>	   `mkdir -p a/b/c/d`;

$B$5$\$k$J$i!"$3$N9M$(J}$G$$$$$G$9$,!";H$&$N$O(B

	system("mkdir -p a/b/c/d");

$B$NJ}$,$h$$$H;W$$$^$9!#(B
--
			   $B0pMU(B $B9@?M(B (inaba@st.rim.or.jp)