What does shift() do in Perl?

by

shift() is a built in Perl subroutine that takes an array as an argument, then returns and deletes the first item in that array. It is common practice to obtain all parameters passed into a subroutine with shift calls. For example, say you have a subroutine foo that takes three arguments. One way to get these parameters assigned to local variables is with shift like so:

sub foo() {
  my $x = shift;
  my $y = shift;
  my $z = shift;
  # do something
}

The confusion here is that it appears shift is not being passed an array as an argument. In fact, it is being passed the “default” array implicitly, which is @_ inside a subroutine or @ARGV outside a subroutine.

More Related Contents:

  1. Failing to install MIME::Base64 using cpan [closed]
  2. Declaring a 2D coordinate in Perl / C / C++ [closed]
  3. Why can’t Perl find my file that is in ClearCase?
  4. How can I use a variable as a variable name in Perl?
  5. Difference of Two Arrays Using Perl
  6. How can I output UTF-8 from Perl?
  7. What’s the difference between a hash and hash reference in Perl?
  8. Multiline search replace with Perl
  9. How do I “use” a Perl module in a directory not in @INC?
  10. How can I process options using Perl in -n or -p mode?
  11. How can I dynamically include Perl modules without using eval?
  12. Why do my Perl tests fail with use encoding ‘utf8’?
  13. How can I compile my Perl script so it can be executed on systems without ‘perl’ installed?
  14. How can I guess the encoding of a string in Perl?
  15. What is the difference between Perl’s ( or, and ) and ( ||, && ) short-circuit operators?
  16. Using output from a previous job in a new one in a GitHub Action
  17. What does !! (double exclamation point) mean?
  18. Using my with parentheses and only one variable
  19. Obtain a switch/case behaviour in Perl 5
  20. Do you use an exception class in your Perl programs? Why or why not?
  21. How do I extract the domain out of an URL?
  22. What is the meaning of @_ in Perl?
  23. How do I tell what type of value is in a Perl variable?
  24. What should I use for a Perl script’s shebang line?
  25. How can I find memory leaks in long-running Perl program?
  26. Why do Perl variables need to start with $, %,@ (sigils)?
  27. Print lines from one file that are not contained in another file
  28. Perl DBD::Oracle Module installation
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment