Discussion :

[vercetty92]

Bonjour à tous,

C'est peu être une quesiton bète, n'étant pas un grand spécialiste mais connaissant un peu perl.

J'ai remarquer que le symbole $_ à changer entre les version v5.10.1 et v5.16.3 (je parle de ces 2 versions car j'ai un script qui fonctionne sur la 1er mais qui ne fonctiionne pas sur la 2e)

J'ai bien trouver un article qui dit que le symbole $_ doit disparaitre dans la version 5.18, mais qu'en est il de la version 5.16? (http://perldoc.perl.org/perldelta.ht...s-been-removed).

Par exemple, ce genre de code:

Code :

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

1
2
3
4
5
6
7
 
 open (MYCMD, "</etc/file");
        while (<MYCMD>)
        {
        print "the line is : $_\n";
        }
        close (MYCMD);

The /etc/file contains for example:

Code :

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

1
2
3
4
 
line1
line2
line3

en perl v5.10, le résultat attendu est là. "$_" devient bien toutes les lignes du fichier les une après les autres:

Code :

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

1
2
3
4
 
the line is : line1
the line is : line2
the line is : line3

mais ne perl 5.16, seulement la 1er ligne est concerné par "$_":

Code :

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

1
2
3
4
 
the line is : line1
line2
line3

Est-ce normal?
j'aimerai un code qui fonctionne sur les 2 versions, comment pourrais-je faire?

Merci beaucoup par avance

[djibril]

Bonjour,

Étrange, néanmoins, je te recommande ce code :

Code :

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

1
2
3
4
5
6
open my $fh, '<', '/etc/file' or die "Fichier /etc/file absent\n";
while ( my $ligne = <$fh> ) {
	chomp($ligne);
        print "the line is : $ligne\n";
}
close($fh);

[djibril]

Pour information, bonne lecture !

[Philou67430]

Avec le source que tu as fournis et la version 5.16, je me demande bien comment tu arrives à obtenir le résultat suivant :

Code :

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

1
2
3
4
 
the line is : line1
line2
line3

De plus, j'utilise la version 5.22, et je n'ai aucun problème.
Ton problème est sans doute "ailleurs".

[Gardyen]

vérifie tes retours à la ligne ?
il semble qu'avec le 5.16 ton script lit tout le fichier en 1 ligne (les bon vieux \r \n) ?
Avec ce qu'a donné djibril, ce problème devrait disparaître

[Lolo78]

J'ai remarquer que le symbole $_ à changer entre les version v5.10.1 et v5.16.3

Non, pas du tout. La variable spéciale $_ est bien trop importante en Perl et elle n'est vraiment pas près de disparaître, car cela ferait planter des millions de programmes existants, ce qui est totalement contraire à la tradition de compatibilité ascendante de Perl.

Ce qui a été rendu expérimental en 5.18 et ne disparaît finalement qu'en 5.24, c'est la forme lexicale de $_ ("my $_ = ..."), introduite en 5.10, et qui s'est avérée poser plus de difficultés qu'elle n'en résolvait.

(je parle de ces 2 versions car j'ai un script qui fonctionne sur la 1er mais qui ne fonctiionne pas sur la 2e)

OK, mais le problème n'est certainement pas dû à un quelconque abandon de $_. Comme le dit Philou, le problème est très certainement ailleurs. Mais tu n'en dis pas assez pour que l'on puisse t'aider beaucoup plus. Montre le bout de code qui fonction en 5.10 et pas en 5.16.

[Philou67430]

Avec le source que tu as fournis et la version 5.16, je me demande bien comment tu arrives à obtenir le résultat suivant :

Code :

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

1
2
3
4
 
the line is : line1
line2
line3

En fait, l'explication de Gardyen me semble l'explication la plus vraisemblable. Mais pourquoi alors, avec le même fichier "source", les deux programmes se comporteraient différemment ?
Peut-être que dans la version utilisée en 5.16, la variable $/ a été initialisée avec une valeur de séparateur de ligne cohérente avec un fichier Windows ("\r\n"), alors que ce n'est plus la cas dans la version utilisée en 5.10 ("\n") et que le fichier est un fichier de type Unix ?

[vercetty92]

Hello et merci de ta réponse.

Maintenant je comprends ton étonnement.

Je crois qu'en fait ce n'est pas uniquement la version de perl qui entre en jeu, mais bien mon script.

je m'explique : j'ai testé ton code dans un script qui ne fait que ca : pas de soucis. Si j'intègre le code dans mon script problématique, seul la 1er ligne s'affiche normalement... (et tout ca sur le meme serveur et donc la meme verison de perl en 5.16)

Mon script est assez conséquent, et commence de façon "standard" disons :

Code :

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

1
2
3
4
5
6
7
8
 
#!/usr/bin/perl -w
use strict;
use NetAddr::IP;
use Net::Ping;
use Getopt::Long;
.....
.....

puis suit la définition des variables et fonctions.....

pour l'instant je me tire un peu les cheuveux.

je suis sûr que ce n'est pas un problème avec le fichier que je lis car il est bien lu quand je le lis en utilisant le code "isolé".

[vercetty92]

autant pour moi , une modification récente du script avait été apporté, et le problème venait d'un "undef"