Perl Regular Expressions

[Junior C.]

I have the following in a text file.

autocalcs
cdms
mservrs
XIPMessageQueue_7.0

=====

while($line = )
{
chomp ($line);
$line =~ /^(\w+)\s+(\S+)........

output from above:

autocalcs
cdms
mservrs

===============

while($line = )
{
chomp ($line);
$line =~ /^(\w+[_0-9.]+)\s+(\S+)........

output:

XIPMessageQueue_7.0


I'm looking for syntax to match all 4
autocalcs
cdms
mservrs
XIPMessageQueue_7.0


I appreciate all help.


JC.

[Stuart Browne · Accepted solution]

Well, you could just use \S+ (non-space), but that'll allow you to include symbols as well.

\w already does alpha-numeric-and-underscore, what you need to include is the '.'.

So '/^([\w\.]+)\s+(\S+)...' is what you're after.

[Alexander Chuzhoy]

This will also work:

$line=~/^([A-z0-9_.]+)\s+(\S+)....

Regards.

[Junior C.]

Thread Close