Discussion :

[User]

Bonjour,

Je débute en perl et j'aurais aimé savoir s'il est possible de lire la totalité de mon fichier texte dans une chaine de caractère:

sans passer par une lecture ligne par ligne (je ne veux pas de while ($ligne = <fichier>)...)

donc un truc du genre:

Code :

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

1
2
3
4
5
open fichier, "< fichier1.txt"
 
...
 
$chaine = texte_du_fichier

c'est pour remplacer directement une occurence dans la variable $chaine (contenant le texte du fichier..) sans passer par une lecture ligne par ligne (trop fastidieux..)


Merci par avance,

Denis

[2Eurocents]

par exemple :

Code :

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

1
2
3
$/="";
open fichier, "< fichier.txt";
$contenu=<fichier>;

Selon perldoc perlvar, $/ est une variable - aussi nommée $RS - qui contient le séparateur d'enregistrement en entrée (ce qui distingue les lignes d'un fichier). Quand il est vide ou indéfini, le fichier est lu de façon intégrale (atomique )

Selon la même perldoc perlvar, il existe une façon encore plus propre de faire ce que fait mon code ci-dessus :

Code :

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

1
2
3
4
5
6
open fichier, "< fichier.txt";
{
  local $/;  # active le mode "slurp"
  $contenu=<fichier>;
}
close fichier;

Voila ... et ça donne l'explication pour ceux qui ne savent pas encore ce que c'est que de "slurper" un fichier.

[User]

1 grand merci à toi,

Et si je veux écrire la totalité d'une chaine contenant des sauts de lignes dans un fichier texte, est-ce que je peux faire un truc du genre:

Code :

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

1
2
3
$/="";
open fichier, "> fichier.txt";
<fichier>=$contenu;

merci encore,

[2Eurocents]

Et si je veux écrire la totalité d'une chaine contenant des sauts de lignes dans un fichier texte, est-ce que je peux faire un truc du genre:

Code :

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

1
2
3
$/="";
open fichier, "> fichier.txt";
<fichier>=$contenu;

Il ne faut pas changer la logique de l'écriture, et ceci suffit :

Code :

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

1
2
open fichier, "> fichier.txt";
print fichier $contenu;

(attention, il n'y a pas de virgule entre le handle de fichier et la chose à imprimer )

[User]

OK,

je tag résolu pour cette aide précieuse:

a bientôt peut-être !

Denis

[pospos]

attention tout de meme: si $/ est modifié il l'est pour tout le script et pour tous les modules. Donc mieux vaut utiliser la deuxieme forme qu'a indiqué 2Eurocents, avec le local et le block, pour eviter tout probleme

[Jedai]

Quand il est vide ou indéfini, le fichier est lu de façon intégrale (atomique )

Quand $/ eq "", la lecture se fait en mode paragraphe, c'est à dire que chaque lecture se fait jusqu'à une ligne vide (ou plusieurs lignes vides, c'est la différence avec $/ = "\n\n"), pour lire l'intégralité du fichier, il faut bien que $/ soit undef.
Et je recommande effectivement chaudement l'idiôme avec le bloc et le local, ça évite de perturber tout le reste du programme... Sauf pour les plus petits programmes, la modification d'une variable globale devrait toujours se faire avec local de toute façon !

--
Jedaï