no save
Assistance
Achat
News

Forum | programmation
(sed/Perl) supprimer des lignes d'un fichier
lami20j, le mer. 13 déc. 2006 à 18:46:20
Salut,

et voilà en Perl

j'ai considéré aussi la possibilité que le fichier commence et se fini avec des lignes vides qu'on ne veux pas les prendre en compte
$ grep -n '^.*$' fichier
1:
2:
3:1
4:2
5:3
6:
7:4
8:5
9:
10:6
11:7
12:8
13:9
14:
15:

donc les lignes 1 et 2 et 14 et 15 sont vides (je ne les comptes pas)
$ perl -e '@f=<>;pop @f while($f[-1]=~/^$/);shift @f while($f[0]=~/^$/);print@f[2..$#f-2]' fichier > resultat
$ cat resultat
3

4
5

6
7

Si je veux prendre en compte les lignes vides (si jamais elles existent)
$ perl -e '@f=<>;print@f[2..$#f-2]' fichier > resultat
$ cat resultat
1
2
3

4
5

6
7
8
9

Précédentjipicy
déc. 06
phoenix1984
01 sept.
Suivant
REPONSES
jipicy
déc. 06
lami20j
déc. 06
phoenix1984
01 sept.
lami20j
01 sept.
lami20j
01 sept.
phoenix1984
01 sept.
lami20j
01 sept.
phoenix1984
01 sept.
phoenix1984
02 sept.
lami20j
02 sept.
Version Web
Réalisé par RedShift
no save