Discussion :

[navorinco]

bonjour,
j'ai un fichier texte et je veux ajouter une ligne apres chaque 10 lignes.
quelqu'un peut m'aider svp
merci d'avance

[Philou67430]

Code :

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

perl -pe 'print "nouvelle ligne\n" if $. > 1 && ($. % 10) == 1;' fichier.txt

Ou dans un script :

Code :

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

1
2
3
4
while (<STDIN>) {
  print $_;
  print "nouvelle ligne\n" if $. > 1 && ($. % 10) == 1;
}

En gros, on se base sur $. (perldoc perlvar) qui contient le numéro de ligne dans le fichier courant en lecture.

(j'ai pas testé, mais ça doit fonctionner)

[navorinco]

meerci infiniment,
le script ca marche bien mais il affiche seulement, est qu'on peut inserer la ligne directement au fichier ?

[Mr6]

Salut !

Code :

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

perl -pi.bak -e ....

Ca te permettra de modifier le fichier directement (-i = inplace dan smon souvenir) et d'avoir une save dans le fichier.bak correspondant (on designe l'extension du fichier de backup derrière -i).

@+
Mr6

[djibril]

un peu de lecture.

[navorinco]

meerci beaucoup pour votre aide ca marche impeccable