Cuestión : Perl - lazo usar variables si existir

En una escritura creé, tengo una sección donde tengo una lista larga de archivos que comprobación de I de nuestros cvs, después de un cheque para ver qué archivos se comprueban hacia fuera de los cuales después creará un directorio para cada sistema de la escritura de la muestra de los archivos found.

The debajo de trabajos y creará el directorio principal (directorio) entonces un directorio secundario (ayuda) y 4 directorios secundarios en (ayuda), por ejemplo: >ls del

# - l directorio/help/
total 8
drwxr-xr-x 23 de julio de 14 2 el otro otro 512: 15 cambian-process
drwxr-xr-x 23 de julio de 14 2 el otro otro 512: 15/>drwxr-xr-x corporativos-identity
drwxr-xr-x 23 de julio de 14 2 el otro otro 512: 15 el images


This todo trabaja muy bien la manera que la tengo, sin embargo, en mi escritura tengo una lista muy larga de archivos de diversos directorios secundarios, qué quiero hacer debo quitar todo el si las declaraciones tengo para crear un directorio si eso fue encontrada y puede el ser variable exists.

How yo puso las variables tengo que hago el cheque encendido para ver si existen en un lazo del foreach o quizá un lazo del rato y después creo los directorios si está necesitado tan no tengo que poner en ciento o tan si statements.

Thanks, class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 " del class= " del id= " codeSnippet839237 del
class= del

Respuesta : Perl - lazo usar variables si existir

Lo haría más bién esto:
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

utilizar terminante;
utilizar las advertencias;
archivo del uso:: Copia;
archivo del uso:: Trayectoria;
archivo del uso:: Basename;

mi $web_dir = “directorio”;
¡si (! - d “directory.slb.com ") {
   mkdir (“$web_dir”, 0777);
}

# lista del archivo que se comprobará hacia fuera de CVS
mis @CVSfiles = qw (
 desarrollo/tela-archivos/ayuda/file.xx
 desarrollo/tela-archivos/ayuda/file2.xx
 desarrollo/tela-archivos/ayuda/imágenes/file.xx
 desarrollo/tela-archivos/ayuda/imágenes/file2.xx
 desarrollo/tela-archivos/ayuda/cambiar-proceso/file.xx
 desarrollo/tela-archivos/ayuda/cambiar-proceso/file2.xx
 desarrollo/tela-archivos/ayuda/corporativo-identidad/file.xx
 desarrollo/tela-archivos/ayuda/corporativo-identidad/file2.xx
 desarrollo/tela-archivos/ayuda/ejemplo-clientes/file.xx
 desarrollo/tela-archivos/ayuda/ejemplo-clientes/file2.xx
);

foreach mi $file (@CVSfiles) {
    mi $dir = dirname ($file);
    ¡mkpath ($dir) si! - d $dir;
}
Otras soluciones  
 
programming4us programming4us