Re^2: Regex to extract number from text file

[premal]

Thanks for your reply. I tried writing following code but it is not printing anything on screen.

my @temp;
open(FILE,"C:\\test.txt");
@temp = <FILE>;
close(FILE);
foreach (@temp)
{
my $search =~ m/ClearQuest\: \(Total of 18 licenses issued\; Total of (\d+)/;
my $wd = $1;
print "\n$wd\n";
exit;

[moritz]

That's a bit of surprise to me, because for me it prints

Missing right curly or square bracket at /home/moritz/foo.pl line 10, 
+at end of line
syntax error at /home/moritz/foo.pl line 10, at EOF
Execution of /home/moritz/foo.pl aborted due to compilation errors.

Please use <code>...</code> tags around code examples that you put here, and also make sure to copy & paste them from your actual script to not introduce some bugs by incorrectly writing it down.

Also please start your scripts with

use strict;
use warnings;

And you'll get at least a warning about what you're doing wrong.

[dxxd116]

You need to change the code:

my $search =~ m/ClearQuest\: \(Total of 18 licenses issued\; Total of 
+(\d+)/;

to:

(my $search)=$_=~ m/ClearQuest\: \(Total of 18 licenses issued\; Total
+ of (\d+)/;