recognising a special character inside [^]

[Jason Quek]

Hi

What I need to do is to print only '1|2|3'.

#----------------------------------------------------------------
@array = (
'1',
'1|2',
'1|2|3',
'1|2|3|4',
'1|2|3|4|5',
'1|2|3|4|5|6'
);

$string = '1|2';

foreach (@array)
{
if ($_ =~ /^$string\|([^\|]*)$/)
{
print "$_\n";
}
}
#----------------------------------------------------------------

But the above code prints the entire array out.

I believe the problem lies with ([^\|]*).

How do I correctly tell Perl to recognise the pipe | character inside
([^\|]*)

Any help would be appreciated.




Jason Q.

[Brian Wakem]

"Jason Quek" <qjason@cyberway.com.sg> wrote in message
news:3f66b174.7039109@news.starhub.net.sg...

> Hi
>
> What I need to do is to print only '1|2|3'.
>
> #----------------------------------------------------------------
> @array = (
> '1',
> '1|2',
> '1|2|3',
> '1|2|3|4',
> '1|2|3|4|5',
> '1|2|3|4|5|6'
> );
>
> $string = '1|2';
>
> foreach (@array)
> {
> if ($_ =~ /^$string\|([^\|]*)$/)
> {
> print "$_\n";
> }
> }
> #----------------------------------------------------------------
>
> But the above code prints the entire array out.
>
> I believe the problem lies with ([^\|]*).
>
> How do I correctly tell Perl to recognise the pipe | character inside
> ([^\|]*)
>
> Any help would be appreciated.

if ($_ =~ /^\Q$string\E\|([^\|]*)$/) {
....
}

--
Brian Wakem

[Tad McClellan]

Jason Quek <qjason@cyberway.com.sg> wrote:

> $string = '1|2';

vertical bars are special in a regex, you must backslash them
if you want a literal one:

my $string = '1\|2';

> I believe the problem lies with ([^\|]*).

Nope.


--
Tad McClellan SGML consulting
[email]tadmc@augustmail.com[/email] Perl programming
Fort Worth, Texas