Andrej Kastrin [AK], on Monday, December 19, 2005 at 13:13 (+0100)
thinks about:
AK> So, following code split each line and print it.
AK> while (<>){
AK> @column = split(/\t/,$_); # split current line, field separator set
AK> to tab
AK> print OUTPUT "$column[0]\t$column[1]\tt$column[2]\n"
Andrej Kastrin am Montag, 19. Dezember 2005 13.13:
> Ing. Branislav Gerzo wrote:
> >Andrej Kastrin [AK], on Monday, December 19, 2005 at 10:41 (+0100)
> >typed:
> >
> >AK> 1 BRCA3 BRCA33|BRCA55 symbol 998
> >AK> 2 ABCB1 DASH|BASG|AVGA4 symbol 7583
> >AK> In first step I split ea
Ing. Branislav Gerzo wrote:
Andrej Kastrin [AK], on Monday, December 19, 2005 at 10:41 (+0100)
typed:
AK> 1 BRCA3 BRCA33|BRCA55 symbol 998
AK> 2 ABCB1 DASH|BASG|AVGA4 symbol 7583
AK> In first step I split each row and store it in array; e.g.:
AK> @array=( '1', 'BRCA3',
Andrej Kastrin [AK], on Monday, December 19, 2005 at 10:41 (+0100)
typed:
AK> 1 BRCA3 BRCA33|BRCA55 symbol 998
AK> 2 ABCB1 DASH|BASG|AVGA4 symbol 7583
AK> In first step I split each row and store it in array; e.g.:
AK> @array=( '1', 'BRCA3', 'BRCA33|BRCA55', 'symbol998')
Hi all
So, I have 4 fields file; fields are tab separated:
1 BRCA3 BRCA33|BRCA55 symbol 998
2 ABCB1 DASH|BASG|AVGA4 symbol 7583
In first step I split each row and store it in array; e.g.:
@array=( '1', 'BRCA3', 'BRCA33|BRCA55', 'symbol998')
Now I have to split thir
