ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     30 Jan 2004  16:15:48
 To : Ura Bulatevich
 Subject : Re: mkdirEx
 -------------------------------------------------------------------------------- 
 

 Ura Bulatevich -> All  @ Fri, 30 Jan 2004 09:35:10 +0300:
 
  UB> Есть какая нибудь стандартная функция вложенного создания директорий или
  UB> можно ди это упростить ?
  UB> ================================================================
  UB> #!c:/Perl/bin/perl
  UB> use strict;
 
  UB> my $site='181.1.136.16';
 
  UB> mkdir $site || die $!;
 
  UB> my $flname='ttt/rrr\ooo.html';
  UB> my $hide=$flname;
  UB> my $ref;
 
  UB> while (($hide=~m/^([^\/\\]*)/) && (length($flname)!=length($1)))
  UB> {
  UB>  $ref=$1;
  UB>  mkdir $site.'\\'.substr($flname,0,length($ref)) || die $!;
  UB>  $hide=~s/^$ref.(.*)$/$ref\.\1/;
  UB> }
  UB> ================================================================
 
 Пардон, опечатка в предыдущем письме.  Читать "perldoc File::Path".
 
 -- 
 Artem Chuprina
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
 --- ifmail v.2.15dev5.2
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    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