- Perl Basics
- Perl - Home
- Perl - Introduction
- Perl - Environment
- Perl - Syntax Overview
- Perl - Data Types
- Perl - Variables
- Perl - Scalars
- Perl - Arrays
- Perl - Hashes
- Perl - IF...ELSE
- Perl - Loops
- Perl - Operators
- Perl - Date & Time
- Perl - Subroutines
- Perl - References
- Perl - Formats
- Perl - File I/O
- Perl - Directories
- Perl - Error Handling
- Perl - Special Variables
- Perl - Coding Standard
- Perl - Regular Expressions
- Perl - Sending Email
- Perl Advanced
- Perl - Socket Programming
- Perl - Object Oriented
- Perl - Database Access
- Perl - CGI Programming
- Perl - Packages & Modules
- Perl - Process Management
- Perl - Embedded Documentation
- Perl - Functions References
- Perl Useful Resources
- Perl - Questions and Answers
- Perl - Quick Guide
- Perl - Useful Resources
- Perl - Discussion
Perl pop Function
Description
This function returns the last element of ARRAY, removing the value from the array. Note that ARRAY must explicitly be an array, not a list.
If ARRAY is omitted, it pops the last value from @ARGV in the main program or when called within eval STRING, or the BEGIN, CHECK, INIT, or END blocks. Otherwise, it attempts to pop information from the @_ array within a subroutine. It is the opposite of push, which when used in combination, allows you to implement "stacks".
Note that after applying pop the array will be shortened by one element.
Syntax
Following is the simple syntax for this function −
pop ARRAY pop
Return Value
This function returns undef if list is empty else last element from the array.
Example
Following is the example code showing its basic usage −
#!/usr/bin/perl -w @a = (1, 2, 3, 4); print("pop() ", pop(@a), " leaves ",@a, "\n");
When above code is executed, it produces the following result −
pop() 4 leaves 123