Re: Regexp under PERL

[Kent Fredric]

On 8 July 2015 at 19:12, Nagy Tamas (TVI-GmbH) <tamas.n...@tvi-gmbh.de> wrote:
> This is the code:
>
> } elsif (defined($row) && ($row =~ m/\(\*[ ]+\"\@PATH\"[ ]+:=[ 
> ]+'(\/)?([\*A-Za-z_ ]*(\/)?)+'[ ]\*\)?/)) {
>      # PATH  first version:   \(\*[ ]+@PATH[ ]+:=[ ]+'(\\/)?([\*A-Za-z_ 
> ]*(\\/)?)+'[ ]\*\)?
>
>      my @path = split(':=', $row, 2);
>      $temppath = $path[1];
>      my trimmedpath = split(''', $temppath, 3);
>
>      $currentpath = trimmedpath[1];
>
> The last )) ist he closing of the elsif. Sorry. Still no idea.
>
> Tamas Nagy

Again, you're just bolting stuff together in the email client thinking
its the code. There's no way that can work. The most obvious here you
have three quote marks in split() meaning everything after that is
nonsense.

Then you use variables without sigils ( which is also nonsense under strict )

And you entirely forget to declare variables ( again, nonsense under strict ).

When you eliminate all those superficial defects, the code has no
bugs, and executes silently without so much as a squeak.

Attached is what I have, and it doesn't replicate the problem.

-- 
Kent

KENTNL - https://metacpan.org/author/KENTNL

x.pl
Description: Perl program

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/