that doesn't reveal what:
$Explanation = < ) ); #-- Alignment data
does. can you again provide some code above this line? it start to look like
a real syntax error to me unles the whole subroutine is really inside a
pod. what happen if you:
perl -c <your script>
david
Prachi Shah wrote:
> 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]
