Re: Write code using less lines

Yes, you can do it in one line (instead of three). The following counts all non-dash characters, without modifying your original string :

use strict;
use warnings;

my $str='ABC---DR----EEEEEGGGG-GRE-RED----KKKK---';
my $len_seq = () = $str =~ /[^-]/g;
[download]

This is a FAQ:

perldoc -q count
[download]

See also:

Comment on Re: Write code using less lines Select or Download Code

Replies are listed 'Best First'.
Re^2: Write code using less lines by AR (Friar) on Apr 19, 2010 at 17:11 UTC
In addition, you could do: `my $len_seq = $str =~ tr/A-Za-z//;`	[reply] [d/l]
Re^3: Write code using less lines by jwkrahn (Abbot) on Apr 19, 2010 at 18:40 UTC
Or possibly: `my $len_seq = $str =~ tr/-//c;` [download]	[reply] [d/l]