Pergunta : Perl - laço using variáveis se existir

Em um certificado eu criei, eu tenho uma seção onde eu tenha uma lista longa de limas que verificação geral de I de nossos cvs, a seguir de uma verificação para ver que limas são verific para fora de que então criará um diretório para cada jogo do certificado da amostra das limas found.

The abaixo dos trabalhos e criará o diretório principal (diretório) então um diretório secundário (ajuda) e 4 diretórios secundários em (ajuda), como: >ls do

# - l diretório/help/
total 8
drwxr-xr-x 23 de julho de 14 2 o outro outro 512: 15 mudam-process
drwxr-xr-x 23 de julho de 14 2 o outro outro 512: 15/>drwxr-xr-x incorporados-identity
drwxr-xr-x 23 de julho de 14 2 o outro outro 512: 15 o images


This todo trabalha está bem a maneira que eu a tenho, entretanto, em meu certificado eu tenho uma lista muito longa de limas dos diretórios secundários diferentes, o que eu quero fazer devo remover o todo o se indicações eu tenho criando um diretório se aquele foi encontrado e ser variável exists.

How pode mim põr as variáveis eu tenho que eu faço a verificação sobre para ver se existirem em um laço do foreach ou talvez em um laço do quando e crio então os diretórios se necessário assim eu não tenho que põr em cem ou assim se statements.

Thanks, class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
># notpretty " do class= " do id= " codeSnippet839237 do
class= do

Resposta : Perl - laço using variáveis se existir

Eu fá-lo-ia mais como este:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

#! /usr/bin/perl

usar estrito;
usar avisos;
lima do uso:: Cópia;
lima do uso:: Trajeto;
lima do uso:: Basename;

meu $web_dir = “diretório”;
se (! - d “directory.slb.com ") {
   mkdir (“$web_dir”, 0777);
}

# lista da lima a ser verific para fora de CVS
meus @CVSfiles = qw (
 desenvolvimento/limas/ajuda/file.xx
 desenvolvimento/limas/ajuda/file2.xx
 desenvolvimento/limas/ajuda/imagens/file.xx
 desenvolvimento/limas/ajuda/imagens/file2.xx
 desenvolvimento/limas/ajuda/processo/file.xx
 desenvolvimento/limas/ajuda/processo/file2.xx
 desenvolvimento/limas/ajuda/identidade/file.xx
 desenvolvimento/limas/ajuda/identidade/file2.xx
 desenvolvimento/limas/ajuda/clientes/file.xx
 desenvolvimento/limas/ajuda/clientes/file2.xx
);

foreach meu $file (@CVSfiles) {
    meu $dir = dirname ($file);
    mkpath ($dir) se! - d $dir;
}
Outras soluções  
 
programming4us programming4us