Re^2: Regex to extract number from text file

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;

Comment on Re^2: Regex to extract number from text file

Replies are listed 'Best First'.
Re^3: Regex to extract number from text file by moritz (Cardinal) on Feb 18, 2009 at 12:13 UTC
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.` [download] 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;` [download] And you'll get at least a warning about what you're doing wrong.	[reply] [d/l] [select]
Re^3: Regex to extract number from text file by dxxd116 (Beadle) on Feb 18, 2009 at 13:49 UTC
You need to change the code: `my $search =~ m/ClearQuest\: \(Total of 18 licenses issued\; Total of +(\d+)/;` [download] to: `(my $search)=$_=~ m/ClearQuest\: \(Total of 18 licenses issued\; Total + of (\d+)/;` [download]	[reply] [d/l] [select]