Discussion :

[elsapascal]

bonjour à tous

j'ai fait ce script :

Code :

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

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 :

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

[Philou67430]

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.

[elsapascal]

merci beaucoup, ça fonctionne !