selection ligne et colonne fichier

**Nifaste** · 28/12/2011, 16h54

Bonjour à tous,

J'ai un fichier ressemblant à :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
1	C	446.91	218.86	8	0
2	G	419.50	223.57	0	0
3	A	393.68	233.88	0	0
4	A	370.56	249.35	9	0
5	T	348.14	268.84	1	16
6	C	300.19	245.26	0	15
7	C	252.25	221.68	0	14
8	A	204.30	198.10	2	13
9	G	159.73	144.71	0	0
10	C	111.95	155.20	0	0
.
.
.
25      T       442.18  912.28  2       31
26      C       405.45  972.69  0       0
27      T       425.53  1018.09 0       0
28      G       471.84  1036.00 0       0
29      G       517.24  1015.92 0       0
30      C       535.15  969.61  0       0
31      A       495.59  911.01  3       25
32      G       494.33  857.59  0       24
.
.
.

et je souhaire récuperer les lignes 26 à 32 et la colonne 5. J'ai donc fait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
 
use strict;
use warnings;
 
open FICHIER,"< 1-nos-RA-1.ct.ss" or die "Le fichier n'existe pas !";
open WRITER,"> test.txt" or die "Le fichier ne peut être édité !\n";
 
my $i=0;
my @cols;
while (my $ligne = <FICHIER>){
	if($i==25 || $i==26 || $i==27 || $i==28 || $i==29 || $i==30 || $i==31){
		@cols = split(/\t/, $ligne);			
		my @value= split(' ',$cols[5]);
			print "$value[0]\n";	
 
 
	}
	$i++
}
close FICHIER;
close WRITER;