Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re^2: March a regex using split function

by sreek3502 (Novice)
on Sep 13, 2017 at 04:52 UTC ( #1199257=note: print w/replies, xml ) Need Help??

in reply to Re: March a regex using split function
in thread March a regex using split function

m{ FREE: \s* (\d+) }xms

Do we really require \s* and could you please tell me why did you gave xms

  • Comment on Re^2: March a regex using split function

Replies are listed 'Best First'.
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';
    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?

      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.
Re^3: March a regex using split function
by AnomalousMonk (Chancellor) 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:  <%-{-{-{-<
      'mods.x' => '(?x) disregarding whitespace and comments', 'mods.-x' => '(?-x) matching whitespace and # normally',

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1199257]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2018-06-24 00:30 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.