Re: What the heck does this mean?

Running it through the deparser, I get:

if (/^coclli=(.*)/ and $coclli eq '') {
    $coclli = $1;
}
[download]

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
[download]

Comment on Re: What the heck does this mean? Select or Download Code

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).	[reply] [d/l] [select]