Rajouter chaque fichier dans une tableau

[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 :

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 :

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 :

$saveTar -> add_files(@tabFichiersVH);

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

Code :

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 :

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 :

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 :

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]

Envoyé par Mandraxx

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

Code :

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 :

@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,

Envoyé par Philou67430

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 .

@+