[langage] Script Perl Aide

Bonjour,

Je voudrais utiliser un script Perl qui permettrait de substituer des caractère.
En gros ce que je voudrais : si il trouve un retour a la ligne a la ligne 80 alors remplacer par un blanc sinon supprimer les retour à la ligne.
Je bloque surtout pour lui indiquer la ligne 80.

Merci d avance

pkoi ne pas faire une boucle sur toutes les lignes du fichier?

en fait je me suis mal exprimé, c est pas a la ligne 80 mais le 80eme caractere de chaque ligne

Tu peux faire un truc comme ca:

Code:

---

1 2	$string ="abcdefgh"; @li= split(//, $string);

---

Chaque caractere est un element du tableau. Tu as ensuite acces au 80 eme caractere avec $li[79]
Ca regle ton pb?

L'utilisation de split, c'est peut etre un peu lourd non ?
Je pense qu'on peut passer par un substring:

Code:

---

1 2 3 4 5

my $string = "abcdefgh"; my $char_position = substr($string,80,1); ... traitement de $char_position ...

---

En plus a ce que j'ai comrpris tu veux tjs le remplacer :

Citation:

---

si il trouve un retour a la ligne a la ligne 80 alors remplacer par un blanc sinon supprimer les retour à la ligne

---

Donc directement :

Code:

---

substr($string,80,1) = " ";

---

Votre avis ?

Freif'

Effectivement ca a l'air bcp plus simple comme ca...
Je connaissais pas substr()... Je viens d'essayer, ca vaut le coup de connaitre!
Merci bp.

merci bcp, le substring convient tres bien !

Alors faut cliquer sur "resolu" :wink: CuSoon.