topic Re: perl - using a scaler variable to represent an R.E. in Operating System - HP-UX

perl - using a scaler variable to represent an R.E.

Mr Peter Kempner — Mon, 11 Mar 2002 13:27:16 GMT

I am trying to write a perl script and I am confused. I want to use a scalar variable to hold an RE against which to pattern match. It doesnt work. eg

$pattern='/humpty|jack/'
.
.
if ($variable_x =~ $pattern)
{
print 'Match found for humpty or jack'
}

Does not work.

If instead of $pattern I use /$var_a|$var_b/ where $var_a = humpty and $var_b = jack then it works fine! What am I not getting???

Re: perl - using a scaler variable to represent an R.E.

harry d brown jr — Mon, 11 Mar 2002 13:32:42 GMT

Change $pattern to

$pattern=/humpty|jack/;

get rid of the quotes

live free or die
harry

Re: perl - using a scaler variable to represent an R.E.

Rodney Hills — Mon, 11 Mar 2002 14:23:28 GMT

The "/" is part of the syntax for the matching operation.

Therefore do the following-

$pattern='humpty|jack'
.
.
if ($variable_x =~ /$pattern/)
{
print 'Match found for humpty or jack'
}

Should work.

Note- If $pattern does not change, you can use the "o" option (ie /$pattern/o) to have perl generate more effecient code for execution.

-- Rod Hills

Re: perl - using a scaler variable to represent an R.E.

harry d brown jr — Mon, 11 Mar 2002 14:35:51 GMT

Rodney,

I like your solution much better!

live free or die
harry

Re: perl - using a scaler variable to represent an R.E.

H.Merijn Brand (procura — Mon, 11 Mar 2002 17:20:46 GMT

You got it almost right the first time, but you forgot to read the docs (use the qr// operator):

$pattern = qr/humpty|jack/;
.
.
if ($variable_x =~ $pattern)
{
print 'Match found for humpty or jack'
}

Harry's solution is plain wrong: it'd asign the result of matching $_ against the pattern. Rodney's solution is technically correct, but still suboptimal and error-prone.

Re: perl - using a scaler variable to represent an R.E.

Ralph Grothe — Mon, 11 Mar 2002 17:41:04 GMT

Sorry, a wee "correction" to Rodney's answer.

In deed you can use almost any character pair to embrace search and substituion patterns when using the operators m, s, y, tr

At the shell type

perldoc perlop
perldoc -f m
perldoc -f y
perldoc -f s
perldoc -f qr

This comes handy when you have to deal with paths, as subdirectories are delimited by /, which you otherwise would have to escape by
instead of writing

$path =~ /\/usr/\/local/\/bin/

you can say

$path =~ m|/usr/local/bin/|

or

$path =~ m(/usr/local/bin)

Of course you can also reference variables in patterns

@users = qw(Humpty Jack);

print "found match\n" if ($name =~ /$users[0]|$users[1]/)

You can even use the qr operator if you insist

$pattern = qr(Humpty|Jack);
print "found match" if $name =~ $pattern;

You can inverse logic by using '!~' instead of '=~'
But this should be familiar from awk.