>Есть такой кусок кода
>
>elsif((($addr,$relay,$delay,$status,$toRmdr)=$logRmdr=~/to=<([^>]*)>, (?:orig_to=<[^>]*>, )?relay=([^,]+), delay=([^,]+), status=(\S+)(.*)$/o) >= 4)
>{
>
>В перле вообще не силен, поэтому понять не могу что это за
>хитрое такое сравнение. Прокомментируйте плс чтоб понятно было.
$logRmdr sravnivajetca s regularnim virazenijem i iz neje
vibirajutca podstori, kotorije prisvaivajutca peremennim:
$addr,$relay,$delay,$status,$toRmdr
$addr => ([^>]*)
$relay => ([^,]+)
$delay => ([^,]+)
$status => (\S+)
$toRmdr => (.*)
Potom sravnivajetca v skalarnom kontekste skolko peremennih bilo prisvojeno.
jesli bol6e ili ravno 4, togda true, jesli net - false.
|