Perl中的正则表达式帮助

Question

I have following text pattern

(2222) First Last (ab-cd/ABC1), <first.last@site.domain.com> 1224: efadsfadsfdsf

(3333) First Last (abcd/ABC12), <first.last@site.domain.com> 1234, 4657: efadsfadsfdsf

I want the number 1224 or 1234, 4657 from the above text after the text > .

I have this \\((\\d+)\\)\\s\\w*\\s\\w*\\s\\(\\w*\\/\\w+\\d*\\),\\s<\\w*\\.\\w*\\@\\w*\\.domain.com>\\s\\d+: which will take the text before : But i want the one after email till :

Is there any easy regular expression to do this? or should I use split and do this

Thanks

Edit: The whole text is returned by a command line tool.

(3333) First Last (abcd/ABC12), <first.last@site.domain.com> 1234, 4657: efadsfadsfdsf

(3333) - Unique ID

First Last - First and last names

<first.last@site.domain.com> - Email address in format FirstName.LastName@sub.domain.com

1234, 4567 - database primary Keys

: xxxx - Headline

What I have to do is process the above and get hte database ID (in ex: 1234, 4567 2 separate ID's) and query the tables

The above is the output (like this I will get many entries) from the tool which I am calling via my Perl script.

My idea was to use a regular expression to get the database id's. Guess I could use regular expression for this

Answer 1

you can fudge the stuff you don't care about to make the expression easier, say just 'glob' the parts between the parentheticals (and the email delimiters) using non-greedy quantifiers:

/(\d+)\).*?\(.*?\),\s*<.*?>\s*(\d+(?:,\s*\d+)*):/   (not tested!)

there's only two captured groups, the (1234), and the (1234, 4657), the second one which I can only assume from your pattern to mean: "a digit string, followed by zero or more comma separated digit strings".

Answer 2

Well, a simple fix is to just allow all the possible characters in a character class. Which is to say change \\d to [\\d, ] to allow digits, commas and space.

Your regex as it is, though, does not match the first sample line, because it has a dash - in it ( ab-cd/ABC1 does not match \\w*\\/\\w+\\d*\\ ). Also, it is not a good idea to rely too heavily on the * quantifier, because it does match the empty string (it matches zero or more times), and should only be used for things which are truly optional. Use + otherwise, which matches (1 or more times).

You have a rather strict regex, and with slight variations in your data like this, it will fail. Only you know what your data looks like, and if you actually do need a strict regex. However, if your data is somewhat consistent, you can use a loose regex simply based on the email part:

sub extract_nums {
    my $string = shift;
    if ($string =~ /<[^>]*> *([\d, ]+):/) {
        return $1 =~ /\d+/g;   # return the extracted digits in a list
        # return $1;           # just return the string as-is
    } else { return undef }
}

This assumes, of course, that you cannot have <> tags in front of the email part of the line. It will capture any digits, commas and spaces found between a <> tag and a colon, and then return a list of any digits found in the match. You can also just return the string, as shown in the commented line.

Answer 3

There would appear to be something missing from your examples. Is this what they're supposed to look like, with email?

(1234) First Last (ab-cd/ABC1), <foo.bar@domain.com> 1224: efadsfadsfdsf

(1234) First Last (abcd/ABC12), <foo.bar@domain.com> 1234, 4657: efadsfadsfdsf

If so, this should work:

\((\d+)\)\s\w*\s\w*\s\(\w*\/\w+\d*\),\s<\w*\.\w*\@\w*\.domain\.com>\s\d+(?:,\s(\d+))?:

Answer 4

$string =~ /.*>\s*(.+):.+/;
$numbers = $1;

That's it. Tested.

With number catching:

$string =~ /.*>\s*(?([0-9]|,)+):.+/;
$numbers = $1;

Not tested but you get the idea.