Discussion :

[julfra]

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

[minokely]

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

[julfra]

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

[schnecke]

Tu peux faire un truc comme ca:

Code :

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

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?

[Choupi]

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

Code :

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

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 :

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 :

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

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

Votre avis ?

Freif'

[schnecke]

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.

[julfra]

merci bcp, le substring convient tres bien !

[Choupi]

Alors faut cliquer sur "resolu" CuSoon.