Détection de fichier

bonjour à tous

j'ai fait ce script :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
        my $fichier = "/toto.txt";
 
                open (DESC, "/toto.txt");
                my($m_description);
                while(<DESC>)
                        {
                        if (/^DESCRIPTION\s*:\s*(.+)/i){$m_description=$1;}
                        print "ok - fait \n";
                        }
                        close (DESC);
 
 
print "$m_description";

]

qui retourne depuis le fichier toto.txt l'argument de la ligne contenant en son début la chaine DESCRIPTION.
Ce script fonctionne, mais si je rajoute un test d'existence du fichier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
        my $fichier = "/toto.txt";
        if (-f $fichier) {                                        # -f ou -e, même resultat final
                open (DESC, "/toto.txt");
                my($m_description);
                while(<DESC>)
                        {
                        if (/^DESCRIPTION\s*:\s*(.+)/i){$m_description=$1;}
                        print "ok - fait \n";
                        }
                        close (DESC);
        }
        else {
                print "rien";
                $m_description = "Fichier toto.txt absent";
        }
 
print "$m_description";

il affiche bien "ok - fait", donc le test est réussi, mais il n'affiche plus le contenu de la variable $m_description (ou celle-ci est vide) !!!

Merci de votre aide

Tu variables $m_description est locale à ton bloc if, donc à l'extérieur de ce bloc, elle n'existe plus (donc, elle est undef).

Il faut déclarer ta variables my avant l'instruction if, dans la portée du bloc de code qui englobe le print.

merci beaucoup, ça fonctionne !