IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

Recherche module pour parcours récursif de partage Windows


Sujet :

Langage Perl

  1. #1
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Mars 2015
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2015
    Messages : 138
    Points : 138
    Points
    138
    Par défaut Recherche module pour parcours récursif de partage Windows
    Bonsoir,

    je recherche un module me permettant de récupérer de manière récursive le contenu d'un partage Windows.
    J'ai essayé le module Filesys::SmbClient mais les fonctions opendir et readdir me renvoient le contenu du répertoire courant.

    Merci pour votre aide

  2. #2
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Points : 12 469
    Points
    12 469
    Billets dans le blog
    1
    Par défaut
    C'est un partage sous Samba? Quelle syntaxe utilises-tu?

  3. #3
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Mars 2015
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2015
    Messages : 138
    Points : 138
    Points
    138
    Par défaut
    Citation Envoyé par Lolo78 Voir le message
    C'est un partage sous Samba? Quelle syntaxe utilises-tu?
    Le partage est sur une serveur Windows.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
     
    [...]
        # connexion
        my $smb = new Filesys::SmbClient(username  => "$user",
            password  => "$pwd",
            workgroup => "xxx",
            debug     => 0);
     
        my $smb_access_dir = "smb://$host/$dir";
        my $fd = $smb->opendir("$smb_access_dir");
     
        if ( ! $fd ) {
            oxa_msg_warn ( $r_log, 1, "WARNING - accès impossible au partage SMB $smb_access_dir : $!");
            $err++;
            return ( $err, undef );
        }
     
        # récupération liste des fichiers
        my $age_sec = ( $age + 1 ) * 86400;
        my $now = time;
     
        foreach my $file ( $smb->readdir($fd) 
    [...]

  4. #4
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Points : 12 469
    Points
    12 469
    Billets dans le blog
    1
    Par défaut
    Citation Envoyé par ptonnerre Voir le message
    Le partage est sur une serveur Windows.
    du coup tu dois avoir une unité logique Windows d'accès, un truc du genre "\\partage:\data\...", quand tu es sous Windows. Tu ne peux pas accéder directement à cette unité sous Perl?

  5. #5
    Expert confirmé

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Avril 2009
    Messages
    3 577
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2009
    Messages : 3 577
    Points : 5 753
    Points
    5 753
    Par défaut
    Citation Envoyé par Lolo78 Voir le message
    Tu ne peux pas accéder directement à cette unité sous Perl?
    Par exemple avec File::Find pour disposer de la récursivité sans avoir à l'écrire.
    Plus j'apprends, et plus je mesure mon ignorance (philou67430)
    Toute technologie suffisamment avancée est indiscernable d'un script Perl (Llama book)
    Partagez vos problèmes pour que l'on partage ensemble nos solutions : je ne réponds pas aux questions techniques par message privé
    Si c'est utile, say

  6. #6
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Mars 2015
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2015
    Messages : 138
    Points : 138
    Points
    138
    Par défaut
    Citation Envoyé par Lolo78 Voir le message
    du coup tu dois avoir une unité logique Windows d'accès, un truc du genre "\\partage:\data\...", quand tu es sous Windows. Tu ne peux pas accéder directement à cette unité sous Perl?

    J'accède bien au partage, mais n'arrive pas à parcourir son contenu récursivement.
    Ci-après le bout de code pour tester :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
     
    #!/usr/bin/perl
    use strict;
    use warnings;
    use feature 'say';
    use Filesys::SmbClient;
     
    my $smb = new Filesys::SmbClient(username  => "xxxxxx",
                                     password  => "xxxxx",
                                     workgroup => "xxxx",
                                     debug     => 0);
     
    my $share = 'smb://F7lo004/testpto$';
    my $fd    = $smb->opendir("$share");
     
    if ( ! $fd ) {
        say "ERROR - problème lors de l'accès au partage $share : $!";
        exit 1;
    }
     
    foreach my $file ($smb->readdir($fd)) {
            say $file;
    }
    résultat : on ne descend pas dans le sous-répertoire SREP1 :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
     $ ./test_smbclient2.pl
    .
    ..
    rda_03.old.txt
    rda_03.txt
    SREP1

  7. #7
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Mars 2015
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2015
    Messages : 138
    Points : 138
    Points
    138
    Par défaut
    Je viens de faire un test avec Filesys::SmbClientParser, pas mieux

    File::Find gère bien la récursivité, mais dans mon cas, le programme doit tourner sur une machine de servitude qui accède aux machines distantes.

  8. #8
    Expert confirmé

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Avril 2009
    Messages
    3 577
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2009
    Messages : 3 577
    Points : 5 753
    Points
    5 753
    Par défaut
    Et File::Find ne fonctionne pas en fournissant le chemin smb:// ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    find(sub { ... }, "smb://F7lo004/testpto$");
    Plus j'apprends, et plus je mesure mon ignorance (philou67430)
    Toute technologie suffisamment avancée est indiscernable d'un script Perl (Llama book)
    Partagez vos problèmes pour que l'on partage ensemble nos solutions : je ne réponds pas aux questions techniques par message privé
    Si c'est utile, say

  9. #9
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Mars 2015
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2015
    Messages : 138
    Points : 138
    Points
    138
    Par défaut
    Citation Envoyé par Philou67430 Voir le message
    Et File::Find ne fonctionne pas en fournissant le chemin smb:// ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    find(sub { ... }, "smb://F7lo004/testpto$");
    Hélas non

  10. #10
    Expert éminent sénior Avatar de disedorgue
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Décembre 2012
    Messages
    4 266
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Décembre 2012
    Messages : 4 266
    Points : 12 681
    Points
    12 681
    Par défaut
    Bonjour,
    Citation Envoyé par ptonnerre Voir le message
    J'accède bien au partage, mais n'arrive pas à parcourir son contenu récursivement.
    Ci-après le bout de code pour tester :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
     
    #!/usr/bin/perl
    use strict;
    use warnings;
    use feature 'say';
    use Filesys::SmbClient;
     
    my $smb = new Filesys::SmbClient(username  => "xxxxxx",
                                     password  => "xxxxx",
                                     workgroup => "xxxx",
                                     debug     => 0);
     
    my $share = 'smb://F7lo004/testpto$';
    my $fd    = $smb->opendir("$share");
     
    if ( ! $fd ) {
        say "ERROR - problème lors de l'accès au partage $share : $!";
        exit 1;
    }
     
    foreach my $file ($smb->readdir($fd)) {
            say $file;
    }
    résultat : on ne descend pas dans le sous-répertoire SREP1 :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
     $ ./test_smbclient2.pl
    .
    ..
    rda_03.old.txt
    rda_03.txt
    SREP1
    Ici, je ne vois pas le souci, le code fait ce que tu lui demandes (qui est d'afficher le contenu du répertoire courant)...
    Si tu veux qu'il descend dans les sous répertoires, il te manque la partie:
    Est-ce un répertoire ?
    Si oui, on descend dedans, et on reboucle dessus, et ainsi de suite...
    Si non, on continue avec le suivant...
    Cordialement.

  11. #11
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 818
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 818
    Points : 499 183
    Points
    499 183
    Par défaut
    Bonsoir,

    Comme dit ci-ddesus, c'est à toi de gérer la recursivité, toi = ton algorithm.

  12. #12
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Points : 12 469
    Points
    12 469
    Billets dans le blog
    1
    Par défaut
    Bonsoir,

    voir cette discussion et des exemples de code pour un parcours récursif de répertoires dans mon tutoriel sur la programmation fonctionnelle en Perl: http://laurent-rosenfeld.developpez....erieur/#L2-2-2

    Si ça peut aider...

  13. #13
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Mars 2015
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2015
    Messages : 138
    Points : 138
    Points
    138
    Par défaut
    Citation Envoyé par Lolo78 Voir le message
    Bonsoir,

    voir cette discussion et des exemples de code pour un parcours récursif de répertoires dans mon tutoriel sur la programmation fonctionnelle en Perl: http://laurent-rosenfeld.developpez....erieur/#L2-2-2

    Si ça peut aider...
    Très intéressant, merci

    Bonne nouvelle pour moi ce matin, le RSSI est ok pour le montage des FS Windows et je vais donc pouvoir utiliser le module File::Find::Rule

  14. #14
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Mars 2015
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2015
    Messages : 138
    Points : 138
    Points
    138
    Par défaut
    Bonsoir,

    je me suis replongé de la doc du module File::Find::Rule et la fonction suivante fonctionne très bien :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    sub init_purge_list {
        my ( $mnt, $host, $pattern, $age, $flag_regex ) = @_;
     
        my $err = 0;
        my $d = $mnt . '/' . $host;
     
        my $rule = File::Find::Rule->new;
     
        if ( $flag_regex ) {
            $rule->or($rule->new
                           ->directory
                           ->name('lost+found')
                           ->prune
                           ->discard,
                      $rule->new
                           ->name(qr/$pattern/));
        } else {
            $rule->or($rule->new
                           ->directory
                           ->name('lost+found')
                           ->prune
                           ->discard,
                      $rule->new
                           ->name($pattern));
        }
     
        $rule->file;
        $rule->exec( sub { -M $_ > $age } );
     
        my @files = $rule->in( $d );
     
        return ( $err, \@files, scalar @files );
    }
    Par contre, je me demande s'il y a une façon plus concise d'écrire les règles en fonction de la valeur de la variable $flag_regex ?

  15. #15
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Points : 12 469
    Points
    12 469
    Billets dans le blog
    1
    Par défaut
    Je ne comprends pas pourquoi tu fais ça. Tu sais à l'avance si tu passes un motif de regex ou un motif de recherche de type shell/console, non? Du coup, tu peux le mettre tout de suite au bon format et ne pas avoir besoin de ce grand if.

    Au pire, si les deux possibilités sont envisageables, tu peux transformer ton $pattern selon le besoin juste avant d'appeler le constructeur:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
       $pattern = qr/pattern/ if  $flag_regex;
       $rule->or($rule->new
                      ->directory
                      ->name('lost+found')
                      ->prune
                      ->discard,
                 $rule->new
                      ->name(qr/$pattern/));
    A moins que je n'aie pas compris ta question...

  16. #16
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Mars 2015
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2015
    Messages : 138
    Points : 138
    Points
    138
    Par défaut
    Les données sont définies dans un fichier de conf qui mêle des enregistrements dont le motif à traiter est un glob et d'autres une regex.

  17. #17
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Points : 12 469
    Points
    12 469
    Billets dans le blog
    1
    Par défaut
    OK, mais au moment où tu traites, tu sais si c'est un glob ou une regex, n'est-ce pas?

    Du coup la solution que j'ai proposée devrait fonctionner. Non?

  18. #18
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Mars 2015
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2015
    Messages : 138
    Points : 138
    Points
    138
    Par défaut
    Je le sais oui, le champ qui conditionne $flag_regex a cette fonction.
    Dans ce fichier de conf, on trouve des motifs comme tft*.log en tant que glob ou cft.{8}\.txt en tant regex.

    Ta solution marchera dans les 2 cas ?
    Je ne suis pas au boulot, je testerai demain.

    Merci encore

  19. #19
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Mars 2015
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2015
    Messages : 138
    Points : 138
    Points
    138
    Par défaut
    Bonjour,

    je viens de tester et cela ne marche pas. Pour la ligne suivante du fichier de conf :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
          1 # hostname;os (L X ou W);user;pwd;répertoire;motif;durée péremption;libellé;glob ou regex (1 pour regex 0 pour glob)
          2
          3 # LOPROD01
          4 loprod01;X;gepware;;/log/tpjrules;*;5;Purge des logs tpjrules;0
    j'obtiens l'erreur :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    OXRES: 13/07/2016 08:28:59 - ===> Traitement
    OXRES: 13/07/2016 08:28:59 - ------------------------------------------------------------------------------------------------------------------------------------
    OXRES: 13/07/2016 08:28:59 - Traitement du fichier d'environnement /prod/prd/prod/batch/tech/env/TECHJ056.env
    OXRES: 13/07/2016 08:28:59 - ------------------------------------------------------------------------------------------------------------------------------------
    OXRES: 13/07/2016 08:28:59 - loprod01 - user gepware - Purge des logs tpjrules - motif : * de /log/tpjrules plus de 5 jours
    OXRES: 13/07/2016 08:28:59 -   INFO - montage réussi de loprod01 /log/tpjrules sur /mnt/purges/loprod01
    Quantifier follows nothing in regex; marked by <-- HERE in m/* <-- HERE / at /prod/prd/prod/batch/tech/Perl/TECHJ056.pl line 260, <$fh_r0> line 4.
    La ligne de conf propose un glob et la règle va donc substituer ->name(qr/$pattern/)); par ->name(qr/*/));, d'où le message d'erreur...

  20. #20
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Mai 2012
    Messages : 3 612
    Points : 12 469
    Points
    12 469
    Billets dans le blog
    1
    Par défaut
    J'avais deux fautes de frappe dans le code que j'ai proposé. Il fallait:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    $pattern = qr/$pattern/ if  $flag_regex;
       $rule->or($rule->new
                      ->directory
                      ->name('lost+found')
                      ->prune
                      ->discard,
                 $rule->new
                      ->name($pattern));

+ Répondre à la discussion
Cette discussion est résolue.
Page 1 sur 2 12 DernièreDernière

Discussions similaires

  1. Réponses: 1
    Dernier message: 01/12/2010, 21h16
  2. recherche module pour scanner
    Par djfacture dans le forum Thunderbird
    Réponses: 0
    Dernier message: 14/09/2010, 15h01
  3. Recherche module pour mise à jour d'un site perso
    Par rambc dans le forum Réseau/Web
    Réponses: 3
    Dernier message: 24/02/2009, 10h31
  4. [Joomla!] Recherche module pour gestion de bannière flash
    Par young077 dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 2
    Dernier message: 21/08/2007, 11h27
  5. Réponses: 2
    Dernier message: 12/04/2006, 12h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo