in reply to What the heck does this mean?

Running it through the deparser, I get:
if (/^coclli=(.*)/ and $coclli eq '') { $coclli = $1; }
It's using a regex to assign to $coclli if the variable isn't already assigned.

The deparser is available in Perl 5.005 and up, as:

japhy% perl -MO=Deparse program_name

japhy -- Perl and Regex Hacker

Replies are listed 'Best First'.
Re: Re: What the heck does this mean?
by Falkkin (Chaplain) on Mar 13, 2001 at 01:33 UTC
    Basically, in English, this code reduces to:

    If the string $_ starts with "coclli=", and then "some characters", and the variable $coclli is equal to the empty string, set the variable $coclli to the (any-amount-of-characters).