Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: What the heck does this mean?

by japhy (Canon)
on Mar 13, 2001 at 01:28 UTC ( #63968=note: print w/ replies, xml ) Need Help??


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


Comment on Re: What the heck does this mean?
Select or Download Code
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).

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://63968]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (8)
As of 2014-09-16 04:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (156 votes), past polls