"John W. Krahn" schreef:
> s/\\//g;
> s/'/\\'/g;
These two can be combined to
s/(?=[\\'])/\\/g
which I don't expect to be faster; it just makes it easier to add
characters to be escaped.
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PR
Gundala Viswanath wrote:
Hi,
Hello,
This cowde below tries to convert
the string in newick format into the corresponding
data structure (Array of Array).
But somehow the EVAL function doesn't work
as expected. What's wrong with my code here?
__BEGIN__
use Data::Dumper;
use Carp;
my $str =
On Wed, 2008-09-03 at 23:51 -0700, Gundala Viswanath wrote:
> my $str = "(foo,(bar,qux))"; #Newick format
> print "$str\n";
>
> my $ar = conv_newick2aoa($str);
> print Dumper $ar ;
>
> sub conv_newick2aoa {
>
> my $nstr_in = shift;
> my $nstr= $nstr_in;
> for ($nstr) {
>
