varsha raja rnavarsha at
Sat Sep 21 13:37:49 EST 2002

Dear Arabidopsis Group Users:

Sachin Gandhi and Varsha Raja

We have designed a new small programme if someone is
interested to blast multiple protein sequences

Input should be a file containing multiple protein
sequences in FASTA format.

#### Programme starts:

print ("Enter input file Name : ");
chomp($FileName = <STDIN>);

print ("Enter Output file name :");
chomp($OutFile = <STDIN>);

print "Process Started...\n";

open (READ,"<$FileName") or die "Cannot open input
file : $FileName\n\n";
open (WRITE,">$OutFile") or die "Cannot open output
file : $OutFile\n\n";

while (<READ>)
	chomp($Line = $_);

	if ($Line !~ /\>^/)
		$Line =~ s/\s+|[1-9]+//ig;
		print WRITE $Line;

close (READ);
close (WRITE);

print "Process Completed...\n\n";

#### Programme ends.

Many thanks,

Varsha Raja,Faculty, Bioinformatics,Xintra, Suite# 600
55,Scarborough Town Centre Court,Toronto,OntariM1P4X4,CANADA
Voice: 1-416-290-6044,Fax: 1-416-290-6110 , Personal SMS-Box Address 
"Om Bhurbhurva Swah! Tasta Viturva Renya
   Bhargo,Devatsya,Dhimahi,Dhiyoyonaha Prachodayata!"

Do you Yahoo!?
New DSL Internet Access from SBC & Yahoo!

More information about the Arab-gen mailing list