Questione : Perl - ciclo using le variabili se esistere

In uno scritto ho generato, ho una sezione in cui ho una lista lunga delle lime che verifica di I dai nostri cvs, quindi da un controllo per vedere che lime sono verificate di cui allora genererà un indice per ogni insieme dello scritto del campione delle lime found.

The sotto gli impianti e genererà l'indice principale (indice) allora un indice secondario (aiuto) e 4 indici secondari in (aiuto), come: >ls del

# - l indice/help/
total 8
drwxr-xr-x 23 luglio 14 2 l'altro altro 512: 15 cambiano-process
drwxr-xr-x 23 luglio 14 2 l'altro altro 512: 15/>drwxr-xr-x corporativi-identity
drwxr-xr-x 23 luglio 14 2 l'altro altro 512: 15 il images


This tutto funziona bene il senso che lo ho, tuttavia, in mio scritto ho una lista molto lunga delle lime dagli indici secondari differenti, che cosa voglio fare devo rimuovere il tutto se dichiarazioni ho per la generazione dell'indice se quello sia stato trovato ed essere variabile exists.

How può io mettesse le variabili ho che faccio il controllo sopra per vedere se esistono in un ciclo del foreach o forse in un ciclo di istante ed allora genero gli indici se avuto bisogno di così non devo mettere in cento circa se statements.

Thanks, class= > " libero " 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

Risposta : Perl - ciclo using le variabili se esistere

Lo farei di più come questo:
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

usare rigoroso;
usare gli avvertimenti;
lima di uso:: Copia;
lima di uso:: Percorso;
lima di uso:: Basename;

mio $web_dir = “indice„;
se (! - d “directory.slb.com ") {
   mkdir (“$web_dir„, 0777);
}

# lista della lima da verificare da CVS
i miei @CVSfiles = qw (
 sviluppo/fotoricettore-lime/aiuto/file.xx
 sviluppo/fotoricettore-lime/aiuto/file2.xx
 sviluppo/fotoricettore-lime/aiuto/immagini/file.xx
 sviluppo/fotoricettore-lime/aiuto/immagini/file2.xx
 sviluppo/fotoricettore-lime/aiuto/cambiare-processo/file.xx
 sviluppo/fotoricettore-lime/aiuto/cambiare-processo/file2.xx
 sviluppo/fotoricettore-lime/aiuto/corporativo-identità/file.xx
 sviluppo/fotoricettore-lime/aiuto/corporativo-identità/file2.xx
 sviluppo/fotoricettore-lime/aiuto/esempio-clienti/file.xx
 sviluppo/fotoricettore-lime/aiuto/esempio-clienti/file2.xx
);

foreach il mio $file (@CVSfiles) {
    mio $dir = dirname ($file);
    mkpath ($dir) se! - d $dir;
}
Altre soluzioni  
 
programming4us programming4us