Problème parcours de fichier en PERL

**jinpol** · 02/03/2010, 11h49

Salut tout le monde.

J'ai un petit souci et j'espère que vous allez pouvoir m'aider.

J'ai écris un petit script PERL qui a pour but de vérifier que des répertoires sont bien montés entre un serveur Linux et un serveur Windows 2003.

Voilà le squelette de mon script :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#! /usr/bin/perl
 
# output mount
system("mount > /root/mountlog2");
 
# open log
unless(open(INPUT, "/root/mountlog2"))
{
        die("cannot open /root/mountlog2\n");
}
 
# parse log
my $found=0;
 
while(<INPUT>)
{
        $line=$_;
        chomp($line);
        print $_;
 
        if($line =~ m!^//10.27.0.136!)
        {
                $found++;
 
                unless(open(INPUT, "/home/postgresql/mnt/devwin1/checkmountphptmp"))
                {
                        system("sleep 120");
                        system("umount -f /home/postgresql/mnt/devwin1/phptmp");
                        $found--;
                }
        }
        elsif($line =~ m!^//10.27.0.136/Backup!)
        {
                $found++;
 
                #system("echo 1 > /home/postgresql/mnt/devwin1/checkmountsave_pnb");
                unless(open(INPUT, "/home/postgresql/mnt/devwin1/checkmountsave_pnb"))
                {
                        system("sleep 120");
                        system("umount -f /home/postgresql/mnt/devwin1/save_pnb");
                        $found--;
                }
        }
        elsif
 
        etc...
}

Donc en gros, je mets le résultat de 'mount' dans un fichier, puis j'ouvre ce fichier et je le parcours.
Je vérifie que mes répertoires sont bien montés comme ceci.
Mais apparemment, le fichier n'est pas parcouru dans sa totalité. En effet, vu que j'ai remarqué un problème, j'ai fait afficher via print la variable $_, et voilà ce que cela donne :

//10.27.0.133/phptmp on /home/postgresql/mnt/serveur1/phptmp type cifs (rw,mand)
nfsd on /proc/fs/nfsd type nfsd (rw)
//10.27.0.134/phptmp on /home/postgresql/mnt/serveur2/phptmp type cifs (rw,mand)
1

Je vous passe un certain nombre de lignes qui ne servent à rien...

Alors que dans mon fichier mountlog2, j'ai :

//10.27.0.133/phptmp on /home/postgresql/mnt/serveur1/phptmp type cifs (rw,mand) nfsd on /proc/fs/nfsd type nfsd (rw)
//10.27.0.134/phptmp on /home/postgresql/mnt/serveur2/phptmp type cifs (rw,mand)
//10.27.0.136/phptmp on /home/postgresql/mnt/serveur3/phptmp type cifs (rw,mand)
//10.27.0.136/Backup on /home/postgresql/mnt/serveur3/save_pnb type cifs (rw,mand)
etc...

On voit donc bien qu'il s'arrête après la ligne concernant le serveur 2, et que $_ m'affiche '1'.

Il y a quelque chose qui m'échappe, mais quoi ???

Si quelqu'un a la solution, je lui en serai très reconnaissant car là, je sèche. je ne suis pas super familier avec PERL et c'est donc peut-être tout simple...mais pas pour moi

Merci d'avance pour vos réponses.

Tchuss, @+, jinpol...

**Philou67430** · 02/03/2010, 14h12

Etrange...

Cela dit, tu peux remplacer le début de ton script par :

Code :

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

1
2
3
4
5
6
7
8
9
#! /usr/bin/perl
my $found=0;
 
foreach my $line (qx(mount)) {
  chomp($line);
  print $_;
 
  if($line =~ m!^//10.27.0.136!)
  ...

Ca ne résoudra probablement pas ton problème, mais cela évite la création d'un fichier temporaire inutile.

**jinpol** · 02/03/2010, 14h20

Salut, et merci pour ta réponse.

Comme tu dis, ça ne résoudra peut-être rien, mais je vais quand même mettre ça en place. Et puis on sait jamais...

Je fais ça dès que je peux et je te tiens au courant...

jinpol...

**jinpol** · 02/03/2010, 14h49

Bon, et bien en fait, en utilisant ta méthode, ça marche.
Et au final, j'ai compris pourquoi je pense.

En effet, à chaque ouverture de fichier que je faisais, j'utilisai l'identifiant INPUT, donc en fait, au bout d'un moment, je pense que mon while ne parcourait plus le bon fichier

Et effectivement, dans le fichier parcouru, y'avait un 1 et rien d'autre.

A ma décharge, j'ai récupéré ce script d'un collègue et je l'ai modifié, mais ce n'est pas moi qui avait écrit cette partie là :p

En tous cas, ça marche, merci

Tchuss, @+, jinpol...