Re^2: count the occurrences of particular word in a file and extract number in ()

Um -- (1) would be an infinite loop, without a "g" in the regex. Use:

use strict;

my $count = 0;
while( <DATA> ) {
   print;
    ++$count while m[the]ig;
}
print "'the' appeared $count times in 'theFile'\n";
__DATA__
THis is the dawning of the age of Aquarius.
Good morning Starshine, the earth says hello. The end.
[download]

For #2, simpler code:

my ($extracted_value) = $extract =~/^\( (\d.+) \)$/;
# Will be undef if nothing found.
[download]

Syntactic sugar causes cancer of the semicolon. --Alan Perlis

Comment on Re^2: count the occurrences of particular word in a file and extract number in () Select or Download Code

Replies are listed 'Best First'.
Re^3: count the occurrences of particular word in a file and extract number in () by BrowserUk (Patriarch) on Mar 20, 2011 at 05:57 UTC
(1) would be an infinite loop, without a "g" in the regex Indeed, now corrected. I explicitly remove the /i (and accidentally the /g), because it would give wrong results if the OP really mean 'the' and not 'The' or 'THE'. simpler code: Will be undef if nothing found. That is no simpler as you still have to handle the possibility of undef. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply]

Replies are listed 'Best First'.

Re^3: count the occurrences of particular word in a file and extract number in ()
by BrowserUk (Patriarch) on Mar 20, 2011 at 05:57 UTC

(1) would be an infinite loop, without a "g" in the regex

Indeed, now corrected. I explicitly remove the /i (and accidentally the /g), because it would give wrong results if the OP really mean 'the' and not 'The' or 'THE'.

simpler code: Will be undef if nothing found.

That is no simpler as you still have to handle the possibility of undef.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

[reply]