Hi all,
I use the following script to find out the methods
available from a class of Bio::Seq.
#!c:/Perl/bin/Perl.exe
use warnings;
use strict;
use Bio::Seq;
use Data::Dumper;
use Class::Inspector;
my $methods=Class::Inspector->methods('Bio::Seq',
'full','public');
print Data::Dumper->Dump([$methods]), "\n\n";
exit;
The problem is that the output is not in alphabetic
order. So I remove this line
print Data::Dumper->Dump([$methods]), "\n\n";
and defer the reference of array using these lines
foreach (sort @$methods) {
print "$_", "\n\n";
}
Now it works.
My quesion: is it possible to let the job done using
OO style?
Thanks,
Li
--- "Charles K. Clarkson" <[EMAIL PROTECTED]>
wrote:
> Jeff Pang wrote:
>
> : my @original=(...);
> : my @sort=sort {$a cmp $b} @original;
> : print Dumper @sort;
>
> You might like the results better using an array
> reference.
>
> print Dumper [EMAIL PROTECTED];
>
>
> Or you could avoid the extra array with the
> anonymous array
> constructor (or is it an operator? [shrug])
>
> print Dumper [ sort {$a cmp $b} @original ];
>
>
> HTH,
>
> Charles K. Clarkson
> --
> Mobile Homes Specialist
> Free Market Advocate
> Web Programmer
>
> 254 968-8328
>
> If it looks wrong convert it to plain text.
>
>
> --
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
> <http://learn.perl.org/>
> <http://learn.perl.org/first-response>
>
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
