ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ura Bulatevich                       2:451/16.66    30 Jan 2004  10:35:10
 To : All
 Subject : mkdirEx
 -------------------------------------------------------------------------------- 
 

 Есть какая нибудь стандартная функция вложенного создания директорий или
 можно ди это упростить ?
 ================================================================
 #!c:/Perl/bin/perl
 use strict;
 
 my $site='181.1.136.16';
 
 mkdir $site || die $!;
 
 my $flname='ttt/rrr\ooo.html';
 my $hide=$flname;
 my $ref;
 
 while (($hide=~m/^([^\/\\]*)/) && (length($flname)!=length($1)))
 {
  $ref=$1;
  mkdir $site.'\\'.substr($flname,0,length($ref)) || die $!;
  $hide=~s/^$ref.(.*)$/$ref\.\1/;
 }
 ================================================================
 
 Ura
 --- Все, что ни делается - к худшему !
  * Origin: It`s a good ? (2:451/16.66)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    mkdirEx   Ura Bulatevich   30 Jan 2004 10:35:10   Re: mkdirEx   Artem Chuprina   30 Jan 2004 16:15:17   Re: mkdirEx   Artem Chuprina   30 Jan 2004 16:15:48