Perl prob

Does anyone know what "reference to nonexistent group" means.

I am getting that in the followoing code


foreach $file (@files)
 {

  $file =~ s|\\|/|g;

  $file =~ /^(.*\/)(.*)/;

  $path = $1;
  $file = $2;

  $cmd = qq|$iwhome\\bin\\iwcmp $workarea $staging|;

@rv = `$cmd 2>&1`;

  foreach $val (@rv)
  {
   chomp($val);

   if ($val =~ /$file/)
   {
    ($left,$right,$file) = split/\s/,$val;

    if ((($left eq "f+") || ($left eq "x+")) && ($right eq "f+"))
    {
     push(@conflicts,$file);
    }

   }

  }
 }

The error is

/assets\copy\lloydstsb\rates_and_charges\rates\1_yr_term_deposit_rates_copy_curr.xml/: reference to nonexistent group at e:\iw-home\custom\/CMF/Common.pm line 1553

line 1553 is >>>> if ($val =~ /$file/)

This does not happen every time the bit of code runs.

Hazzie
TS 5.5.2 on NT.

Find more posts tagged with

Comments

Adam Stoller

This doesn't seem to jive.
You've got: $file =~ s|\\|/|g; (*) - and then you're getting an error message that says:

assets\copy\lloydstsb\rates_and_charges\rates\1_yr_term_deposit_rates_copy_curr.xml/: reference to nonexistent group at e:\iw-home\custom\/CMF/Common.pm line 1553

Which you're saying comes from a line below the one I indicated above - yet there are still back-slashes in the string.

Are you sure you're looking at the code that is really being executed?

(* I recommend using $file =~ tr|\\|/|; - slightly more efficient)

--fish
(Interwoven Senior Technical Consultant)

Hazzie

Yeah i am looking at the right bit of code.

as stated its the line if ($val =~ /$file/) thats producing the error.

I think i may have it worked out in that the filname mentioned starts with a number.

so its something like

if ("+f +f /home/1st_file.xml" =~ /1st_file.xml/)

what i think perl is doing in the reg ex is that its treating the /1 bit of /1st_filename.xml with special meaning and is looking for a particular amount of groups within the regex. The amount of which is determined by the value of the number.

I am going to replace the

if ($val =~ /$file/)

with

if (index($val,$file) > -1)

and see if that works.

thanks for the reccomendation on the $file =~ s| ....... g; bit. I will change it soon.

Hazzie
TS 5.5.2 on NT.