I want to Remove Space from a text file conatining a sequence in FASTA format.

[satishdeepak]

TEXT file conatins: INPUT FILE
CGGCAGGACCGAGCG CGGCAGGCGGCTGGC CCAGCGCAGCCAGCG CGGCCCGAAGGACGG GAGCAGGCGG
CCGAGCACCGAGCGC TGGGCACCGGGCACC GAGCGGCGGCGGCAC GCGAGGCCCGGCCCC GAGCAGCGCC
CCCGCCCGCCGCGGC CTCCAGCCCGGCCCC GCCCAGCGCCGGCCC GCGGGGATGCGGAGC GGCGGGCGCC
GGAGGCCGCGGCCCG GCTAGGCCCGCGCTC GCGCCCGGACGCGGC GGCCCGAGGCTGTGG CCAGGCCAGC
TGGGCTCGGGGAGCG CCAGCCTGAGAGGAG CGCGTGAGCGTCGCG GGAGCCTCGGGCACC ATGAGCGACG
TGGCTATTGTGAAGG AGGGTTGGCTGCACA AACGAGGGGAGTACA TCAAGACCTGGCGGC CACGCTACTT
CCTCCTCAAGAATGA TGGCACCTTCATTGG CTACAAGGAGCGGCC GCAGGATGTGGACCA ACGTGAGGCT


I want output in a single line with no new line character or space like this:
CGGCAGGACCGAGCG CGGCAGGCGGCTGGC CCAGCGCAGCCAGCG ............... ............... NO SPACE i want

[RonB]

One solution. use a regex.

$fasta =~ s/[\n\s]//g;

[satishdeepak]

$file = 'file1.txt';
open(FILEHANDLE , "<$file");
$file=~ s/[\n\s]//g;
print <FILEHANDLE>;
close(FILEHANDL E);


I m very new to Programming. I am doing this...But unable to remove spaces.

[RonB]

If that's all you need to do, then a simple 1 liner from the command line will suffice.

C:\test>perl -pi.bak -e "s/[\n\s]//g;" file1.txt

[satishdeepak]

THANKS....U r NICE.....Thnx for Replying too fast....

[RonB]

You're Welcome :-)

Since I replied "too fast", should I slow down next time? :o)

[satishdeepak]

Nooooooo>>>>... ...yaar You are Such a Darling....i appreciate ur concern.