Re: March a regex using split function

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: <%-{-{-{-<

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

Replies are listed 'Best First'.
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
You missed a great opportunity to make a Larry Wall style in code pun here... `or die 'if not FREE'; #William Wallace agrees!` :-) Just another Perl hooker - My clients appreciate that I keep my code clean but my comments dirty.	[reply] [d/l]
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
ppixregexplain.pl `'mods.x' => '(?x) disregarding whitespace and comments', 'mods.-x' => '(?-x) matching whitespace and # normally',` [download]	[reply] [d/l]


Clear questions and runnable code get the best and fastest answer
	PerlMonks