Write code using less lines

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Write code using less lines by toolic (Bishop) on Apr 19, 2010 at 17:03 UTC
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: How can I count the number of occurrences of a substring within a string? Perl Idioms Explained - my $count = () = /.../g	[reply] [d/l] [select]
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]
Re: Write code using less lines by AnomalousMonk (Archbishop) on Apr 19, 2010 at 17:12 UTC
Another way, also without modification of the original string, perhaps slightly faster: `>perl -wMstrict -le "my $str = 'ABC---DR----EEEEEGGGG-GRE-RED----KKKK---'; print qq{'$str'}; my $len = $str =~ tr/A-Za-z//; print qq{'$str'}; print $len; " 'ABC---DR----EEEEEGGGG-GRE-RED----KKKK---' 'ABC---DR----EEEEEGGGG-GRE-RED----KKKK---' 24` [download]	[reply] [d/l]
Re^2: Write code using less lines by johngg (Canon) on Apr 19, 2010 at 18:54 UTC
You can save a little typing and also be a little more comprehensive with respect to "anything not a dash" by using the `c` flag (complement) of `tr`, see Quote and Quote like Operators. `knoppix@Microknoppix:~$ perl -E ' > $str = q{ABC---DR----EEEEEGGGG-GRE-RED----KKKK---}; > $len_seq = $str =~ tr{-}{}c; > say $len_seq;' 24 knoppix@Microknoppix:~$` [download] I hope this is of interest. Cheers, JohnGG	[reply] [d/l] [select]
Re: Write code using less lines by nagalenoj (Friar) on Apr 20, 2010 at 06:12 UTC
This will help you more.	[reply]
Re: Write code using less lines by petdance (Parson) on Apr 20, 2010 at 16:58 UTC
Why is it important to use fewer lines? xoxo, Andy	[reply]