Обсуждение: Small plperl documentation patch

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
NotDashEscaped: You need GnuPG to verify this message


Using $a and $b for temporary vars are bad form for our example,
as they have special meaning in Perl.

Index: plperl.sgml
===================================================================
RCS file: /projects/cvsroot/pgsql/doc/src/sgml/plperl.sgml,v
retrieving revision 2.46
diff -r2.46 plperl.sgml
121,124c121,124
<     my ($a,$b) = @_;
<     if (! defined $a) {
<         if (! defined $b) { return undef; }
<         return $b;
---
>     my ($x,$y) = @_;
>     if (! defined $x) {
>         if (! defined $y) { return undef; }
>         return $y;
126,128c126,128
<     if (! defined $b) { return $a; }
<     if ($a > $b) { return $a; }
<     return $b;
---
>     if (! defined $y) { return $x; }
>     if ($x > $y) { return $x; }
>     return $y;

--
Greg Sabino Mullane greg@turnstep.com
PGP Key: 0x14964AC8 200510181742
http://biglumber.com/x/web?pk=2529DF6AB8F79407E94445B4BC9B906714964AC8

-----BEGIN PGP SIGNATURE-----

iD8DBQFDVWyGvJuQZxSWSsgRApOzAJ9edQHEDRysEx0nLlI0hV7v1bZikQCgyVnU
Rdouv5dEUTrW9TmZ4DExwjs=
=mi+E
-----END PGP SIGNATURE-----

Patch applied, thanks. I actually told somebody off roundly about this
not long ago.

cheers

andrew

Greg Sabino Mullane wrote:

>
>Using $a and $b for temporary vars are bad form for our example,
>as they have special meaning in Perl.
>
>
[snip]

"Greg Sabino Mullane" <greg@turnstep.com> writes:
> Using $a and $b for temporary vars are bad form for our example,
> as they have special meaning in Perl.

Please, tell me that isn't so.  $a is a reserved name now?  What was
Larry thinking?

            regards, tom lane

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1


Tom Lane asked:

> Please, tell me that isn't so.  $a is a reserved name now?  What was
> Larry thinking?

It's not that bad, really. $a and $b have special meaning inside of
a sort subroutine as the two items being compared. Thus, you can write
something like this:

my @crooks = sort { lc $a cmp lc $b } @whitehouse;

  to create a list sorted by lowercase (albeit not in the most efficient
matter). This will work even with "use strict" turned on, as $a and $b
will not trip Perl's strict-mode checking of undeclared variables. So,
the danger is very minor, but it's a good practice to not use them for
temporary variables in a script.

- --
Greg Sabino Mullane greg@turnstep.com
PGP Key: 0x14964AC8 200510182220
http://biglumber.com/x/web?pk=2529DF6AB8F79407E94445B4BC9B906714964AC8

-----BEGIN PGP SIGNATURE-----

iD8DBQFDVa2qvJuQZxSWSsgRAoMSAJ4i+TlQOYUw5w8VCLqsSKakfgaWfQCfeqGo
n5Rn3XwUZZgwdHrs/7i3GNI=
=/0mE
-----END PGP SIGNATURE-----

Greg Sabino Mullane wrote:

>Tom Lane asked:
>
>
>
>>Please, tell me that isn't so.  $a is a reserved name now?  What was
>>Larry thinking?
>>
>>
>
>It's not that bad, really. $a and $b have special meaning inside of
>a sort subroutine as the two items being compared. Thus, you can write
>something like this:
>
>my @crooks = sort { lc $a cmp lc $b } @whitehouse;
>
>  to create a list sorted by lowercase (albeit not in the most efficient
>matter). This will work even with "use strict" turned on, as $a and $b
>will not trip Perl's strict-mode checking of undeclared variables. So,
>the danger is very minor, but it's a good practice to not use them for
>temporary variables in a script.
>
>
>
>

I recently lost quite some time tracking down a piece of spurious data
persistence that eventually turned out to be due to use of an undeclared
$a that strict mode failed to detect, so it's not so minor, really.

In retrospect, the choice of names for sort comparison operands was
poor, as I suspect Larry would agree, but it's been there ever since I
have been using perl (around 12 years now, iirc).

cheers

andrew