Perl subroutine arguments

by

You are wary of the Perl environment because it is quite different from the languages you have come across before.

The people who believe in strong typing and function prototypes will disagree here, but I believe that restrictions like that are rarely useful. Has C really caught you passing the wrong number of parameters to a function often enough to be useful?

It is most common in modern Perl to copy the contents of @_ to a list of lexical scalar variables, so you will often see subroutines starting with

sub mysub {
  my ($p1, $p2) = @_;
  ... etc.
}

that way, all parameters that are passed will be available as elements of @_ ($_[0], $_[1] etc.) while the expected ones are named and appear in $p1 and $p2 (although I hope you understand that those names should be chosen appropriately).

In the particular case that the subroutine is a method, the first parameter is special. In other languages it is self or this, but in Perl it is simply the first parameter in @_ and you may call it what you like. In those circumstances you would see

sub method {
  my $self = shift;
  my ($p1, $p2) = @_;
  ... etc.
}

so that the context object (or the name of the class if it is a class method) is extracted into $self (a name assumed by convention) and the rest of the parameters remain in @_ to be accessed either directly or, more usually, copied to local scalar variables as $p1, $p2 etc.

Most often the complaint is that there is no type checking either, so I can pass any scalar I like as a subroutine parameter. As long as use strict and use warnings are in context, even this is generally simple to debug, simply because the operations that the subroutine can perform on one form of scalar are usually illegal on another.

Although it was originally more to do with encapsulation with respect to object-oriented Perl, this quote from Larry Wall is very relevant

Perl doesn’t have an infatuation with enforced privacy. It would prefer that you stayed out of its living room because you weren’t invited, not because it has a shotgun

C was designed and implemented in the days when it was a major efficiency boost if you could get a faulty program to fail during compilation rather than at run time. That has changed now, although a similar situation has arisen with client-side JavaScript where it actually would be useful to know that the code is wrong before fetching the data from the internet that it has to deal with. Sadly, JavaScript parameter checking is now looser than it should be.

Update

For those who doubt the usefulness of Perl for teaching purposes, I suggest that it is precisely because Perl’s mechanisms are so simple and direct that they are ideal for such purposes.

  • When you call a Perl subroutine all of the parameters in the call are aliased in @_. You can use them directly to affect the actual parameters, or copy them to prevent external action

  • If you call a Perl subroutine as a method then the calling object or class is provided as the first parameter. Again, the subroutine (method) can do what it likes with @_

More Related Contents:

  1. Remove Text between two Strings
  2. If condition based look up not working [closed]
  3. Detecting when an else block gets executed for the second time [closed]
  4. What does this HTML::Parser() code do in Perl? [closed]
  5. Why use strict and warnings?
  6. Why are Perl 5’s function prototypes bad?
  7. What’s the difference between Perl’s backticks, system, and exec?
  8. How can I require an optional Perl module if installed?
  9. Specifying file to process to Perl one-liner
  10. How do I run a Perl script from within a Perl script?
  11. How do I tell if a variable has a numeric value in Perl?
  12. Perl flags -pe, -pi, -p, -w, -d, -i, -t?
  13. What pseudo-operators exist in Perl 5?
  14. How does double arrow (=>) operator work in Perl?
  15. Why are Perl source filters bad and when is it OK to use them?
  16. Perl 5.20 and the fate of smart matching and given-when
  17. Use of ‘use utf8;’ gives me ‘Wide character in print’
  18. How can I interact with ClearCase from Perl?
  19. How can I start an interactive console for Perl?
  20. What reasons are there to prefer glob over readdir (or vice-versa) in Perl?
  21. How do I convert a date/time to epoch time (unix time/seconds since 1970) in Perl?
  22. What does shift() do in Perl?
  23. Local and Global variables in perl
  24. What do you get if you evaluate a hash in scalar context?
  25. How to read to and write from a pipe in Perl?
  26. Can a Perl script install its own CPAN dependencies?
  27. How to make DateTime::Duration output only in days?
  28. In Perl, is it appropriate to use map in void context instead of a foreach loop?
  29. How do I tell CPAN to install all dependencies?
  30. How does a Perl program know where to find the file containing Perl module it uses?

Leave a Comment