Discussion :

[MonsieurPouet]

Bonjour,

J'apprends Perl petit à petit. Mais je suis confronté à un problème.
Je souhaites lister les virtual host de ma config Apache et mettre chaque fichier dans un tableau.

Donc un algo de ce genre:
Lister fichiers
Pour chaque fichier
mettre fichier dans une case d'un tableau
fin Pour.

J'ai vu plein d'exemple pour lister des fichiers. J'ai regarder sur la FAQ, mais j'ai rien trouvé de bien. Car je voudrais surtout comprendre le code.

Merci à vous

[MonsieurPouet]

Une idée ?

[Mandraxx]

Bonjour,

Pas besoin, Perl fait ça tout seul comme un grand :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
#!/usr/bin/perl
opendir(DIR,"/var") or die "Echec de lecture de /var";
@files = readdir(DIR);
closedir(DIR);

Tu peux rajouter ça pour vérifier le contenu de ton tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
foreach $file (@files) {
        print "J'ai trouvé $file dans /var\n";
}

@+

[MonsieurPouet]

Super c'est ce que je cherchais.
Mais lorsque j'essaye de le mettre dans un dossier compresser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$saveTar -> add_files(@tabFichiersVH);

Il me dit que les fichiers ne sont pas trouvés :/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
No such file: 'default-ssl' at Sauvegarde.pl line 65

[Mandraxx]

Si tu exécutes le code de vérification, tu remarqueras que le contenu du tableau contient le chemin relatif des fichiers par rapport au répertoire fourni à opendir.

Il te faut donc transformer ces chemins en chemins absolus.

Perso, pour mon exemple, je ferais comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for ($i=0;$i<$#files;$i++) {
        $files[$i]="/var/".$files[$i];
}

Mais bon, y'a peut être plus élégant .... (Je me débrouille mais je ne suis pas ce qu'on appelle un mongeur ;-)

@+

[MonsieurPouet]

Ahh super c'est exactement ça.
Cependant, j'ai une erreur de sémantique.
J'utilise le module File::Copy avec la fonction copy comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
for (my $i=0;$i<@tabFichiersVH;$i++)
        {
                $tabFichiersVH[$i]="/etc/apache2/sites-available/".$tabFichiersVH[$i];
                copy ("$tabFichiersVH[$i]", $tabFichiersVH[$i]);
}

Cela me copie bien mes fichiers, mais cela prends tous les dossiers /etc/apache2/sites-availables.
Alors que je ne voudrais QUE les virtualhost. Il me renvois l'erreur suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
'/etc/apache2/sites-available/default-ssl' and '/etc/apache2/sites-available/default-ssl' are identical (not copied) at Sauvegarde.pl line 63

Je triture un peu mon code, mais la sémantique et moi ><.
Merci ^^

[Mandraxx]

Ben, soit tu ouvres chaque fichier pour l'analyser et savoir si c'est un de ceux qui t'intéressent.

Soit tu définit un plan de nommage (genre tous tes fichiers vhosts commencent par vhost-) et tu pourras tester leurs nom avec un regex avant de les traiter.

@+

[MonsieurPouet]

Un regex avec tous les fichiers qui se termine par .conf sera une bonne idée.

[Philou67430]

Perso, pour mon exemple, je ferais comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for ($i=0;$i<$#files;$i++) {
        $files[$i]="/var/".$files[$i];
}

Mais bon, y'a peut être plus élégant .... (Je me débrouille mais je ne suis pas ce qu'on appelle un mongeur ;-)

Je ne sais pas si c'est plus élégant, mais au moins plus direct :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@files = glob("/var/*.conf")

(ce n'est pas strictement identique, j'ai intégré la dernière réponse de MonsieurPouet).

Voir aussi : File::Glob

[Mandraxx]

Bonjour,

Je ne sais pas si c'est plus élégant, mais au moins plus direct :

Moi, en tous cas, je trouve ça plus élégant ;-)

Merci .

@+