Question : Perl - boucle using des variables si exister

Dans un manuscrit j'ai créé, j'ai une section où j'ai une longue liste de dossiers qui contrôle d'I de nos cvs, puis d'un contrôle pour voir quels dossiers dont sont vérifiés alors créera un annuaire pour chaque ensemble de manuscrit témoin des dossiers found.

The au-dessous des travaux et créera l'annuaire principal (annuaire) puis un annuaire secondaire (aide) et 4 annuaires secondaires dans (aide), comme : >ls du

# - l annuaire/help/
total 8
drwxr-xr-x 23 juillet 14 2 l'autre autre 512 : 15 changent-process
drwxr-xr-x 23 juillet 14 2 l'autre autre 512 : 15/>drwxr-xr-x de corporation-identity
drwxr-xr-x 23 juillet 14 2 l'autre autre 512 : 15 l'images


This tout fonctionne bien la manière que je l'ai, cependant, en mon manuscrit j'ai une liste très longue de dossiers à partir de différents annuaires secondaires, ce que je veux faire doit enlever le tout les si des rapports je prends pour créer un annuaire si cela était trouvé et être variable exists.

How peut moi mettait les variables j'ai que je fais le contrôle dessus pour voir si elles existent dans une boucle de foreach ou peut-être une boucle de moment et crée alors les annuaires si nécessaire ainsi je ne dois pas mettre dans cent environ si statements.

Thanks, class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 :
># " de l'id= " codeSnippet839237 de
class= de

Réponse : Perl - boucle using des variables si exister

Je le ferais plutôt ceci :
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

employer strict ;
employer les avertissements ;
dossier d'utilisation : : Copie ;
dossier d'utilisation : : Chemin ;
dossier d'utilisation : : Basename ;

mon $web_dir = « annuaire » ;
si (! - d « directory.slb.com ") {
   mkdir (« $web_dir », 0777) ;
}

# liste de dossier à vérifier de CVS
mes @CVSfiles = qw (
 développement/Web-dossiers/aide/file.xx
 développement/Web-dossiers/aide/file2.xx
 développement/Web-dossiers/aide/images/file.xx
 développement/Web-dossiers/aide/images/file2.xx
 développement/Web-dossiers/aide/changer-processus/file.xx
 développement/Web-dossiers/aide/changer-processus/file2.xx
 développement/Web-dossiers/aide/de corporation-identité/file.xx
 développement/Web-dossiers/aide/de corporation-identité/file2.xx
 développement/Web-dossiers/aide/exemple-clients/file.xx
 développement/Web-dossiers/aide/exemple-clients/file2.xx
) ;

foreach mon $file (@CVSfiles) {
    mon $dir = dirname ($file) ;
    mkpath ($dir) si ! - d $dir ;
}
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us