Here's what the main function looks like....it has more subroutines below,
but I guess this might be enough for you guys to look at.
I also realise that there is a right curly parentheses at the end which does
not have a starting left parentheses. So, maybe this code is full of syntax
errors.
thanks,
Prachi.
###### start code here
#! perl
use Getopt::Std;
$Explanation = < ) ); # Alignment data
undef @Code;
undef %Seq;
if( /^CLUSTAL/ ) { get_clustal_result(); }
elsif( /^#mega/ ) { get_mega_resul(); }
elsif( /^\%(\S+)/ ) { get_gde_result( $1 ); }
elsif( /^PileUp/ ) { get_msf_result(); }
elsif( /^\s*(\d+)\s+(\d+)$/ ) { get_phylip_result($1, $2); }
elsif( /^>[PDR][1LC];(\S+)/ ) { get_pir_result( $1 ); }
elsif( /^>(\S+) *(.*)/ ) { get_fasta_result( $1, $2 ); }
else { die "Unknown format\n"; }
$SN = scalar( @Code );
for( $i = 0; $i < $SN; $i++ ) {
$Gi[$i] = $Code[$i];
}
}
_________________________________________________________________
MSN Photos is the easiest way to share and print your photos:
http://photos.msn.com/support/worldwide.aspx
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
