"John W. Krahn" <jwkr...@shaw.ca> writes:
> On Sat, 2018-03-10 at 00:14 +0100, hw wrote:
>>
>> Not really, the words I get from the ReadLine functions are not
>> organized in an array.
>>
>> I´ve come up with this function to compute the "depth" of a word:
>>
>>
>> sub get_depth {
>> my $string = shift;
>>
>> $string =~ s/\s/ /g;
>> $string =~ s/\s+/ /g;
>> $string =~ s/^\s*//;
>> $string =~ s/\s*$//;
>>
>> my $depth = 0;
>> my $position = 0;
>> while((my $start = index($string, ' ', $position)) != -1) {
>> $position = $start + 1;
>> $depth++;
>> }
>>
>> return $depth;
>> }
>
> That function could be simplified to:
>
> sub get_depth {
> my $string = shift;
>
> $string =~ s/^\s+//;
> $string =~ s/\s+$//;
> my $depth = $string =~ s/\s+/ /g;
>
> return $depth;
> }
Thanks, your version is much better! It still needs to do too much
work, but that probably can´t be avoided.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
