topic Re: Perl pattern searching - help needed in Operating System - HP-UX

Perl pattern searching - help needed

Anand_30 — Fri, 28 Nov 2003 19:42:01 GMT

Hi,

I have a perl statement in a UNIX Shell script. I am using the perl statement for pattern maching.I have got the pattern in an UNIX variable 'x'. I want to use this variable for the pattern searching in the perl statement which is like:

perl -ne 'if (/pattern/) {.....}

I want the pattern to have the value of 'x'. Is it possible.

Thanks,
Andy

Re: Perl pattern searching - help needed

Karthik S S — Fri, 28 Nov 2003 19:51:26 GMT

You can use $x,

i.e.

perl -ne 'if (/$x/) {.....}

-Karthik S S

Re: Perl pattern searching - help needed

Anand_30 — Fri, 28 Nov 2003 19:54:46 GMT

Thanks for the reply Karthik,

I have tried using $x but it doesn't work.

-Anand

Re: Perl pattern searching - help needed

Karthik S S — Fri, 28 Nov 2003 19:58:11 GMT

Anand,

I think the following link might help you,

http://zamov.online.fr/EXHTML/Perl/Perl_27283.html

-Karthik S S

Re: Perl pattern searching - help needed

Karthik S S — Fri, 28 Nov 2003 21:24:54 GMT

Anand,

I tried the following and it works,

---------

#!/usr/bin/perl

if ( $#ARGV != 1 )
{
print "Usage: test.pl string_to_searched string\n";
}
else
{
$x = $ARGV[0];
$test = $ARGV[1];

if ( $test =~ /$x/ )
{
print "String contains $x in it! \n";
}
else
{ print "I am Sorry!! $x is not found in string \n";
}
}

--------------

-Karthik S S

Re: Perl pattern searching - help needed

John Wright_1 — Sun, 30 Nov 2003 18:37:01 GMT

Hi,

$ myvar="Hello World!"
$ export myvar
$ perl -e 'print $ENV{myvar} . "\n";'
Hello World!
$

Cheers,
JW.

Re: Perl pattern searching - help needed

John Wright_1 — Sun, 30 Nov 2003 18:45:38 GMT

Hi again,

Here is an example with pattern matching.

[dev] # x=xyz
[dev] # export x
[dev] # perl -e 'if ("uvwxyz" =~ /$ENV{var}/){print "match\n";}else{print "no match\n";}'
match
[dev] # perl -e 'if ("uvwyz" =~ /$ENV{var}/){print "match\n";}else{print "no match\n";}'
no match
[dev] #

Cheers,
JW.

Re: Perl pattern searching - help needed

John Wright_1 — Sun, 30 Nov 2003 18:56:49 GMT

I don't believe I did that. No points.

[dev] # x=xyz
[dev] # export x
[dev] # echo $x
xyz
[dev] # perl -e 'print "uvwxyz" =~ /$ENV{x}/ ? "Yes\n" : "No\n";'
Yes
[dev] # perl -e 'print "uvwyz" =~ /$ENV{x}/ ? "Yes\n" : "No\n";'
No
[dev] #

JW.