topic understanding the perl one line in Operating System - OpenVMS

understanding the perl one line

Abdul khadeer_1 — Tue, 03 Oct 2006 21:38:59 GMT

Hi,
in this forum in the thread http://forums1.itrc.hp.com/service/forums/questionanswer.do?threadId=1065208
i have seen the solution for the question as
#perl -ne '($h,$n)=split; if ($old=$o{$h}) {print "$h : ", $n - $old, "\n"} else {$o{$h}=$n}' file1.txt file2.txt
in the if statement iam seeing that the value $o{$h}is being assigned to $old,in the if condition there is no condition as i was expecting i.e like == ,>,< but the result is coming out as expected can please someone help in understanding this
Thanks in advance

Re: understanding the perl one line

Hein van den Heuvel — Tue, 03 Oct 2006 22:23:07 GMT

if ($variable)

Is true if $variable is defined and not 0.

if ($variable=$other)

First assigns $other to $variable and test the result for true or false.
So it really tests $other, while at the same time picking up its value.

It could be written as:

if ($other) {
$variable = $other;
...
}

hth,
Hein.

Re: understanding the perl one line

Abdul khadeer_1 — Tue, 03 Oct 2006 22:45:54 GMT

($h,$n)=split is going to split the file i.e host1-80 10
host2-80 15 according the space .
how is %o association being formed in this case i believe that is what you are refering by saying the $o{$h} . After the condition is true you are trying to substract $n[0]..that would be 10 or 15 and you are refering the $o{$h} is the same value if the association is being formed from spilt.
Thanks for your help in advance

Re: understanding the perl one line

Abdul khadeer_1 — Wed, 04 Oct 2006 09:00:41 GMT

thanks for explaining the how the if works .but that raised one more question i will post in a new thread