How to print out the count the word in Perl?

[Wiinie]

Hi, I have a problem with counting in Perl..please help

how can I print the 3 words and count it in the word "Dic-tion-a-ry

I want to pirnt 3 word = Dic => count it = 3
and Next tion => 4

can someone give me a hand.
thanks

[Rabbit]

First of all. That's not three words. That's only one word. Second, I assume you meant syllable, but it's not even three syllables, it's four. Third, to count syllables, you need an algorithm that will break a word up into syllables. We will not do that for you here, but we can help you if you get stuck somewhere while you're creating your algorithm. But you will have to post the code you're using.

[Wiinie]

my algorithm works fine in my code
and I can make a syllables in 1 word.
and can you help me how to count the word

dic~tum~st
and I want to cut it and count it
count(dic).. something like this.. do you know any way in Perl that can help me



thanks

[Rabbit]

I'm not even sure what it is you're counting. You say you're counting words but you're not counting words cause you only have one word.

[Wiinie]

sorry about that . I try to count the character in the word

[Rabbit]

The length function will give you the amount of characters in a string.

[Wiinie]

it doesnt work cuz the length only works if there is an array///
I have figure out how to split it
other question.

Do you know how to add the array
I have
@array = ('Dic', 'tum','st');
i want to add array[0] to array[1],
so the array[1] = 'Dictum';


can you please help me for this..

thank you very much..

[Rabbit]

You can use the join function to concatenate an array. But the length function should give you the length of a string.

[Wiinie]

Do you know there is anyway to count the matching time
Dic~tum~st

I want to count the time that "~" sign appear..

thank so very much

[Wiinie]

the join function , it doesnt work

$word= "dic~tum~st";
@splitedWord = split(/~/, $word);
                    print "Splited Word: @splitedWord\n";
                    $first = @splitedWord[0];
                    print "first : $first \n";
                    @splitedWord[1] = join('$first', @splitedWord[1]);
                    print "Joined @splitedWord[1]\n";
 

it doesnt work

[Rabbit]

It's not working cause you're passing a single item in the array. For a join you need to pass an array, not a single item.

[Wiinie]

can you give me an example please..
I am a new in Perl so there are something that I may not understand all..


Thanks