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;
}
John
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
