how to parse string from [?

[sam]

Hi,

I have the following string need to be parsed in perl,
"sshd(pam_unix)[2009]"

I want to extract the first the word up to "[", what is the regular
expression can do that?
The following regular express does not work:
"m/^([^\[]*)\[.*]$"

Thanks
sam

 

[Gunnar Hjalmarsson]

I have the following string need to be parsed in perl,
"sshd(pam_unix)[2009]"

I want to extract the first the word up to "[", what is the regular
expression can do that?
The following regular express does not work:
"m/^([^\[]*)\[.*]$"

No? Exactly what did you expect it to do, and what did it do? Please
post complete code.

(I take for granted that the missing trailing slash is a typo when you
retyped the code into the message. Don't retype - copy and paste!)

 

[sam]

Hi,

I have the following string need to be parsed in perl,
"sshd(pam_unix)[2009]"

I want to extract the first the word up to "[", what is the regular
expression can do that?
The following regular express does not work:
"m/^([^\[]*)\[.*]$"

Thanks
sam

"does not work" is a little vague. You need to terminate the regular
expression with another '/'. Except for that, your expression works for
me. You can simplify it a little by 1) not escaping ']' in the character
class (it doesn't need it), and 2) not including the extraneous '\[.*]$'
at the end, unless you are trying to eliminate lines that do not match
that part.

Please post a complete, working program and tell us what it is doing
that "does not work".

Thanks for your suggestion, here is my simplified perl script:
#!/usr/bin/perl -w
use strict; while (<DATA>) { print "$1\n" if "m/^([^\[]*)\[.*$/"; } __DATA__
sshd(pam_unix)[2009]

Note, there is no "\n" at the end of the "sshd(..)[2009]" string.

thanks
sam

 

[Paul Lalli]

Jim Gibson wrote:

Thanks for your suggestion, here is my simplified perl script:
#!/usr/bin/perl -w
use strict; while (<DATA>) { print "$1\n" if "m/^([^\[]*)\[.*$/"; } __DATA__
sshd(pam_unix)[2009]

Note, there is no "\n" at the end of the "sshd(..)[2009]" string.

Why are you putting quotes around your whole regexp? You're suddenly
asking if this big long string returns a true value, rather than whether
or not a pattern match succeeds. Get rid of those quotes.

print "$1\n" if /^([^[]*)/;


Paul Lalli

 

[sam]

Jim Gibson wrote:

Thanks for your suggestion, here is my simplified perl script:
#!/usr/bin/perl -w
use strict; while (<DATA>) { print "$1\n" if "m/^([^\[]*)\[.*$/"; } __DATA__
sshd(pam_unix)[2009]

Note, there is no "\n" at the end of the "sshd(..)[2009]" string.

Why are you putting quotes around your whole regexp? You're suddenly
asking if this big long string returns a true value, rather than whether
or not a pattern match succeeds. Get rid of those quotes.

print "$1\n" if /^([^[]*)/;

Thanks, it works now.
sam