March a regex using split function

sreek3502 has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to extract only the FREE HEAP count value which is 1400 from the below line. Here i'm using split function twice to get the value. Can somone help me to get a single regex that would extract the value 1400 using split function here.

my @split_val = split(',',$line);
print $split_val[2];
my @split_val1= split(':',$split_val[2]);
[download]

input text

2014-04-23 14:66:87,666 INFO  - HEAP - [USAGE: 1948.3, FREE: 1400, MAX
+: 3597.5]; NON-HEAP - [USAGE: 611.9, FREE: 52.2, MAX: 1776.0]; CLASSE
+S - [Loaded: 67007, Unloaded: 3237, Left: 63770]; THREADS - [Count: 3
+42]
[download]

Output: 1400

2017-09-19 Athanasius put code tags around the input text

Comment on March a regex using split function Select or Download Code

Replies are listed 'Best First'.
Re: March a regex using split function by AnomalousMonk (Archbishop) on Sep 13, 2017 at 02:34 UTC
`c:\@Work\Perl\monks>perl -wMstrict -le "my $s = '2014-04-23 14:66:87 HEAP - [USAGE: 1948.3, FREE: 1400]; NON- +HEAP - [USAGE: 611.9, FREE: 52.2]'; ;; my ($f) = $s =~ m{ FREE: \s* (\d+) }xms or die 'no FREE'; print qq{'$f'}; " '1400'` [download] Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^2: March a regex using split function by sreek3502 (Novice) on Sep 13, 2017 at 04:52 UTC
m{ FREE: \s* (\d+) }xms Do we really require \s* and could you please tell me why did you gave xms	[reply]
Re^3: March a regex using split function by Laurent_R (Canon) on Sep 13, 2017 at 06:14 UTC
You could probably use something like this: `my ($f) = $s =~ m{FREE: (\d+)} or die 'no FREE';` [download] But AnomalousMonk's proposal is arguably more readable. Also, the `\s*` makes is possible to cope with possible variations in the number of spaces between `FREE:` and the value. Perhaps you don't need it if you can be absolutely sure that there will always be one and only one space there, but can you be that sure?	[reply] [d/l] [select]
Re^4: March a regex using split function by perldigious (Priest) on Sep 13, 2017 at 12:56 UTC
Re^3: March a regex using split function by AnomalousMonk (Archbishop) on Sep 13, 2017 at 06:18 UTC
I've no idea what "our" requirement is. My practice is to deploy defensive whitespace in situations like this. Always `/xms`: `/x` always use regex whtespace for comments; `/m` `^ $` always match embedded newlines; `/s` dot always matches all. These regex behavior modifications reduce the "degrees of freedom" of regexes — less to think about. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^4: March a regex using split function by Anonymous Monk on Sep 13, 2017 at 07:34 UTC
Re: March a regex using split function by BillKSmith (Monsignor) on Sep 13, 2017 at 13:29 UTC
A single example does not give us enough information to parse your input. My questions go far beyond the whitespace issues already discussed. All replies given so far assume that you want the first number after the first 'FREE'. Is that always true? Perhaps you need the first number after the first 'FREE' after the first 'HEAP' which is not preceded by 'NON-'. The number in your example is an integer. Always true? Can there be a newline anywhere in the record? The more that you tell us about your input, the better answer you are likely to receive. Bill	[reply]


Pathologically Eclectic Rubbish Lister
	PerlMonks