# Perl Programming/Print version

## Getting StartedEdit

This book assumes that you know absolutely nothing about programming at all and that Perl is your first language. However, basic operations such as making text files are outside of the realm of this tutorial.

### Obtaining PerlEdit

To find out, if you already have Perl installed on your computer, go into the command line and type:

perl -v


This will display which version of Perl you have installed on your computer, if it is installed.

There are at least two easy ways to install Perl on Windows: the ActiveState distribution, and the Strawberry Perl distribution. Both are downloadable as native Windows installers. ActivePerl has a prebuilt package repository and is supported by a corporation, while Strawberry Perl includes a compiler (gcc) so that perl modules can be installed "on the fly" and is community-supported.

Most Unix-like operating systems will include Perl by default, and Linux Standard Base mandates that all compliant Linuxes ship with Perl installed. However, if for some reason you don't have perl, you can explore the options available to you at the main Perl download page, which will provide links to source and binaries.

### Writing programsEdit

#### A sample programEdit

Perl is an interpreted language, which means you will always need the Perl interpreter which will compile and execute your program each time you run it. Instead of compiling your program into bytecode, like in C++ or Pascal, and then executing it, you can simply copy your program's source code to a different computer (that has the Perl interpreter) and run it.

For our first example, run your favorite text editor, and type something like this:

#!/usr/bin/perl
use strict;
use warnings;

print "Hello World";


If you don't understand this yet, don't worry; This will be explained in more depth later.

Save the file as myprog.pl and you have a Perl program ready to run.

### Running programsEdit

#### WindowsEdit

To run a Perl program with a modern version of ActivePerl installed, you simply click on it. If the screen flashes and you can't see the output you might have to execute the file from within the windows shell (ie. cmd.exe or PowerShell). With Strawberry Perl, you'll have to execute a Perl program from the command line as shown below.

From a Windows command-line interface, you can run the program thusly:

C:\> perl path\to\foo\myprog.pl


or, if perl.exe is not in your path:

C:\> c:\perl\bin\perl.exe myprog.pl


Note: You may have to specify the full path to your program unless you are running the command prompt in that directory.

#### UNIX-like systemsEdit

You can run a Perl program by running perl itself, and telling the shell the name of the file:

perl myprog.pl


Usually, Perl programs are made executable on their own. This involves two changes to the sample program. First, edit it and put the following shebang line at the top of the file:

#!/usr/bin/perl


Then, at a command prompt, make your program executable by using chmod.

chmod +x myprog.pl


Your program is now executable and ready to run, just like any other file. To execute, type:

./myprog.pl


By convention, .pl identifies a Perl script, and .pm a Perl library. The .pl file extension isn't needed for either of these examples; it's just a useful way of identifying files. The only time the convention should be violated is if the program is to be installed outside of the current working directory, and there runs a chance you might want to some day rewrite them in a different language.

## A first taste of PerlEdit

Here's a simple program written in Perl to get us started:

#!/usr/bin/perl

# Outputs Hello World to the screen.

print "Hello World!\n";


Let's take a look at this program line by line:

• #!/usr/bin/perl
On Unix systems this tells the Operating System to execute this file with the program located at /usr/bin/perl. This is the default Unix location for the perl interpreter, on Windows #!C:\Perl\bin\perl.exe or #!C:\strawberry\perl\bin\perl.exe (depending on whether ActivePerl or Strawberry Perl was installed) should be used instead.
 Shebang: A line at the start of a file, beginning with #!, that gives instructions to the operating system.
• # Outputs ...
This line is a comment - it is ignored by the perl interpreter, but is very useful. It helps you to debug and maintain your code, and explain it to other programmers.
 Comment: A line of plain text ignored by the interpreter in a file of code.
• print "Hello World!\n";
The print instruction writes whatever follows it to the screen. The \n at the end of the string puts a new line to the screen. The semicolon at the end of the line tells the perl interpreter that the instruction is finished; you must put a semicolon at the end of every instruction in Perl code.
 String: A sequence of characters used as data by a program.

### ExercisesEdit

 Change the program so it says hello to you. Change the program so that after greeting you, it asks how you are doing, on the next line. The output should look like this: Hello your_name! How are you?  Experiment with the \n character, what happens when you take it away? What happens, if you put two in a row? Remember: If you add another print instruction you will need to put a semicolon after it.

## StringsEdit

Any sequence of characters put together as one unit, is a string. So, the word the is a string. This sentence is a string. Even this entire paragraph is a string. In fact, you could consider the text of this entire book as one string.

Strings can be of any length and can contain any characters, numbers, punctuation, special characters (like ! #, and %), and even characters in natural languages besides English. In addition, a string can contain special whitespace formatting characters like newline, tab, and the bell character. We will discuss special characters more later on. For now, we will begin our consideration of strings by considering how to insert literal strings into a Perl program.

To begin our discussion of strings in Perl, we will consider how to work with string literals in Perl. The word literal here refers to the fact that these are used when you want to type a string directly to Perl. This can be contrasted with storing a string in a variable.

Any string literal can be used as an expression. We will find this useful when we want to store string literals in variables. However, for now, we will simply consider the different types of string literals that one can make in Perl. Later, we will learn how to assign these string literals to variables in the Scalar Variables section.

## Single-quoted stringsEdit

String literals can be represented in primarily three ways in Perl. We have already used one type in the simple programming examples, using double quote marks. Using double or single quote marks in Perl each has a special meaning.

Single quotes can be thought of as literal strings. In the previous examples, you may have noticed that variable names were included inside the strings with double quotes. When the results were printed, the value of the variable was placed in the printed line, not the name of the variable. If single quote marks were used, the actual variable name would have been printed because nearly all special characters that might be interpreted differently are taken at face value when using single quotes.

To see what is meant by this, try this simple program:

 my $name = "Fred"; print "Hello,$name\n";
print 'Hello, $name\n';  You should see "Hello Fred" on the first line and "Hello$name\n" on the second (without a newline after it). Putting the value of $name into the string in the first print statement is called "interpolation." If you don't need interpolation, you should use single quotes, because it makes your intent clearer. ### Special characters in qingle-quoted stringsEdit There are two characters in single quoted strings that do not always represent themselves. This is due to necessity, since single-quoted strings start and end with the ' character. We need a way to express inside a single-quoted string that we want the string to contain a ' character. The solution to this problem is to preceded any ' characters we actually want to appear in the string itself with the backslash (\ character). Thus we have strings like this:  'xxx\'xxx'; # xxx, a single-quote character, and then xxx  We have in this example a string with seven characters exactly. Namely, this is the string: xxx'xxx. It can be difficult at first to become accustomed to the idea that two characters in the input to Perl actually produce only one character in the string itself. (C programmers are already probably used to this idea.) However, just keep in mind the rules and you will probably get used to them quickly. Since we have used the \ character to do something special with the ' character, we must now worry about the special cases for the backslash character itself. When we see a \ character in a single-quoted string, we must carefully consider what will happen. Under most circumstances, when a \ is in a single-quoted string, it is simply a backslash, representing itself, as most other characters do. However, the following exceptions apply: • The sequence \' yields the character ' in the actual string. (This is the exception we already discussed above). • The sequence \\ yields the character \ in the actual string. In other words, two backslashes right next to each other actually yield only one backslash. • A backslash, by itself, cannot be placed at the end of a the single-quoted string. This cannot happen because Perl will think that you are using the \ to escape the closing '. The following examples exemplify the various exceptions, and use them properly:  'I don\'t think so.'; # Note the ' inside is escaped with \ 'Need a \\ (backslash) or \?'; # The \\ gives us \, as does \ 'You can do this: \\'; # A single backslash at the end 'Three \\\'s: "\\\\\"'; # There are three \ chars between ""  In the last example, note that the resulting string is Three \'s: "\\\". If you can follow that example, you have definitely mastered how single-quoted strings work! Instead of unreadable backslash escapes, Perl offers other ways of quoting strings. The first example above could be written as:  q{I don't think so}; # No \ needed to escape the '  ### Newlines in single-quoted stringsEdit Note that there is no rule against having a single-quoted string span several lines. When you do this, the string has newline characters embedded in it. A newline character is a special ASCII character that indicates that a new line should be started. In a text editor, or when printing output to the screen, this usually indicates that the cursor should move from the end of the current line to the first position on the line following it. Since Perl permits the placement of these newline characters directly into single quoted strings, we are permitted to do the following:  'Time to start anew.'; # Represents the single string composed of: # 'Time to' followed by a newline, followed by # 'start anew.'  This string has a total of twenty characters. The first seven are Time to. The next character following that is a newline. Then, the eleven characters, start anew. follow. Note again that this is one string, with a newline as its eighth character. Further, note that we are not permitted to put a comment in the middle of the string, even though we are usually allowed to place a # anywhere on the line and have the rest of the line be a comment. We cannot do this here, since we have yet to terminate our single-quoted string with a ', and thus, any # character and comment following it would actually become part of the single-quoted string! Remember that single-quotes strings are delimited by ' at the beginning, and ' at the end, and everything in between is considered part of the string, included newlines, # characters and anything else. ### Examples of invalid single-quoted stringsEdit In finishing our discussion of singled-quoted strings, consider these examples of strings that are not legal because they violate the exceptions we talked about above:  'You cannot do this: \'; # INVALID: the ending \ cannot be alone 'It is 5 o'clock!' # INVALID: the ' in o'clock should be escaped 'Three \\\'s: \\\\\'; # INVALID: the final \ escapes the ', thus # the literal is not terminated 'This is my string; # INVALID: missing close quote  Sometimes, when you have invalid string literals such as in the example above, the error message that Perl gives is not particularly intuitive. However, when you see error messages such as:  (Might be a runaway multi-line string starting on line X) Bareword found where operator expected Bareword "foo" not allowed while "strict subs" in use  It is often an indication that you have runaway or invalid strings. Keep an eye out for these problems. Chances are, you will forget and violate one of the rules for single-quoted strings eventually, and then need to determine why you are unable to run your Perl program. ## Brief digression from strings alone: The print functionEdit Before we move on to our consideration of double-quoted strings, it is necessary to first consider a small digression. We know how to represent strings in Perl, but, as you may have noticed, the examples we have given thus far do not do anything interesting. If you try placing the statements that we listed as examples in Single Quoted Strings, into a full Perl program, like this:  #!/usr/bin/perl   use strict; use warnings;   'Three \\\'s: "\\\\\"'; # There are three \ chars between "" 'xxx\'xxx'; # xxx, a single-quote character, and then xxx 'Time to start anew.';  you probably noticed that nothing of interest happens. Perl gladly runs this program, but it produces no output. Thus, to begin to work with strings in Perl beyond simple hypothetical considerations, we need a way to have Perl display our strings for us. The canonical way of accomplishing this in Perl is to use the print function. The print function in Perl can be used in a variety of ways. The simplest form is to use the statement print STRING;, where STRING is any valid Perl string. So, to reconsider our examples, instead of simply listing the strings, we could instead print each one out:  #!/usr/bin/perl   use strict; use warnings;   print 'Three \\\'s: "\\\\\"'; # Print first string print 'xxx\'xxx'; # Print the second print 'Time to start anew. '; # Print last string, with a newline at the end  This program will produce output. When run, the output goes to what is called the standard output. This is usually the terminal, console or window in which you run the Perl program. In the case of the program above, the output to the standard output is as follows:  Three \'s: "\\\"xxx'xxxTime to start anew.  Note that a newline is required to break up the lines. Thus, you need to put a newline at the end of every valid string if you want your string to be the last thing on that line in the output. Note that it is particularly important to put a newline on the end of the last string of your output. If you do not, often times, the command prompt for the command interpreter that you are using may run together with your last line of output, and this can be very disorienting. So, always remember to place a newline at the end of each line, particularly on your last line of output. Finally, you may have noticed that formatting your code with newlines in the middle of single-quoted strings hurts readability. Since you are inside a single-quoted string, you cannot change the format of the continued lines within the print statement, nor put comments at the ends of those lines because that would insert data into your single-quoted strings. To handle newlines more elegantly, you should use double-quoted strings, which are the topic of the next section. ## Double-quoted stringsEdit Double-quoted strings are another way of representing scalar string literals in Perl. Like single-quoted strings, you place a group of ASCII characters between two delimiters (in this case, our delimiter is "). However, something called interpolation happens when you use a double-quoted string. ### Interpolation in double-quoted stringsEdit Interpolation is a special process whereby certain special strings written in ASCII are replaced by something different. In Single-quoted strings section, we noted that certain sequences in single-quoted strings (namely, \\ and \') were treated differently - these are called backslash escape sequences. This is very similar to what happens with interpolation. For example, in interpolated double-quoted strings, various sequences preceded by a \ character act differently according to the chart below:  String Interpolated As \\ an actual, single backslash character \$ a single $character \@ a single @ character \" a single double-quote character \t tab \n newline \r hard return \f form feed \b backspace \a alarm (bell) \e escape \056 character represented by octal value, 056 (same as.) \x2E character represented by hexadecimal value, 2E (same as .) As you may have noticed in the previous chapter, you can put the name of a variable within a string with its leading dollar sign. This form of interpolation replaces the name of the variable in the string with the content of the variable. ### Examples of interpolationEdit Let us consider an example that uses a few of these characters:  #!/usr/bin/perl   use strict; use warnings;   print "A backslash: \\\n"; print "Tab follows:\tover here\n"; print "Ring! \a\n"; print "Please pay someone\@example.org \$20.\n";


This program, when run, produces the following output on the screen:

 A backslash: \
Tab follows:   over here
Ring!
Please pay someone@example.org $20.  In addition, when running, you should hear the computer beep. That is the output of the \a character, which you cannot see on the screen. However, you should be able to hear it. Notice that the \n character ends a line. \n should always be used to end a line. Those students familiar with the C language will be used to using this sequence to mean newline. When writing Perl, the word newline and the \n character are roughly synonymous. ### String operatorsEdit Operators manipulate two or more strings in some way. #### The concatenation operatorEdit Perl uses the . operator to concatenate or connect two strings together, like this: "Hello" . "World" # This is the same as "HelloWorld"  If you want to make the string have a space between Hello and World you could write it like this: "Hello" . ", " . "World" # This is the same as "Hello, World"  Or like this: "Hello" . ", World" # This is the same as "Hello, World"  #### The x operatorEdit This is called the string repetition operator and is used to repeat a string. All you have to do is put a string on the left side of the x and a number on the right side. Like this: "Hello" x 5 # This is the same as "HelloHelloHelloHelloHello"  If you wish to insert a line break after each output of the string, use: "Hello\n" x 5  ### ExercisesEdit • Write a program that uses the . operator to print "Hello, Sir!". • Write another program which uses the x operator to print "HelloHelloHelloHello". Put comments in this program that explain how it works • Remember to take some time to play with single and double quoted strings, the more practice you get, the better you will be. ## NumbersEdit Numbers in Perl do not have to be enclosed in any kind of punctuation; they can be written as straight numbers. ### Floating-point numbersEdit Here are some acceptable floating point numbers: 0.1, -3.14, 2.71828… ### IntegersEdit Integers are all whole numbers and their negatives (and 0): {… -3, -2, -1, 0, 1, 2, 3, …}. Here are a few examples of integers: 12, -50, 20, 185, -6654, 6654  The following examples are not integers: 15.5, -3.458, 3/2, 0.5  ### Non-decimal numbersEdit I'll dwell on this topic for a little longer than the other types of numbers. In Perl you can specify not only decimal numbers, but also numbers in hex, octal, and binary. If you are not familiar with how these systems work, you can try these Wikipedia articles: In Perl you have to specify when you are going to write a non-decimal number. Binary numbers start with an 0b, so here are some possible binary numbers: 0b101011101  0b10  Octal numbers start with 0 ("zero"), so here are some possible octal numbers: 015462  062657  012  Hexadecimal numbers start with 0x, so here are some possible hexadecimal numbers: 0xF17A  0xFFFF  ### Number OperatorsEdit Just like strings, numbers have operators. These operators are quite obvious so I'll just give a quick example of each one. #### The +, - , /, and * operatorsEdit These operators are pretty obvious, but here are some examples: 100 + 1 # That's 101 100 - 1 # That's 99 100/2 # That's 50 100*2 # That's 200  Perl also has the familiar increment, decrement, plus-equals, and minus-equals operators from C: $a++    # evaluate, then increment
++$a # increment, then evaluate$a--    # evaluate, then decrement

## Simple variablesEdit

Variables, called scalars, are identified with the $character, and can contain nearly any type of data. For example: $my_variable = 3;                              # integers
$my_variable = 3.1415926; # floating point$my_variable = 3.402823669209384634633e+38;    # exponents
$my_variable =$another_variable + 1;          # mathematical operation
$my_variable = 'Can contain text'; # strings$my_variable = \$another_variable; # scalar reference$my_variable = \@array_variable;               # array reference

print $my_variable;  ### Case sensitivityEdit Note that the perl interpreter is case sensitive. This means that identifier names containing lowercase letters will be treated as being different and separate from those containing uppercase letters. ## ArraysEdit Arrays in Perl use the @ character to identify themselves. @my_array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10); # numeric list @my_array = (1 .. 10); # same as above @my_array = ('John', 'Paul', 'Kanai', 'Mahenge'); # strings @my_array = qw/John Paul Kanai Mahenge/; # the same - one-word strings, with less typing @my_array = qw/red blue 1 green 5/; # mixed types @my_array = (\@Array1, \@Array2, \@Array3); # array of arrays foreach my$Item (@my_array) {
print "Next item is $Item \n"; }  However, when you deal with just one element of the array (using square brackets so it's not confused), then that element of the array is considered a scalar which takes the$ sigil:

$my_hash{'key1'} = 'value1';  Associative arrays are useful when you want to refer to the items by their names. ## SubroutinesEdit Subroutines are defined by the sub function, and used to be called using & (using & is now deprecated). Here's an example program that calculates the Fibonnaci sequence: sub fib { my$n = shift;
return $n if$n < 2;
return fib( $n - 1 ) + fib($n - 2 );
}

print fib(14);


# ConditionalsEdit

## The if statementEdit

The if statement is the primary conditional structure in Perl. The syntax is as follows:

if (''boolean expression'') {
''statement'';
}


If the boolean expression evaluates to true, the statements between the two braces will be executed. The braces around statements are mandatory, even if there is only one statement (unlike C or Java).

An alternative syntax to the if statement may be used on a single statement. This involves putting the conditional at the end of the statement rather than before, and does not include braces:

''statement'' if (''boolean expression'') ;


The following statements are synonymous:

if ($x == 20) { print "hello"; } print "hello" if ($x == 20);


You should choose whichever one is clearer in a given situation. For example, the following is legal, but unclear:

foreach my $word (@words) { if ($word eq 'end') { last; }
print "$word\n"; }  This hides the last (which is like break, and ends the loop) over at the right. Instead, use a postfix if: foreach my$word (@words) {
last if $word eq 'end'; print "$word\n";
}


The boolean expression conditional can contain any one of the comparison operators covered in the next section.

Multiple conditions can be checked together using the boolean expression operators:

• && - logical and, C style; used for most conditionals
• and - logical and, but with a lower precedence; used for flow control
• || - logical or, C style; used for most conditionals
• or - logical or, but with a lower precedence; used for flow control
• ! - logical not, C style
• not - logical not, but with a lower precedence
if (($x == 20) || (($x > 0) && ($x < 10) && !($x == 5))) {
print "x is equal to 20 or either between 0 and 10, but not 5.\n";
}


Conditional statements can also be extended with the elsif and else structures:

 if (''boolean expression 1'') {
''statement 1;''
} elsif (''boolean expression 2'') {
''statement 2;''
} else {
''statement 3;''
}


Note that an if statement is followed by any number (including zero) of elsif statements, and finally an optional else statement. The statements of an elsif will be executed, if its boolean expression is true, and no preceding (els)if statement's boolean expression is true. The trailing else (if present) is executed, if none of the preceding statements' boolean expressions are true.

### Shorthand if ... else notationEdit

If you want to shorten the conditional into one line, you may use the shortcut syntax:

This code uses the shorthand syntax within a line.
my $bar = 'exists'; my$whatExists = (exists $foo) ?$bar : 'does not exist';

$whatExists will be equal to 'exists', if$foo is defined before, and 'does not exist' otherwise

# IntroductionEdit

Perl's set of operators borrows extensively from the C programming language. Perl expands on this by infusing new operators for string functions (.=, x, eq, ne, etc.). C by contrast delegates its subset of Perl functionality to a library strings.h, and ctype.h, and includes no such functionality by default compilation. Perl also includes a highly flexible Regex engine inspired by Sed with improvements to standard POSIX regexes, most notably the support of Unicode.

# The operatorsEdit

## ArithmeticEdit

Most arithmetic operators are binary operators; this means they take two arguments. Unary operators only take one argument. Arithmetic operators are very simple and often transparent.

### BinaryEdit

All the basic arithmetic operators, addition (+), subtraction (-), multiplication (*), and division (/), and the modulus operator % exist. Modulus returns the remainder of a division (/) operation.

# 3 goes into 4, 1 time with 1 left over.
print 4%3;   # prints 1

# 2 goes into 4, 2 times with 0 left over.
print 4%2;   # prints 0

# 3 goes into -4, -2 times with 2 left over.
print -4%3;  # prints 2


The exponentiation operator is **. It allows you to raise one value to the power of another. If you raise to a fraction you will get the root of the number. In this example the second result when raised to the power of 2 should return 2 ((2**(1/2))**2 = 2).

# Four squared:
print 4**2;     # prints 16

# Square root of 2
print 2**(1/2); # prints 1.4142135623731


The function sqrt is provided for finding a square root. Other fractional powers (i.e., (1/5), (2/13), (7/5), and similar) are suitably found using the ** operator.

### UnaryEdit

The auto-decrement (--), and auto-increment (++) operators are unary operators. They alter the scalar variable they operate on by one logical unit. On numbers, they add or subtract one. On letters and strings, only the auto-increment shift one up in the alphabet, with the added ability to roll-over. Operators that come in post- and pre- varieties can be used two ways. The first way returns the value of the variable before it was altered, and the second way returns the value of the variable after it was altered.

my $foo = 1; # post decrement (printed and then decremented to 0) print$foo--; # prints 1
print $foo; # prints 0  my$foo = 1;

# pre-decrement (decremented to 0 then printed)
print --$foo; # prints 0 print$foo;    # prints 0

my $foo = 'd'; # pre-increment (incremented to e then printed) print ++$foo;  # prints e
print $foo; # prints e  my$foo = 'Z';

# post-increment (printed the incremented to AA)
print $foo++; # prints Z print$foo;    # prints AA


## AssignmentEdit

The basic assignment operator is = that sets the value on the left side to be equal to the value on the right side. It also returns the value. Thus you can do things like $a = 5 + ($b = 6), which will set $b to a value of 6 and$a to a value of 11 (5 + 6). Why you would want to do this is another question.

The assignment update operators from C, +=, -=, etc. work in perl. Perl expands on this basic idea to encompass most of the binary operators in perl.

operator name
-= subtract assign, minus-equals
*= multiply assign
/= divide assign
%= modulo assign
**= exponent assign
.= concatenate assign
x= repeat assign
&&= logical AND assign
||= logical OR assign
&= bitwise AND assign
|= bitwise OR assign
^= bitwise XOR assign
<<= left shift assign
>>= right shift assign
my $foo = 'Hello';$foo .= ', world';
print $foo; # prints 'Hello, world'; my$bar = '+';
$bar x= 6; print$bar; # prints '++++++';


## ComparisonEdit

Perl uses different operators to compare numbers and strings. This is done, because in most cases, Perl will happily stringify numbers and numify strings. In most cases this helps, and is consistent with Perl's DWIM Do-What-I-Mean theme. Unfortunately, one place this often does not help, is comparison.

name numeric string
equal == eq
not equal != ne
less than < lt
greater than > gt
less or equal <= le
greater or equal >= ge
compare <=> cmp

## LogicalEdit

Perl has two sets of logical operators, just like the comparison operators, however not for the same reason.

The first set (sometimes referred to as the C-style logical operators, because they are borrowed from C) is &&, ||, and !. They mean logical AND, OR, and NOT respectively. The second set is and, or, and not.

The only difference between these two sets is the precedence they take (See Precedence). The symbolic operators take a much higher precedence than the textual.

### ConditionalsEdit

Most of the time, you will be using logical operators in conditionals.

 # Only prints "I like cookies\n", if both $a is 5 and$b is 2
if ($a == 5 &&$b == 2) {
}


In this case, you could safely substitute and for && and the conditional would still work as expected. However, this is not always the case.

 #True, if $a is 5, and either$b, $c, or both are 2 if ($a == 5 and $b == 2 ||$c == 2) {
}
#Using brackets, the order is made more clear.
#This conditional acts in the same way as the last.
if ($a == 5 and ($b == 2 || $c == 3)) { print "I like cookies\n"; }  This, however, is completely different.  if ($a == 5 && $b == 2 or$c == 3) {
}
#Equivalent and easier to understand with brackets
if (($a == 5 &&$b == 2) or $c == 3) { print "I like cookies\n"; }  Most people prefer to use C-style logical operators and use brackets to enforce clarity rather than using a combination of textual and C-style operators (when possible), which can be very confusing at times. ### Partial evaluationEdit Partial evaluation (or "short circuiting") is the property of logical operators that the second expression is only evaluated, if it needs to be.  ($a, $b) = (5, 2); #$b < 3 is not evaluated at all, because when the interpreter
#finds that $a == 4 is false, there is no need to evaluate$b < 3
#because the conditional is automatically false
if ($a == 4 &&$b < 3) {
}


This also works with logical OR statements. If the first expression evaluates as true, the second is never evaluated, because the conditional is automatically true.

This becomes useful in a case like this:

 sub foo {
#returns a true or false value
}
foo() or print "foo() failed\n";


Here, if the foo() subroutine returns false, "foo() failed\n" is printed. However, if it returns true, "foo() failed\n" is not printed, because the second expression (print "foo() failed\n") does not need to be evaluated.

## BitwiseEdit

These operators perform the same operation as the logical operators, but instead of being performed on the true/false value of the entire expressions, it is done on the individual respective bits of their values.

• & (bitwise AND)
• | (bitwise OR)
• ^ (bitwise XOR)
• ~ (bitwise NOT)

The left and right shift operators move the bits of the left operand (e.g. $a in the case of$a << $b) left or right a number of times equal to the right operand ($b). Each move to the right or left effectively halves or doubles the number, except where bits are shifted off the left or right sides. For example, $number << 3 returns$number multiplied by 8 (2**3).

• << (left shift)
• >> (right shift)

## StringEdit

The string concatenation operator is ., not + that some other languages use.

print 'Hello' . ' world'; # prints "Hello world" without a newline at the end


There is a repeat operator for strings (x) that repeats a string a given number of times.

my $str = "hi"; my$repeated_str = $str x 5; print "$repeated_str\n"; # prints "hihihihihi" with a newline at the end


## Comparing stringsEdit

To compare strings, use eq and ne instead of == or != respectively. You can also look for a substring with substr(), or pattern-match with regular expressions.

## File TestEdit

See Perl Programming/Function Reference#-X

## OtherEdit

The range operator (..) returns a list of items in the range between two items; the items can be characters or numbers. The type of character is determined by the first operand; the code:

print ('A'..'Z');
print ('a'..'z');
print ('A'..'z');
print (1..'a');
print (1..20);
print ('&'..'!');
print (10..-10);
print "$_\n" foreach (1..10);  Outputs (Newlines added for readability): ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ  1234567891011121314151617181920 &  1 2 3 4 5 6 7 8 9 10  Note that the case is defined by the first operand, and that the 1..'a' and (10..-10) operations don't return anything. ## PrecedenceEdit Precedence is a concept that will be familiar to anyone who has studied algebra or coded in C/C++. Each operator has its place in a hierarchy of operators, and are executed in order. The precedence of perl operators is strict and should be overridden with parentheses, both when you are knowingly going against precedence and when you aren't sure of the order of precedence. For a complete listing of the order, check perlop. ## The smart match operatorEdit The smart match operator ~~ is new in perl 5.10. To use it, you'll need to explicitly say that you're writing code for perl 5.10 or newer. Its opposite operator ǃ~ matches smartly an inequality: #!/usr/bin/perl use strict; use warnings; use 5.10.0; # We will be using the smart match operator my$foo = 'low';
my $scalar = 'hi'; my @array = qw(one two three); my %hash = ( hi => 1, ho => 2, he => 3, ); if ($scalar ~~ @array) { print "1\n"; } # Doesn't print; 'hi' isn't an element in @array
if ($scalar ~~ %hash) { print "2\n"; } # Does print; 'hi' is a key in %hash if (@array ~~ %hash) { print "3\n"; } # Doesn't print; none of the elements of @array match a key in %hash if ($foo !~ %hash) { … }


The smart match operator is versatile and fast (often faster than the equivalent comparison without ǃ~ or ~~). See smart matching in detail for the comparisons it can do. ~~ is also used in the given/when switch statement new in 5.10, which will be covered elsewhere.

## DereferencingEdit

### The doubledollarEdit

A variable, previously referenced with the reference operator can be dereferenced by using a doubledollar symbol prefix:

$number = 12;$refnum = \$number; # backslash is the reference operator $$refnum = 13; #$$ is used as a dereference to the original variable$($refnum) = 11; # This is an alternative syntax using brackets print$number; # the original variable has changed


### The arrow operatorEdit

If the left hand operand of the arrow operator is an array or hash reference, or a subroutine that produces one, the arrow operator produces a look up of the element or hash:

$result =$hashreference -> {$key}; # look up a hash key from a reference variable @arrayslice =$arrayreference -> [3 .. 5]; # obtain a slice from an array reference


Perl has four fundamental data types: scalars, lists, hashes, and typeglobs.

scalar
is a funny way of saying a single value; it may be a number, a string, or a reference.
list
is an ordered collection of scalars. A variable that holds a list is called an array. Items in a list or array can be accessed by their position in the list; programs can retrieve the first, second, third, etc. item in a list.
hash
is like an array, in that a hash holds many values, but the values are identified by a unique "key", rather than an ordinal index position.
typeglob
is a variable representing an entry within the internal symbol table. It is used to manipulate file handles, and to create references or aliases.

All variables are marked by a leading sigil, which identifies the data type. The same name may be used for variables of different types, without conflict.

  $foo # a scalar @foo # a list %foo # a hash *foo # a typeglob  ## Scalar VariablesEdit ### Introduction to Scalar VariablesEdit Now that you understand how to use strings and numbers in Perl, you need to start learning how to use variables. The best way to learn about scalar variables - Perl talk for a single variable, as against a group or list of values - is to look at an example.  #!/usr/bin/perl use warnings;$my_scalar_variable = "Hello, Sir!\n";
print $my_scalar_variable;  Now let's break this program down: • The first two lines you already know, #!/usr/bin/perl and use warnings; • The third line is more interesting, it contains a scalar variable. There are a few important things to point out: 1. In case you haven't figured this out, the scalar variable in this line is$my_scalar_variable
2. Notice the $before the name my_scalar_variable, in order to define a scalar variable, this sign must appear before the name. • Now let's look at the last line. This is just the familiar print function being told to print the value of$my_scalar_variable.
 Try it! Type in the program mentioned above and run it.

### Assigning and Using Scalar VariablesEdit

In the course of writing a program, you will most likely use a variable. What is a variable? A variable is something that stores data. A scalar variable holds a single value.

#### Naming ConventionsEdit

• All scalar variables names must start with a $symbol. You can remember this by thinking$calar.
• Variable names can be comprised of alphanumeric characters and underscores.
• Numeric characters are allowed in names of variables, but not as the first character after the $. #### Using Scalar VariablesEdit ##### Scalar Variables and StringsEdit You may recall that earlier in the book, I said that whether you use " or ' in strings makes a big difference in the interaction of strings and variables. Well now I am going to explain what I meant. Now that you know what a variable is, what if you wanted to put a variable in a string? Here's the difference: • With a double quoted string, this program:  #/usr/bin/perl use warnings;$variable = 4;
print "I saw $variable lions!";  Would return "I saw 4 lions!" • With a single quoted string, this program:  #/usr/bin/perl use warnings;$variable = 4;
print 'I saw $variable lions!';  Would return "I saw$variable lions!"

 Try it! Type in the programs mentioned above and run them.

This effect is because of what I said before, single quoted strings are interpreted literally.

### Comparison OperatorsEdit

Main article: Perl Programming/Operators

There are operators that are used for comparing numbers and strings. This can be very useful when you get to more advanced programming. Both numbers and strings have their own set of operators which test for a condition such as equal or not equal and return either true or false.

#### Numeric Comparison OperatorsEdit

Here is the list of numeric comparison operators:

• == - Equal to
• != - Not equal to
• < - Less than
• > - Greater than
• <= - Less than or equal to
• >= - Greater than or equal to
• <=> - Numeric Comparison

#### String Comparison OperatorsEdit

Here is the list of string comparison operators:

• eq - Equal to
• ne - Not equal to
• lt - Less than
• gt - Greater than
• le - Less than or equal to
• ge - Greater than or equal to
• cmp - String Comparison
 NoteThe two 'Comparison' operators <=> and cmp are slightly different from the rest. Rather than returning only true or false, these operators return 1 if the left argument is greater than the right argument, 0 if they are equal, and -1 if the right argument is greater than the left argument.

### ExercisesEdit

• Try writing a program like the Hello World program except elaborate it by storing "Hello, world!\n" in a variable and then printing the variable.
• Play around with all the things we have learned so far. Try to create a program that has an example of everything we have learned so far.

Perl syntax includes both lists and arrays.

## ListsEdit

A list in perl is an ordered set of scalar values. It is represented in your code as a comma-separated sequence of values, which may or may not be contained in scalar variables. Lists can be used to make multiple assignments at once, and can be passed as arguments to several built-in and user-defined functions:

#!/usr/bin/perl
use strict;
use warnings;

my ($length,$width, $depth) = (10, 20, 15); print "The values are: ",$length, $width,$depth;

 NoteParentheses are not required in the construction of a list. They are used only for precedence.

### Alternate List ConstructionEdit

When creating a list of several strings that do not include spaces, Perl provides a shortcut to get around typing multiple quotes and commas. Instead of

($name1,$name2, $name3,$name4) = ('Paul', 'Michael', 'Jessica', 'Megan');


you can use the qw// operator. This operator uses any non-alpha-numeric character as a delimiter (typically the / character), and encloses a space-separated sequence of barewords. A delimeter separates the command with the arguments. The above line is identical to the following:

($name1,$name2, $name3,$name4) = qw/Paul Michael Jessica Megan/;


and both are equal to this:

($name1,$name2, $name3,$name4) = qw(Paul Michael Jessica Megan);


The last example uses the open and close parenthesis as a different delimeter. If there is an open and close version of the delimiter you choose, you need to use them both. Otherwise just repeat the same symbol twice. For example, you cannot type qw<Paul Michael< you have to type qw<Paul Michael>.

You can also abuse the glob syntax, when the strings do not include shell metacharacters:

($name1,$name2, $name3,$name4) = <Paul Michael Jessica Megan>;

 NoteThe resulting strings from the qw// operator are single-quoted, meaning no interpolation happens in the set. If you need to include a variable in your list, you cannot use this method.

### List assignmentsEdit

As shown above, lists can be used to make several assignments at once. If the number of variables on the left is the same as the number of values on the right, all variables are assigned to their corresponding values, as expected.

If there are fewer variables on the left than values on the right, the 'extra' values are simply ignored:

#!/usr/bin/perl

($length,$width) = (10, $w, 15); #$length gets 10, $width gets the value of$w. 15 is ignored


If there are more variables on the left than values on the right, the 'extra' variables are assigned the default undef value:

#!/usr/bin/perl

($length,$width, $depth) = (10,$w); #$length gets 10,$width gets the value of $w.$depth is undef


The existence of list assignment creates the ability to 'swap' two variables' values without the need of an intermediary temporary variable:

#!/usr/bin/perl

$foo = 10;$bar = 5;

($foo,$bar) = ($bar,$foo);  #$foo now equals 5, while$bar equals 10;


## ArraysEdit

An array in Perl is a variable that contains a list. An array can be modified, have elements added and removed, emptied, or reassigned to an entirely different list. Just as all scalar variables start with the $character, all array variables start with the @ character.  NoteIt is a common and frequent mistake in Perl to use the terms 'list' and 'array' interchangeably. They do not have the same meaning. A decent analogy is that a list (such as qw/foo bar baz/) is to an array (such as @values) as a string (such as 'Paul') is to a scalar variable (such as$name).

### Array AssignmentEdit

Arrays are assigned lists of values. The list of values can be arbitrarily large or small (it can even contain 0 elements).

 #!/usr/bin/perl

@nums = (1,2,3,4,5);

@more = 6..1000; #using the 'range' operator

@none = ();  # empty array.

@names = qw/Paul Michael Jessica Megan/;

@all = (@nums, @more);  #@all contains all integers from 1 to 1000


That last example exemplifes a feature of Perl known as 'array flattening'. When an array is used in a list, it is the array's elements that populate the list, not the array itself. As stated above, a list is a set of scalar values only. Therefore, the @all array contains 1000 elements, not 2.

 NoteAlthough this implies you cannot create an 'array of arrays', or 'two-dimensional arrays', such things do exist in Perl. They are simulated by using references.

### Arrays in scalar contextEdit

When an array is used in scalar context - either by assigning a scalar variable to the array's value, or using it in an operation or function that expects a scalar - the array returns its size. That is, it returns the number of elements it currently contains

 #!/usr/bin/perl

@names = ('Paul','Michael','Jessica','Megan');

$how_many = @names; print "I have a total of$how_many names\n";

 NoteA common misconception is that a list in scalar context will also return its size. This is untrue. In fact, there is no such thing as a list in scalar context: using the comma operator in a scalar context does not create a list, instead it evaluates each of its arguments, left to right, and returns the last one: $name = ('Paul','Michael','Jessica','Megan'); print "The last name in my list is$name\n"; 

### Printing an ArrayEdit

There are two general ways of printing the values of an array. You can either print the list of items in the array directly, or you can interpolate the array in a double-quoted string.

 @names = qw/Paul Michael Jessica Megan/;
print "My names are: ", @names, ".\n";
print "My names are: @names.\n";


In the first example, the print function is being given a list of 6 arguments: the string 'My names are: ', each of the four values in @names, and the string ".\n". Each argument is printed separated by the value of the $, variable (that defaults to the empty string), resulting in the values from the array being 'squished' together: My names are: PaulMichaelJessicaMegan.  In the second example, the print function is being given exactly one argument: a string that contains an interpolated array. When Perl interpolates an array, the result is a string consisting of all values in the array separated by the value of the$" variable (that defaults to a single space):

My names are: Paul Michael Jessica Megan.

 NoteBoth the $, and$" variables can be changed to any string you like. For example, to separate the array's items with a comma and a space instead of just a space: $" = ', '; print "My names are: @names.\n";  My names are: Paul, Michael, Jessica, Megan.  You generally do not want to do that as this may cause problems in other parts of your program depending on the default values of those variables though! A safer way to print your arrays with custom separator will be explained later. ### Accessing Elements of an ArrayEdit The elements of an array are accessed using a numerical reference within square brackets. Because each item within an array is a scalar value, you need to use$ when referencing a value. The first element of an array is number 0 and all the others count up from there.

A negative number will count down from the right side of the array. This means that -1 references the last element of the array and -3 references the third to last element. Let's see some examples:

 @array = (1, 2, 3, 4, 5);
print $array[0]; # Prints 1 print$array[3];   # Prints 4
print $array[-1]; # Prints 5  What if you need to know the last index?$#array will return it for you:

 @array = (1, 2, 3, 4, 5);
print $array[4]; # Prints 5 print$array[-1];        # Same as above
print $array[$#array ]; # Also prints 5


A common mistake is to do this:

 print @array[0];  # Also prints 1, but for the wrong reasons


In fact @array[0] is a slice (that is, a sub-array of an array) that contains one element, whereas $array[0] is a scalar that contains the value 1. ### Common array functionsEdit ## Command line argumentsEdit As you may wonder, Perl scripts support command line arguments. The entire list of parameters is stored in the array @ARGV, with the first entry containing the first command line argument. If no command line parameters were passed, @ARGV is an empty array. The array functions and operators listed above can easily be used to detect the passed command line arguments and to detect the number of arguments provided. ## Related articlesEdit A Perl hash is similar to an ordinary array, but instead of using integer indexes, a hash uses "keys" that can take on any scalar value. These are usually strings or numbers. Syntax: instead of the @ operator, associative arrays use the % symbol, and rather than square brackets [], as in $myarray[0], hash elements are referenced using curly brackets {}, as in $myhash{"george"}. Hashes are one of the most powerful and commonly used features in Perl. A typical use would be to build a hash that contains a "dictionary", with each key being a word in the dictionary, and the corresponding values being the definitions of those words. A hash containing the sounds various household pets make is below my %petsounds = ("cat" => "meow", "dog" => "woof", "snake" => "hiss");  '=>' and ',' are actually interchangeable, so the right side could look exactly like an array. This means that you can assign an array to a hash. In such an assignment, each element with an even index (starting from 0) in the array becomes a key in the hash. The following statements create the same hash as the previous one does my @array = ("cat", "meow", "dog", "woof", "snake", "hiss"); my %petsounds = @array;  But the first style is more preferred because it makes the statement more readable. To access a hash element, use the curly brackets:  print STDOUT "The cat goes " .$petsounds{"cat"} . ".\n";


will print the following to STDOUT

The cat goes meow.


To add a new sound item to a hash

$petsounds{"mouse"} = "squeak!";  To overwrite an existing element, just reassign it $petsounds{"dog"} = "arf!";  # The dog now goes "arf!"


To remove an item from a hash, use delete. Setting the value to undef does not delete the item; using exists on a key that has been set to undef will still return true.



## Hash of Hashes of HashesEdit

You can define multidimensional hash array variables. An example may look like this:

#!/usr/bin/perl

use Data::Dumper;

my %a=();

$a{1}{"a"}{"A"}="FIRST";$a{1}{"c"}{"B"}="THIRD";
$a{1}{"b"}{"C"}="SECOND"; foreach my$k1 ( sort keys %a ) {
foreach my $k2 ( sort keys %{$a{$k1}} ) { foreach my$k3 ( sort keys %{$a{$k1}{$k2}} ) { print "$k1\t$k2\t$k3\t$a{$k1}{$k2}{$k3}\n";
}
}
}

print Dumper(\%a);


This code will produce:

 1       a       A       FIRST
1       b       C       SECOND
1       c       B       THIRD
$VAR1 = { '1' => { 'c' => { 'B' => 'THIRD' }, 'a' => { 'A' => 'FIRST' }, 'b' => { 'C' => 'SECOND' } } };  Input/output, or IO, is an all-encompassing term that describes the way your program interacts with the user. IO comes in two forms, or stream types: the program's stimuli are collectively referred to as input, while the medium that the program uses to communicate back, write logs, play sounds, etc. is known as output. Both types of streams can be redirected either at a lower level than Perl, as is the case when done through the operating system by the shell; or, in Perl itself, as is the case when you reopen the file handles associated with the stream. ## OutputEdit You have already learned how to output with the print statement. A simple reference is provided: print "Hello World";  What this print statement is actually doing is printing to STDOUT, which stands for standard output. Standard output is the default destination for all output. If you wish to print anywhere else you must be explicit. We will revisit this later. ## InputEdit As you may have imagined, it's very hard to write a good program without any type of input; here is an example program to teach you these concepts: #!/usr/bin/perl use strict; use warnings; print "What is your name?\n"; ## Get the users$name from Standard In
my $name = <STDIN>; print "Your name is$name\n";


Standard input is usually the keyboard though this can be changed at a lower level than your program. For now we will assume it isn't changed. However, this might not be an assumption you wish to make in production code.

# Unit exerciseEdit

• Write a program that prompts the user for a number and then returns the number multiplied by four (or any other number).

In many situations, especially for web programming, you will find that you want to put certain things, such as backslashes or quotes, in your text that aren't allowed in a traditional print statements. A statement such as

print "I said "I like mangos and bananas". ";


will not work because the interpreter would think that the quotes mark the end of the string. As with all things in Perl, there are many solutions to this problem.

## Use other quotesEdit

The quickest solution to this problem would be to use single quotes to surround the string, allowing the use of double quotes in the middle.

# I said "I like mangos and bananas".
print 'I said "I like mangos and bananas".';


This is obviously not the best solution, as it is conceivable that you are trying to print a string containing both kinds of quote:

# I said "They're the most delicious fruits".
print 'I said "They're the most delicious fruits".';


## Escape charactersEdit

For situations like the above where only a short amount of text is being quoted, a common solution is to escape any quotes in the string. By preceding any quotes with a backslash they are treated as literal characters.

 print 'I said "They\'re the most delicious fruits".';
print "I said \"They\'re the most delicious fruits\".";


Using single quotes, the characters that require escaping are \'.

## Block outputEdit

As can be seen, while the custom quotes option works for short strings, it can run into problems, if a lot of text containing a lot of punctuation is output. For this situation, a technique called Block quoting can be used.

  print <<OUTPUT
I said "They're the most delicious fruits!".
OUTPUT


Any string of characters can be used instead of OUTPUT in the example above. Using this technique anything can be output no matter what characters it contains. The one caveat of this method is that the closing OUTPUT must be the first character on the line, there cannot be any space before it.

  print <<EverythingBetween
...
...
EverythingBetween


## Variable outputEdit

It is possible to output variables within strings when you use some of these methods:

my $one = 'mangoes'; print "I like$one.";    # I like mangoes.
print 'I like $one.'; # I like$one.
print qq@ I love $one.@; # I love mangoes. print q#I love$one.#;   # I love $one. print <<OUT I love$one
OUT
;                        #  I love mangoes

print <<'OUT'
I love $one OUT ; # I love$one


Perl will figure out where your variable ends, if the character after it is neither a letter, number nor an underscore. If that is not your case, put your variable inside curly braces:

my $one = 'lemon'; print "A$one is too sour; ";	# A lemon is too sour;
print "${one}ade is better.\n"; # lemonade is better. print <<OUT I love${one}s in $one souffle. OUT ; # I love lemons in lemon souffle.  ## CaveatsEdit The single quote ' q{ and double quote " qq <<A operators, behave differently. Whereas when using double quotes, you can include variables and escape any characters, when you use single quotes you can only escape single quotes and you cannot include variables. ## Control structuresEdit The basic control structures do not differ greatly from those used in the C programming language or Java programming language: ### LoopsEdit while ($boolean) {
# do something
}

until ($boolean) { # do something }  Though syntactically the same, Perl does not use break and continue to change the flow of loops. Perl provides the following commands: (with C equivalents in comments) while ($boolean) {
# do something
if($finished) { last; # equivalent to 'break' } if($done) {
next;  # equivalent to 'continue'
}
# do some more
}


Note that the statements in a while (or until) loop are not executed, if the Boolean expression evaluates to false (or true, respectively) on the first pass, even when specified at the end of the code block. Therefore the following loops are functionally equivalent: (the same applies to: do {} until)

while ($boolean) { # something } do { # something } while ($boolean);


The do {} while and the do {} until loops are technically statement modifiers and not actual control structures. The statements will be executed at least once.

for (my $i = 0;$i < 10; $i++) { # for (initialization; termination condition; incrementing expr) { … } print "$i\n";
}

foreach my $variable (@list) { print "$variable\n";
}


$variable is an alias to each element of the @list, starting at the first element on the first pass through the loop. The loop is exited when all the elements in the list have been exhausted. Since$variable is an alias, changing the value will change the value of the element in the list. This should generally be avoided to enhance maintainability of the code.

If $variable is omitted, the default variable$_ will be used.

foreach (@list) {
print "value: $_ \n"; }  Note that for and foreach are actually synonyms and can be used interchangeably. ### if-then statementsEdit if ($boolean_expression) {
# do something
}

unless ($boolean_expression) { # do something }  Statements with else blocks (these also work with unless instead of if) if ($boolean) {
# do something
} else {
# do something else
}

if ($boolean) { # do something } elsif ($boolean) {
# do something else
}


Control statements can also be written with the conditional following the statements (called "postfix"). This syntax functions (nearly) identically to the ones given above.

statement if Boolean expression;
statement unless Boolean expression;
statement while Boolean expression;
statement until Boolean expression;
statement foreach list;


## Procedural interfaceEdit

### By slurping fileEdit

This method will read the whole file into an array. It will split on the special variable $/ # Create a read-only file handle for foo.txt open (my$fh, '<', 'foo.txt');

# Read the lines into the array @lines
my @lines=<$fh>; # Print out the whole array of lines print @lines;  ### By line processingEdit This method will read the file one line at a time. This will keep memory usage down, but the program will have to poll the input stream on each iteration. # Create a read-only file handle for foo.txt open (my$fh, '<', 'foo.txt');

# Iterate over each line, saving the line to the scalar variable $line while (my$line = <$fh>) { # Print out the current line from foo.txt print$line;

}


## Object-oriented interfaceEdit

Using IO::File, you can get a more modern object-oriented interface to a Perl file handle.

# Include IO::File that will give you the interface
use IO::File;

# Create a read-only file handle for foo.txt
my $fh = IO::File->new('foo.txt', 'r'); # Iterate over each line, saving the line to the scalar variable$line
while (my $line =$fh->getline) {

# Print out the current line from foo.txt
print $line; }  # Include IO::File that will give you the interface use IO::File; # Create a read-only file handle for foo.txt my$fh = IO::File->new('foo.txt', 'r');

my @lines = $fh->getlines; # Print out the current line from foo.txt print @lines;  In addition to the basic control structures, Perl allows the use of statement modifiers. The statement modifier is placed at the end of the statement that it modifies. Note that the do {…} until (…) and do {…} while (…) loop constructs are actually statement modifiers. The complete list of modifiers is: • statement if expression • statement unless expression • statement while expression • statement until expression • statement foreach list Unlike BASIC-PLUS, statement modifiers in Perl cannot be stacked. ## String functionsEdit ### chompEdit #### ActionEdit Removes the last characters from a string only if they're recognized as a record separator (e.g. a newline character) #### ReturnsEdit ? #### SyntaxEdit chomp($String = $_); #### ExampleEdit chomp; # removes the last character from$_ if it is a record separator
chomp(); # (same)
chomp($String); # removes the last character from$String if it is a record separator


• chop - To remove the last character from a string

### chopEdit

#### ActionEdit

Removes the last character from a string regardless

?

#### SyntaxEdit

chop($String =$_);



The salt string needs only be two characters long, and provides a way of randomising the hash, such that the same word can produce several different hashes, if used with different values of $Salt;! ### hexEdit print hex(11); # Prints B  Converts a number to hexadecimal Other way around - converts hex to number: print hex(11); # prints 17 you can use print sprintf("%X",11); # Prints B ### indexEdit Search for one string within another (see rindex to search from end-to-start). $Result = index($Haystack,$Needle);
$Result = index($Haystack, $Needle,$StartPosition);

index("Some text", "bleh"); # Returns -1 (not found)
index("Some text", "Some"); # Returns 0 (first character)
index("Some text", "text"); # Returns 5 (sixth character)


The special variable $[ always gets added to the return value, but$[ is normally 0, and the manual recommends leaving it at 0.

### lcEdit

$Lowercase = lc($String);


Converts a string to lower-case

### lcfirstEdit

Converts the first character of a string to lowercase





### rindexEdit

Search for one string within another, starting at the end of the string.

$Result = rindex($Haystack, $Needle);$Result = rindex($Haystack,$Needle, $StartPosition);  rindex("Some text", "bleh"); # Returns -1 (not found) rindex("Some text", "Some"); # Returns 0 (first character) rindex("abbbbb", "b"); # Returns 5 (first "b" found, when starting at the end)  ### sprintfEdit Prints a formatted string: my$Text = sprintf("%d/%d is %08.5f", 1, 3, 1/3); # Result: "10/3 is 003.33333"

sprintf("Character: %c", 65);
sprintf("String %s", "Hello");
sprintf("Signed integer: %d", 15);
sprintf("Unsigned integer: %u", 15);
sprintf("Unsigned int (in octal): %o", 15);
sprintf("Unisgned int (in hex): %x", 15);      # Use %X to get upper-case output
sprintf("Binary number: %b", 15);
sprintf("Scientific notation: %e", 5000);      # Use %E to get upper-case output
sprintf("Floating point number: %f", 1/3);     # 0.3333333
sprintf("Floating point number: %g", 1/3);     # Decides between scientific and float. %G is uppercase
sprintf("Pointer: %p", $Variable);  Use %% to get a percent-sign. Use %n to request the number of characters written so far, and put it into the next variable in the list. You may want to check that user-supplied formatting rules don't contain this code. sprintf("%02d",$Minutes);  # Forces leading zeros to make the string two characters long
sprintf("%1.5f", $Number); # Limits the number of decimal places  ### substrEdit Return part of a string (a substring) Format: substr string start-position length start-position is zero-based. A negative number starts from the end of the string. $FirstLetter   = substr($Text, 0, 1); # First letter$First3Letters = substr($Text, 0, 3); # First three letters$Last3Letters  = substr($Text, -3); # Last three letters  You can use substr on the left side of an assignment statement to change part of a string. This can actually shorten or lengthen the string. $text = 'cat dog';
substr ($mystring, 3, 1) = ' and '; #$text now contains 'cat and dog'


### ucEdit

$Uppercase = uc($String);


Converts a string to upper-case

### ucfirstEdit

Converts the first character of a string to uppercase

## Numeric functionsEdit

### absEdit

Returns the absolute (positive) value of a number



### cosEdit

# Returns the cosine of an angle (radians)
$Number = cos($Angle);  # Cosine = Adjacent/Hypotenuse


### expEdit

# Raises e to a specified power
$Number = hex("0xFF"); # Returns 255  ### intEdit Rounds a number towards zero, returning an integer $Number = int(-1.6);  # Returns -1
$Number = int(0.9); # Returns 0$Number = int(28.54); # Returns 28


### logEdit

# Returns the natural logarithm of a number
$Number = log(2.71828183); # Returns 1$Number = exp(log($X)); # Returns$X
$Number = log($X)/log(10);   # Returns log10($X). Alternately, you can use the log10() function in the POSIX module$Number = log($X)/log(15); # Returns log to the base 15 of$X


### octEdit

# Interprets a string as octal, and returns its value
$Number = oct("10"); # Returns 8$Number = oct("21"); # Returns 17


### randEdit

# Gets a random number (may automatically call srand() if that's not been done)
$Number = rand(); # Returns a random number from 0 to 1$Number = int(rand(800));  # Returns a random integer from 0 to 799
$Number = sqrt($X ** 2 + $Y ** 2); # Returns the diagonal distance across a$X x $Y rectangle  See the Math::Complex module, if you need to take roots of negative numbers. ### srandEdit # Seeds (sets-up) the random-number generator srand();  Version-dependant, and older versions of Perl are not guaranteed to have a good seed value. See the Math::TrulyRandom module for more possibilities. The current version of Perl uses the urandom device if it's available. ## Array functionsEdit ### popEdit $LastElement = pop(@MyArray);


Take the last element from an array.

### pushEdit

push(@MyArray, "Last element");
push(@MyArray, "several", "more", "elements");


Push a list of elements onto the end of an array.

### shiftEdit

shift(@MyArray); # Delete the first element
$FirstElement = shift(@MyArray); # Delete the first element, load it into$FirstElement instead


Take the first element out of an array.

### spliceEdit

# Removes elements from an array, optionally replacing them with a new array
splice(@Array); # Removes all elements from array
splice(@Array, 10); # Removes from element 10 to the end of the array
splice(@Array, -10); # Removes the last 10 elements of the array
splice(@Array, 0, 10); # Removes the first 10 elements of the array
@NewArray = splice(@Array, 0, 10); # Removes the first 10 elements of the array and returns those 10 items
splice(@Array, 0, 10, @Array2); # Replaces the first 10 elements of the array with Array2


### unshiftEdit

unshift(@MyArray, "New element");
unshift(@MyArray, "several", "more", "elements");


Add a list of elements onto the beginning of an array.

## List functionsEdit

### grepEdit

# Returns a list of elements for which an expression is true
@TextFiles = grep(/\.txt$/, @AllFiles);$NumberOfTextFiles = grep(/\.txt$/, @AllFiles);  # Can use a block of code instead of an expression @TextFiles = grep({return(substr($_, -3) eq "txt");}, @AllFiles);


### joinEdit

# Joins the items of a list into a single string
$OneItemPerLine = join( "\n", @List);$EverythingBunchedTogether = join( "", @List);
$Filename = join( "/", ($Directory, $Subdirectory,$Filename));


### mapEdit

# Evaluates a block of code for each item in a list, and returns
# a list of the results
@UppercaseList = map(uc, @List);


### sortEdit

# Sorts the elements in a list
@AsciiSort = sort(@RandomList);
@AsciiSort = sort @RandomList;
foreach $Item (sort @RandomList) {...}  # Can specify a function to decide the sort order @CaseInsensitiveSort = sort {uc($a) cmp uc($b)} @RandomList; @NumericSort = sort {$a <=> $b} @RandomList; @CustomSort = sort custom_function_name @RandomList;  ### unpackEdit Unpacks a string into a list - see the templates available for the pack() function for details ## Associative array functionsEdit ### deleteEdit # Remove an element from a hash %h = ('a'=>1, 'cow'=>'moo', 'b'=>2); delete$h{cow};
# %h now contains ('a'=>1, 'b'=>2)


### eachEdit

# Return the 'next' key/value pair (in a random order)
while (($key,$value) = each (%hash)) {
print "$key =>$value\n";
}


### existsEdit

 # Tests whether or not a key exists in a hash (even if the value for that key is undef)
if (exists $hash{$key}) {


### eofEdit

eof FILEHANDLE
eof()
eof


This function returns true, if the next read on FILEHANDLE would return end-of-file, or if FILEHANDLE is not open. FILEHANDLE may be an expression whose value gives the real filehandle, or a reference to a filehandle object of some sort. An eof without an argument returns the end-of-file status for the last file read. An eof() with empty parentheses () tests the ARGV filehandle (most commonly seen as the null filehandle in <>). Therefore, inside a while (<>) loop, an eof() with parentheses will detect the end of only the last of a group of files. Use eof (without the parentheses) to test each file in a while (<>) loop. For example, the following code inserts dashes just before the last line of the last file:

while (<>) {
if (eof()) {
print "-" x 30, "\n";
}
print;
}


On the other hand, this script resets line numbering on each input file:

# reset line numbering on each input file
while (<>) {
next if /^\s*#/;        # skip comments
print "$.\t$_";
} continue {
close ARGV if eof;      # Not eof()!
}


Like "$" in a sed program, eof tends to show up in line number ranges. Here's a script that prints lines from /pattern/ to end of each input file: while (<>) { print if /pattern/ .. eof; }  Here, the flip-flop operator (..) evaluates the pattern match for each line. Until the pattern matches, the operator returns false. When it finally matches, the operator starts returning true, causing the lines to be printed. When the eof operator finally returns true (at the end of the file being examined), the flip-flop operator resets, and starts returning false again for the next file in @ARGV ### filenoEdit ### flockEdit ### formatEdit ### getcEdit ### printEdit Prints the parameters given. Discussed in the following sections: Digression on print in Strings section ### printfEdit ### readEdit ### readdirEdit ### rewinddirEdit ### seekEdit ### seekdirEdit ### selectEdit ### syscallEdit ### sysreadEdit ### sysseekEdit ### syswriteEdit ### tellEdit ### telldirEdit ### truncateEdit ### warnEdit ### writeEdit ## Functions for working with fixed length recordsEdit ### packEdit See the entry for pack further up the page ### readEdit # Reads data from a file-handle read(FILEHANDLE,$StoreDataHere, $NumberBytes);  # Returns the number of bytes read$NumberBytesRead = read(FILEHANDLE, $StoreDataHere,$NumberBytes);

# Optional offset is applied when the data is stored (not when reading)
read(FILEHANDLE, $StoreDataHere,$NumberBytes, Offset);


### syscallEdit

# Runs a system command
syscall( $Command,$Argument1, $Argument2,$Argument3);

# (maximum 14 arguments)
$ReturnValue = syscall($Command);


### unpackEdit

# See the pack function for details (unpack does the opposite!)
unpack($Template,$BinaryData);


## Filesystem functionsEdit

### -XEdit

if (-r     $FullFilename) // File is readable by effective uid/gid. if (-w$FullFilename) // File is writable by effective uid/gid.
if (-x  $FullFilename) // File is executable by effective uid/gid. if (-o$FullFilename) // File is owned by effective uid.

if (-R     $FullFilename) // File is readable by real uid/gid. if (-W$FullFilename) // File is writable by real uid/gid.
if (-X  $FullFilename) // File is executable by real uid/gid. if (-O$FullFilename) // File is owned by real uid.

if (-e     $FullFilename) // File exists. if (-z$FullFilename) // File has zero size.
if (-s  $FullFilename) // File has nonzero size (returns size).  if (-f$FullFilename) // File is a plain file.
if (-d  $FullFilename) // File is a directory. if (-l$FullFilename) // File is a symbolic link.
if (-p  $FullFilename) // File is a named pipe (FIFO), or Filehandle is a pipe. if (-S$FullFilename) // File is a socket.
if (-b  $FullFilename) // File is a block special file. if (-c$FullFilename) // File is a character special file.
if (-t  $FullFilename) // Filehandle is opened to a tty.  if (-u$FullFilename) // File has setuid bit set.
if (-g  $FullFilename) // File has setgid bit set. if (-k$FullFilename) // File has sticky bit set.

if (-T     $FullFilename) // File is an ASCII text file. if (-B$FullFilename) // File is a "binary" file (opposite of -T).

$Age = -M$FullFilename; // Age of file in days when script started.
$Age = -A$FullFilename; // Same for access time.
$Age = -C$FullFilename; // Same for inode change time.


### chdirEdit

chdir $Directory; chdir$Directory || die("Couldn't change directory");


### chmodEdit

chmod 0744 $File1; chmod 0666$File1, $File2,$File3;
# 0 for octal, at the beginning of a number

        | Owner | Group | Others |
Execute |   4   |   4   |   4    |
Write   |   2   |   2   |   2    |
Read    |   1   |   1   |   1    |
======--+======-+======-+======--+
Total   |       |       |        |


### chownEdit

# Change the owner of a file
chown($NewUserID,$NewGroupID, $Filename); chown($NewUserID, $NewGroupID,$File1, $File2,$File3);

chown($NewUserID, -1,$Filename); # Leave group unchanged
chown(-1, $NewGroupID,$Filename); # Leave user unchanged


mkdir $Filename, 0777; # Make directory with particular file-permissions  ### openEdit open(my$FileHandle, $Filename) || die("Couldn't open file"); open(my$fp, "<", $Filename); # Read from file open(my$fp, ">", $Filename); # Write to file open(my$fp, ">>", $Filename); # Append to file  open(my$fp, "<$Filename"); # Read from file open(my$fp, ">$Filename"); # Write to file open(my$fp, ">>$Filename"); # Append to file  open(my$fp, "<", "./   filename with whitespace   \0");
open(my $fp, "<", "./->filename with reserved characters\0");  open(my$fp, "$Program |"); # Read from the output of another program open(my$fp, "| $Program"); # Write to the input of another program  open(my$fp, "<", "-");         # Read from standard input



@FileStatistics = stat($Filename);  $DeviceNum    = $FileStatistics[0]; # device number of filesystem$Inode        = $FileStatistics[1]; # inode number$FileMode     = $FileStatistics[2]; # (type and permissions)$NumHardLinks = $FileStatistics[3]; # number of (hard) links to the file$UserID       = $FileStatistics[4]; # numeric user ID$GroupID      = $FileStatistics[5]; # numeric group ID$DeviceIdent  = $FileStatistics[6]; # Device identifier (special files only)$SizeBytes    = $FileStatistics[7];$AccessTime   = $FileStatistics[8]; # seconds since the epoch$ModifyTime   = $FileStatistics[9];$ChangeTime   = $FileStatistics[10];$BlockSize    = $FileStatistics[11];$NumBlocks    = $FileStatistics[12];  ### symlinkEdit # Creates a new filename symbolically linked to the old filename symlink($OldFilename, $NewFilename); symlink($OldFilename, $NewFilename) || die("Couldn't create symlink"); eval(symlink($OldFilename, $NewFilename));  ### umaskEdit # Sets or returns the umask for the process. my$UMask = umask();
umask(0000); # This process can create any type of files
umask(0444); # This process can't create executable files


# Deletes a file
unlink $Filename; unlink$Filename || die("Couldn't delete file");
unlink $File1,$File2, $File3; (unlink($File1, $File2,$File3) == 3) || die("Couldn't delete files");


### utimeEdit

# Updates the modification times of a list of files
my $AccessTime = time(); my$ModificationTime = time();

($package,$filename, $line) = caller; # returns 'main', the file name, and 3 # Line below returns all 10 pieces of info. (Descriptions self-explanatory from variable names) ($package, $filename,$line, $subroutine,$hasargs, $wantarray,$evaltext, $is_require,$hints, $bitmask) = caller(0); }  ### importEdit There is no actual 'import' function. Rather, it is a convention when writing a module to create a subroutine named 'import' that populates the current namespace with that module's needed variables or methods. The standard 'Exporter' module provides an import method, if your class has it as a base class. ### packageEdit Declares all lines that follow (until EOF or the next package statement) to belong to the given package's namespace. # !/usr/bin/perl  $x = 5;  # sets $main::x  package Foo;$x = 5;  # sets $Foo::x sub bar { # defines &Foo::bar print "hello world"; }  package Temp;$x = 5; # sets $Temp::x  ### requireEdit includes the specified module's code into the current program. The module can be specified either with an absolute or relative path, or with a bareword. If a bareword is given, a '.pm' extention is added, and :: is replaced with the current operating system's path seperator: require Foo::Bar; # identical to: require 'Foo/Bar.pm';  ### useEdit Requires and imports the given module or pragma, at compile time. The line use Foo qw/bar baz/;  is identical to BEGIN { require Foo; import Foo qw/bar baz/; }  ## Misc functionsEdit ### definedEdit # returns true, if argument is not undef$x = 0;
print "X defined\n" if defined $x; # prints print "Y defined\n" if defined$y; # does not print


### evalEdit

eval('$a = 30;$b = 40;');
print $a,$b;


### localEdit

# assigns temporary value to global variable for duration of lexical scope
$x = 5; print "x =$x\n"; # 5
{
local $x = 10; print "x =$x\n"; # 10
}
print "x = $x\n"; # 5  ### myEdit # creates new lexical (ie, not global) variable$x = 5;  # refers to $main::x { my$x = 10;
print "x = $x\n"; # the lexical - 10 print "main's x =$main::x\n" # the global - 5
}
print "x = $x\n"; # the global, because no lexical in scope - 5  ### resetEdit # resets hash's internal pointer, to affect lists returned by each while ($k, $v = each %h) { print "$k = $v\n"; last if ($i++ == 2);
}
# if another each done here, $k,$v will pick up where they left off.
reset %h
# now each will restart from the beginning.


### scalarEdit

# forces scalar context on an array
@sizes = (scalar @foo, scalar @bar);
# creates a list of the sizes of @foo and @bar, rather than the elements in @foo and @bar


### undefEdit

# undefines an existing variable
$x = 5; undef$x;
print "x = $x\n" if defined$x; # does not print


### wantarrayEdit

# returns 'true', 'false', or undef if function that called it was called in list, scalar, or void context, respectively.
sub fctn {
my @vals = (5..10);
if (wantarray) {
return @vals;
} elsif (defined wantarray) {
return $vals[0]; } else { warn "Warning! fctn() called in void context!\n"; } }  ## ProcessesEdit ### alarmEdit ### execEdit ### forkEdit # clones the current process, returning 0 if clone, and the process id of the clone if the parent my$pid = fork();

if ($pid == 0) { print "I am a copy of the original\n"; } elsif ($pid == -1)  {
print "I can't create a clone for some reason!\n";
} else {
print "I am the original, my clone has a process id of $pid\n"; }  ### getpgrpEdit ### getppidEdit ### getpriorityEdit ### killEdit ### pipeEdit ### qx/STRING/Edit ### setpgrpEdit ### setpriorityEdit ### sleepEdit ### systemEdit ### timesEdit ### waitEdit ### waitpidEdit ## ModulesEdit ### doEdit ### importEdit ### noEdit ### packageEdit ### requireEdit ### useEdit ## Classes and objectsEdit See also Perl Objects ### blessEdit ### dbmcloseEdit ### dbmopenEdit ### packageEdit ### refEdit ### tieEdit ### tiedEdit ### untieEdit ### useEdit ## SocketsEdit ### acceptEdit ### bindEdit ### connectEdit ### getpeernameEdit ### getsocknameEdit ### getsockoptEdit ### listenEdit ### recvEdit ### sendEdit ### setsockoptEdit ### shutdownEdit ### socketEdit ### socketpairEdit ## Login informationEdit ### endgrentEdit ### endhostentEdit ### endnetentEdit ### endpwentEdit ### getgrentEdit ### getgrgidEdit ### getgrnamEdit ### getloginEdit ### getpwentEdit ### getpwnamEdit ### getpwuidEdit ### setgrentEdit ### setpwentEdit ## Network informationEdit ### endprotoentEdit ### endserventEdit ### gethostbyaddrEdit ### gethostbynameEdit ### gethostentEdit ### getnetbyaddrEdit ### getnetbynameEdit ### getnetentEdit ### getprotobynameEdit ### getprotobynumberEdit ### getprotoentEdit ### getservbynameEdit ### getservbyportEdit ### getserventEdit ### sethostentEdit ### setnetentEdit ### setprotoentEdit ### setserventEdit ## Time and dateEdit ### gmtimeEdit Converts a timestamp to GMT. @TimeParts = gmtime(); @TimeParts = gmtime($Time);

$Seconds =$TimeParts[0]; # 0-59
$Minutes =$TimeParts[1]; # 0-59
$Hours =$TimeParts[2]; # 0-23
$DayOfMonth =$TimeParts[3]; # 1-31
$Month =$TimeParts[4]; # 0-11
$Year =$TimeParts[5]; # Years since 1900
$DayOfWeek =$TimeParts[6]; # 0:Sun 1:Mon 2:Tue 3:Wed 4:Thu 5:Fri 6:Sat
$DayOfYear =$TimeParts[7]; # 1-366


### localtimeEdit

Converts a timestamp to local time.

@TimeParts = localtime();
@TimeParts = localtime($Time);  $Seconds    = $TimeParts[0]; # 0-59$Minutes    = $TimeParts[1]; # 0-59$Hours      = $TimeParts[2]; # 0-23$DayOfMonth = $TimeParts[3]; # 1-31$Month      = $TimeParts[4]; # 0-11$Year       = $TimeParts[5]; # Years since 1900$DayOfWeek  = $TimeParts[6]; # 0:Sun 1:Mon 2:Tue 3:Wed 4:Thu 5:Fri 6:Sat$DayOfYear  = $TimeParts[7]; # 1-366  ### timeEdit $Time = time();


Returns number of seconds since an epoch (that is system-dependant, but may be 1970-01-01).

### timesEdit

@CPUTimes = times();
$UserTimeForProcess =$CPUTimes[0];
$SystemTimeForProcess =$CPUTimes[1];
$UserTimeForChildren =$CPUTimes[2];
$SystemTimeForChildren =$CPUTimes[3];


## Functions that reverse each otherEdit

Some functions in perl reverse or otherwise cancel the effect of each other, so running a string through both of them will produce the same output as the input, for example

print ord(chr(1));


will echo 1 to standard output,

ord() will convert a character to its number in the character set, while chr() will convert a number to its corresponding character, therefore

in the same way that ${\displaystyle {\sqrt {x^{2}}}=x}$ and ${\displaystyle {\sqrt {x}}^{2}=x}$ in Mathematics (assuming x is non-negative), ord(chr(1)) = 1 and chr(ord(1)) = 1 in Perl.

List of functions that reverse each other:

These are a set of eight exercises that can be used to test your ability to write Perl programs. In some cases, these exercises might include material not covered from the textbook; in those cases, you may have to consult your platform documentation to identify a necessary function or otherwise implement one yourself.

## IntroductionEdit

So you've been plodding along with your perl scripts, fiddling with arrays and hashes and suddenly you realize that you would like to pass a function to another function depending on the data you encounter, or perhaps you would like to get back a hash when you look up an array index. References are the thing for you, allowing you to build and pass around ever more complex data structures.

my $nightmare = "clowns"; my$ref = \$nightmare; print "I laugh in the face of " .${$ref} . "\n";  Output should be I laugh in the face of clowns. The curly brackets are optional, but generally recommended. ## Edit # ObjectsEdit When Perl was initially developed, there was no support at all for object-orientated (OO) programming. Since Perl 5, OO has been added using the concept of Perl packages (namespaces), an operator called bless, some magic variables (@ISA, AUTOLOAD, UNIVERSAL), the -> and some strong conventions for supporting inheritance and encapsulation. An object is created using the package keyword. All subroutines declared in that package become object or class methods. A class instance is created by calling a constructor method that must be provided by the class, by convention this method is called new() Let's see this constructor. package Object; sub new { return bless {}, shift; } sub setA { my$self = shift;
my $a = shift;$self->{a}=$a; } sub getA { my$self = shift;
return $self->{a}; }  Client code can use this class something like this. my$o = Object->new;
$o->setA(10); print$o->getA;


This code prints 10.

Let's look at the new contructor in a little more detail:

The first thing is that when a subroutine is called using the -> notation a new argument is pre-pended to the argument list. It is a string with either the name of the package or a reference to the object (Object->new() or $o->setA. Until that makes sense you will find OO in Perl very confusing. To use private variables in objects and have variables names check, you can use a little different approach to create objects. package my_class; use strict; use warnings; { # All code is enclosed in block context my %bar; # All vars are declared as hashes sub new { my$class = shift;
my $this = \do{ my$scalar }; # object is a reference to scalar (inside out object)
bless $this,$class;
return $this; } sub set_bar { my$this = shift;
$bar{$this} = shift;
}

sub get_bar {
my $this = shift; return$bar{$this}; } }  Now you have good encapsulation - you cannot access object variables directly via$o->{bar}, but only using set/get methods. It's also impossible to make mistakes in object variable names, because they are not a hash-keys but normal perl variables, needed to be declared.

We use them the same way like hash-blessed objects:

my $o = my_class->new();$o->set_bar(10);
print $o->get_bar();  prints 10 ## Section 3: Interfacing PerlEdit # GUI and desktop programmingEdit There are several GUI widget sets available as additions to Perl, though the most common is probably Perl/Tk. • Gtk uses Gtk+, the Gimp Toolkit. • Gtk2 uses Gtk+ 2.x. • Gtk3 uses Gtk+ 3.x. • Prima uses its own toolkit. • Perl Tk (sometimes pTk or ptk) is a collection of modules and code that attempts to wed the simple Tk widget set to perl 5. • Tcl::Tk same as perlTk, but uses existing Tcl/Tk via Tcl, so allowing Tcl widgets • Tkx a different, lightweight, access to Tk via Tcl. • Qt uses the Qt toolkit. • Wx uses the platform independent wxWidgets toolkit. ## LinksEdit # CPANEdit A huge collection of freely usable Perl modules, ranging from advanced mathematics to database connectivity, networking and more, can be downloaded from a network of sites called CPAN. Most or all of the software on CPAN is also available under either the Artistic License, the GPL, or both. CPAN.pm is also the name of the Perl module that downloads and installs other Perl modules from one of the CPAN mirror sites; such installations can be done with interactive prompts, or can be fully automated. Look for modules on CPAN ## Installing modulesEdit ### With ActivePerl (Windows systems)Edit From a command-line, type the command ppm  This will give you a "Perl Package Manager" prompt, which allows you to download and install modules from the internet. For example, to install the Time::HiRes module, type: search time::hires  That will give you a list of modules that match your search query. Once you know the module is available and what its exact name is, you can install the module with: install Time::HiRes  ### With PerlEdit If you're using a normal version of Perl, the way to activate the package manager is this: perl -MCPAN -e shell;  This will load the CPAN module, and let you search for, download, install, and manage the modules on your computer the same as PPM. ### With Perl (cpanm)Edit The Perl module cpanm (CPAN Minus) is another alternative for installing modules from the CPAN library cpanminus.pm. cpanm can be installed and used like this on a UNIX-like system: curl -L "http://cpanmin.us" >cpanm chmod +x cpanm ./cpanm LWP::Bundle  One must have root privileges in order to install module in the system-wide directories, however alternatives exist such as local::lib, which allows regular users to install and use Perl modules in their home folder lib.pm. ### With Strawberry Perl (Windows systems)Edit Strawberry Perl also includes the CPAN module, so you can use the command above to activate the package manager. The start menu, however, also includes a shortcut (with the name of "CPAN Client") so that you don't have to go to a command line to do so. A number of modules are already included in Strawberry Perl, beyond what comes with a normal version of Perl, or what comes with ActivePerl, so you may wish to check, if the module you want is already installed before you start the CPAN client. ## Using a module in your programEdit To incorporate a module into your program, use the use keyword: use Time::HiRes;  You can supply an optional list of the functions you want to use from this module, if you're worried that some of the function names in the module are too similar to functions you're already using: use Time::Hires qw(time gmtime);  With that done, you can simply use the supplied functions as normal. Most modules have example programs within their documentation, and the best way to start using a module is to copy and adapt one of the example programs. ## Finding documentationEdit The documentation for each module is installed in your documentation directory when you get a new module, or you can browse documentation on search.cpan.org and perldoc.perl.org. ### Unix systemsEdit On Unix systems, the documentation is usually installed as man pages in section 3p so that the command below will work: man 3p Module::Name  perldoc Module::Name will also work. If you want documentation that is browseable in a web browser, you can install Perldoc::Server as noted below. ### Windows systems running ActivePerlEdit Module documentation is installed as HTML files in ActivePerl. To find those files, try looking in some of the following directories: • C:\Perl\html\lib • C:\Perl\html\site\lib If you're having real trouble finding the HTML documentation for a module, you may be able to read the *.pm Perl file yourself for POD comments, or use the pod2html tool yourself to generate the HTML file. ### Windows systems running Strawberry PerlEdit Strawberry Perl does not install module documentation as either manpages or html files. Instead, you can run the perldoc command to display module documentation. perldoc Module::Name  You can also use Perldoc::Server to display module documentation, as illustrated below. ### Perldoc::ServerEdit The Perldoc::Server module (that can be installed via CPAN) will provide a local server that will display HTML files "on the fly" from Perl's documentation and the documentation for installed modules. Install it, and the command perldoc-server  will be in your path. Run it, and then browse to http://localhost:7375/ in your Web browser to see the documentation. Note that the perldoc-server command must be running to provide the documentation using this method. ## Contributing your own modules to CPANEdit In the event that a module you need isn't available on CPAN, the usual answer is to write the module yourself and add it to CPAN. That way, nobody else needs to waste time creating the same functionality that you're already written. ## Section 4: CGI and ApacheEdit Assuming you already have an Apache server (or compatible server that reads a shebang! line - more on this in a moment) and a Perl installation running, it is fairly simple to start running a Perl program on the Internet. First, you must have some way to access the program. Here we will deal with form data and submission, so we will assume that your form code in HTML has a property saying ACTION="programname.cgi". ## The initial setupEdit CGI scripts begin like any other Perl program, with a "shebang", something like: #!/usr/bin/perl  (see Perl Programming/First Programs for details) Next load the CGI module: use CGI;  The CGI module makes our work easy because it has pre-programmed functions in it for Internet use. Then we must create a handle to CGI - something that allows us to access the functions. We do this with: my$query = CGI->new();


This means that the variable $query is loading the CGI standard functions. Now that our program is setup using the CGI module, it should look something like this: #!/usr/bin/perl  use CGI; my$query = CGI->new();


So we have a program, it just doesn't do anything yet, and will actually cause a server error because the server has no output or any idea of what kind of output to display even if it had some.

## Retrieving InformationEdit

Before we tell the server what to do with our output, we need to retrieve our input. To do this, we use the $query variable we declared earlier. Say we have a text box in the form that is named "Name" and we want to find out what was typed there. To do this, we put the following line of code in our program: my$Name = $query->param('Name');  Now, this line of code introduces us to the param() function (for "parameter"). The param() function can do quite a few handy tricks for us, all of them nice ways to retrieve our variables. It processes all of the HTTP coding so all we get is a nice clean variable. Another note, you aren't required to use$Name as your variable. It's simply more convenient to only remember one name for the same variable. Still, use what's best for you.

## OutputEdit

Now we must create our header information. CGI even makes THIS easy for us. Instead of memorizing a bunch of mime-type declarations (that you may do as well), all we must do is type:

print $query->header();  and it prints out our header information. A note about headers. Inside the parenthesis, we may specify parameters like cookies to send to the user's browser. This becomes very useful later. For now we will just stick to the headers. The last thing you need to put (though the program will run, displaying a blank page without it) is some output. Let's simply have it display the user's name back to them. This would look like. print " You said your name was:$Name";


## The finished codeEdit

So we now have a complete program that processes a form, using only six lines of code. Isn't Perl great? The final code looks like this:

#!/usr/bin/perl

use CGI;
my $query = new CGI;  my$Name = $query->param('Name');  print$query->header();

print "You said your name was: ", $query->escapeHTML($Name);


When put into perspective, we can see that the $query variable is a very important connection to the CGI module as it tells perl that the function you are referencing belongs to CGI; Again, you may declare any variable name in the place of$query so long as you are consistent, though you will find many developers use $query or$q. Also note the use of the escapeHTML method to avoid any HTML injection problems.

Final note: Make sure you change /usr/bin/perl to the path of your perl installation (assuming that is not it) so perl will execute properly.

## FrameworksEdit

There are a number of CGI frameworks to help with common CGI programming tasks:

mod_perl is an optional module for Apache. It embeds a Perl interpreter into the Apache server, so that dynamic content produced by Perl scripts can be served in response to incoming requests, without the significant overhead of re-launching the Perl interpreter for each request. As Lincoln D. Stein defined mod_perl in his words:

mod_perl is more than CGI scripting on steroids. It is a whole new way to create dynamic content by utilizing the full power of the Apache web server to create stateful sessions, customized user authentication systems, smart proxies and much more. Yet, magically, your old CGI scripts will continue to work and work very fast indeed. With mod_perl you give up nothing and gain so much!

mod_perl can emulate a Common Gateway Interface (CGI) environment, so that existing Perl CGI scripts can benefit from the performance boost without having to be re-written.

Unlike CGI (and most other web application environments), mod_perl provides complete access to the Apache API, allowing programmers to write handlers for all phases in the Apache request cycle, manipulate Apache's internal tables and state mechanisms, share data between Apache processes or threads, alter or extend the Apache configuration file parser, and add Perl code to the configuration file itself, among other things.

# HTML::MasonEdit

## Section 5: Perl and beyondEdit

Perl 6 will separate parsing and compilation and runtime, making the virtual machine more attractive to developers looking to port other languages to the architecture.

Parrot is the Perl6 runtime, and can be programmed at a low level in Parrot assembly language. Parrot exists in a limited form as of June, 2003, and a small number of languages (Jako, Cola, Basic, Forth and a subset of Perl 6) exist simply to be 'compiled' down to Parrot assembly language opcodes.

While Perl6 is being developed, the best way to stay informed about what's happening is to keep an eye on the front-page of http://www.perl.com/ and look out for articles. As each new language-feature is being developed, it gets discussed on Perl.com and the associated mailing lists, so subscribe to some of those to see glimpses of what Perl6 will be like.

### Obfuscated codeEdit

Some people claim Perl stands for 'Pathologically Eclectic Rubbish Lister' due to the high use of meaningful punctuation characters in the language syntax.

In common with C programming language, obfuscated code competitions are an interesting feature of the Perl culture. Similar to obfuscated code but with a different purpose, Perl Poetry is the practice of writing poems that can actually be compiled by perl. This practice is fairly unique to Perl, due to the large number of regular English words used in the language. New poems can regularly be seen in the Perl Poetry section of perlmonks.org.

### A QuestionEdit

#!/usr/bin/perl
# which art form is practiced and appreciated by lawyers and perl programmers alike?
use strict; my $scupture = join("",&lt;DATA&gt;);$scupture =~ s/^\s*(.*?)\s*$/$1/; print unpack("A*", eval($scupture)); __DATA__ "\x20\x20\x0d\x0a\x6f\x62\x66\x75\x73\x63\x61\x74\x69\x6f\x6e\x0d\x0" # Kevin Bade  ### Just another Perl HackerEdit Your mission, should you choose to accept it, is to write a one-liner perl script which displays the phrase "Just another Perl hacker," (including the comma, and capitalization as shown). If successful, you win the right to use it as an email signature identifying yourself as a Perl hacker. Entries will be judged on how smart-ass the code is. Around 100 of the first JAPHs and some funky obfu Perl can be seen on CPAN. ### AcmeEdit There's always a place in Perl for odd modules, and one such place is the Acme:: namespace. If you have a module which knows how long a piece of string is, or one which converts your perl script into an image of Che Guevara, post it here. ### GolfEdit Perl is a very compact language. So compact, that some have even create a game around perl's terseness called perlgolf. In perlgolf, you are given a problem to solve. You must solve it in the fewest number of characters possible. A scorecard is kept, and after 18 "holes", a winner is announced. ## Section 6: Sample codeEdit This script counts the number of occurences of each letter in a file: #!/usr/bin/perl # always enable compiler warnings, as they may highlight potential trouble use warnings; # let's ask the compiler to be more strict, make sure we declare our variables etc. use strict; # This statement prompts the user for a filename to read from. print "What file would you like to read from?\n"; # This statement assigns whatever is given on the standard input(usually your keyboard) to a scalar # variable named$filename and removes the newline character that is included by default.
chomp(my $filename = <STDIN>); # This line opens the file referred to in$filename for input via a lexical filehandle
# stored in a scalar variable named "$file". open my$file, "<", $filename or die "Can't open '$filename' for reading: $^E\n"; # This loop goes through each line of the file, splits the line into separate characters and # increments the number of occurrences of each letter using a hash called "%chars". my %chars; while (<$file>) {
$_ = lc($_);	# convert everything to lowercase
my @characters = split (//, $_); # Store list of characters in an array foreach (@characters) { if (/\w/) { # Ignore all characters except letters and numbers$chars{$_}++; } } } close$file;

# This loop goes through each letter in the %chars hash and prints a report informing the user of
# how many times each letter occurred.

foreach my $key (sort keys %chars) { if ($chars{$key} == 1) { print "$key appeared once.\n";
} else {
print "$key appeared$chars{$key} times.\n"; } }  If you executed this program on a file containing the sentence "The quick, brown fox jumps over the lazy dog.", you would see this as output: a appeared once. b appeared once. c appeared once. d appeared once. e appeared 3 times. f appeared once. g appeared once. h appeared 2 times. i appeared once. j appeared once. k appeared once. l appeared once. m appeared once. n appeared once. o appeared 4 times. p appeared once. q appeared once. r appeared 2 times. s appeared once. t appeared 2 times. u appeared 2 times. v appeared once. w appeared once. x appeared once. y appeared once. z appeared once.  I have added a bit to this code to enable the user to create a report of the data if they wish: print "Here are your results:\n"; foreach my$key (sort keys %chars) {
print "$key appeared ", ($chars{$key} == 1 ? "once\n" : "$chars{$key} times\n"); }; print("Would you like to print a report of this? \n"); chomp(my$answer = <STDIN>);
print("And would you like me to highlight any specific letter?\n");
chomp(my $letterPattern = <STDIN>); unless ($answer eq "no" or $answer eq "nope") { #opens and writes to a file, if the file doesn't exist the program will automatically create one open(my$fh, '>', 'report.txt') or die "something went wrong.";	# Once the file is open, we can then print/write to it by simply typing print (duhh..) followed by the scalar name
print $fh "Here is the report:\n"; if (scalar(@arrayForReport) == 0) { print$fh "FAILED DUE TO BAD DATA INPUT";	# If there is no data in the input file, rather than printing a blank report, the program will print a failure message
} else {
foreach my $key (sort keys %chars) { print$fh "$key appeared ", ($chars{$key} == 1 ? "once\n" : "$chars{$key} times\n"); # the same as what we saw above for printing results };# obviously I could have just made this into a subroutine, but I am lazy ;P print$fh "\n";

#This could be better, but if the user types more than one letter for a search it will not work anyway, so it isn't really wrong or a problem.
if ($letterPattern eq "no" or$letterPattern eq "No") {
print $fh "original text = @arrayForReport\n"; } else { print$fh "Original text: ";

foreach (@arrayForReport) {
if ($_ eq$letterPattern) { #If the letter in the array is the same as the one the user is looking for:
print $fh "(", uc$_, ")";	# still print it but put brackets around it and uc (uppercase) it
} else {
print $fh$_;	# if it isn't the letter the user is looking for, just print it normally
}
};
}
print $fh "When asked if you wanted a report, you said:$answer";
print "Report successfully created.\n";	# This just lets us know that the process went well and everything that was expected to happen, happened.
};
};


Hi-Lo: A simple game written in perl that asks you for a guess between 1 and 100 and tells you if you are too high or low.

use warnings;
use strict;

$| = 1; print "Enter number of games to play: "; chomp(my$Num_Games = <STDIN>);

my $Num_Guesses = 0; for my$gameno (1 .. $Num_Games) { my$number = 1 + int rand 100;

my $guess; do { print "Enter guess from 1 to 100: "; chomp($guess = <STDIN>);
++$Num_Guesses; if ($guess < $number) { print "Higher!\n"; } elsif ($guess > $number) { print "Lower!\n"; } } until$guess == $number; print "Correct!\nAverage guesses per game: ",$Num_Guesses / $gameno, "\n\n"; } print "Games played:$Num_Games\n";


## String functionsEdit

### chompEdit

#### ActionEdit

Removes the last characters from a string only if they're recognized as a record separator (e.g. a newline character)

?

#### SyntaxEdit

chomp($String =$_);

chomp; # removes the last character from $_ if it is a record separator chomp(); # (same) chomp($String); # removes the last character from $String if it is a record separator  #### See alsoEdit • chop - To remove the last character from a string ### chopEdit #### ActionEdit Removes the last character from a string regardless #### ReturnsEdit ? #### SyntaxEdit chop($String = $_); #### ExampleEdit chop; # removes the last character from$_
chop(); # (same)
chop($String); # removes the last character from$String


• chomp - To remove the last character from a string if it is a record seperator

Removes the last character from a string (e.g. removes the newline characters when reading from a file)

### chrEdit

print chr(65);  # Prints a capital A


Gets an ASCII character, given it's code

### cryptEdit

# One-way hash function
my $HashedWord = crypt($Word, $Salt);  (See also MD5 ) The salt string needs only be two characters long, and provides a way of randomising the hash, such that the same word can produce several different hashes, if used with different values of$Salt;!

### hexEdit

print hex(11);  # Prints B


Other way around - converts hex to number: print hex(11); # prints 17

you can use

print sprintf("%X",11); # Prints B

### indexEdit

Search for one string within another (see rindex to search from end-to-start).

$Result = index($Haystack, $Needle);$Result = index($Haystack,$Needle, $StartPosition);  index("Some text", "bleh"); # Returns -1 (not found) index("Some text", "Some"); # Returns 0 (first character) index("Some text", "text"); # Returns 5 (sixth character)  The special variable$[ always gets added to the return value, but $[ is normally 0, and the manual recommends leaving it at 0. ### lcEdit $Lowercase = lc($String);  Converts a string to lower-case ### lcfirstEdit Converts the first character of a string to lowercase ### lengthEdit print "String is " . length($String) . " characters long\n";


Returns the length of a string

### octEdit

print oct(8);  # Prints 10


Converts a number to octal

### ordEdit

Converts a character to its number.

print ord("A"); # prints 65


### packEdit

Takes a list and converts it into a string using a supplied set of rules.

my $String = pack($Template, @ListOfNumbers);
my $String = pack("CCCC",65,66,67,68); # Result: "ABCD" $Template can be made up of:

   a       A string with arbitrary binary data, will be null padded.
A    An ascii string, will be space padded.
Z    A null terminated (asciz) string, will be null padded.

   b       A bit string (ascending bit order inside each byte, like vec()).
B    A bit string (descending bit order inside each byte).
h    A hex string (low nybble first).
H    A hex string (high nybble first).

   c       A signed char value.
C    An unsigned char value. Only does bytes. See U for Unicode.

   s       A signed short value.
S    An unsigned short value. (Exactly 16 bits unless you use the ! suffix)

   i       A signed integer value.
I    An unsigned integer value. (At least 32 bits wide, machine-dependant)

   l       A signed long value.
L    An unsigned long value. (Exactly 32 bits unless you use the ! suffix)

   n       An unsigned short in "network" (big-endian) order.
N    An unsigned long in "network" (big-endian) order.
v    An unsigned short in "VAX" (little-endian) order.
V    An unsigned long in "VAX" (little-endian) order. (Exactly 16 bits and 32 bits respectively)

   q       A signed quad (64-bit) value.
Q    An unsigned quad value. (Only available if your system supports 64-bit integers and Perl has been compiled to support them)

   f       A single-precision float in the native format.
d    A double-precision float in the native format.

   p       A pointer to a null-terminated string.
P    A pointer to a structure (fixed-length string).

   u       A uuencoded string.
U    A Unicode character number. Encodes to UTF-8 internally.

   w       A BER compressed integer. Its bytes represent an unsigned integer in base 128, most significant digit first, with as few digits as possible. Bit eight (the high bit) is set on each byte except the last.

   x       A null byte.
X    Back up a byte.
@    Null fill to absolute position.


Each letter may optionally be followed by a number giving a repeat count.

The integer types s, S, l, and L may be immediately followed by a ! suffix to signify native shorts or longs

### reverseEdit

Reverses a string (in scalar context) or a list (in list context):

my @ReversedList = reverse(@List);

# As commonly seen in Perl programs:
foreach( reverse( sort( @List )))
{
...
}

my $ReversedString = reverse($String);

my @List = ("One ", "two ", "three...");
my $ReversedListAsString = reverse(@List); # Prints "...eerht owt enO"  ### rindexEdit Search for one string within another, starting at the end of the string. $Result = rindex($Haystack,$Needle);
$Result = rindex($Haystack, $Needle,$StartPosition);

rindex("Some text", "bleh"); # Returns -1 (not found)
rindex("Some text", "Some"); # Returns 0 (first character)
rindex("abbbbb", "b");       # Returns 5 (first "b" found, when starting at the end)


### sprintfEdit

Prints a formatted string:

my $Text = sprintf("%d/%d is %08.5f", 1, 3, 1/3); # Result: "10/3 is 003.33333"  sprintf("Character: %c", 65); sprintf("String %s", "Hello"); sprintf("Signed integer: %d", 15); sprintf("Unsigned integer: %u", 15); sprintf("Unsigned int (in octal): %o", 15); sprintf("Unisgned int (in hex): %x", 15); # Use %X to get upper-case output sprintf("Binary number: %b", 15); sprintf("Scientific notation: %e", 5000); # Use %E to get upper-case output sprintf("Floating point number: %f", 1/3); # 0.3333333 sprintf("Floating point number: %g", 1/3); # Decides between scientific and float. %G is uppercase sprintf("Pointer: %p",$Variable);


Use %% to get a percent-sign.

Use %n to request the number of characters written so far, and put it into the next variable in the list. You may want to check that user-supplied formatting rules don't contain this code.

sprintf("%02d", $Minutes); # Forces leading zeros to make the string two characters long sprintf("%1.5f",$Number);  # Limits the number of decimal places


### substrEdit

Return part of a string (a substring)

Format: substr string start-position length

start-position is zero-based.
A negative number starts from the end of the string.
$FirstLetter = substr($Text, 0, 1);   # First letter
$First3Letters = substr($Text, 0, 3);   # First three letters
$Last3Letters = substr($Text, -3);     # Last three letters


You can use substr on the left side of an assignment statement to change part of a string. This can actually shorten or lengthen the string.



### atan2Edit

# Converts cartesian(x,y) coordinates into an angle
$Number = atan2($Y, $X);  ### cosEdit # Returns the cosine of an angle (radians)$Number = cos($Angle); # Cosine = Adjacent/Hypotenuse  ### expEdit # Raises e to a specified power$Number = exp(2); # Returns e^2

e ≈ 2.71828183 more about e


### hexEdit

# Interprets a string as hexidecimal, and returns its value
$Number = hex("10"); # Returns 16$Number = hex("0xFF"); # Returns 255


### intEdit

Rounds a number towards zero, returning an integer

$Number = int(-1.6); # Returns -1$Number = int(0.9);   # Returns 0
$Number = int(28.54); # Returns 28  ### logEdit # Returns the natural logarithm of a number$Number = log(2.71828183);   # Returns 1
$Number = exp(log($X));      # Returns $X$Number = log($X)/log(10); # Returns log10($X). Alternately, you can use the log10() function in the POSIX module
$Number = oct("21"); # Returns 17  ### randEdit # Gets a random number (may automatically call srand() if that's not been done)$Number = rand();  # Returns a random number from 0 to 1
$Number = int(rand(800)); # Returns a random integer from 0 to 799$Number = 1 + int(rand(999));  # Returns a random integer from 1 to 999


### sinEdit

# Returns the sine of an angle (radians)
$Number = sin($Angle);  # Sine = Opposite/Hypotenuse


### sqrtEdit

# Returns the square-root of a number
$Number = sqrt(4); # Returns 2$Number = sqrt($X ** 2 +$Y ** 2);  # Returns the diagonal distance across a $X x$Y rectangle


See the Math::Complex module, if you need to take roots of negative numbers.

### srandEdit

# Seeds (sets-up) the random-number generator
srand();


Version-dependant, and older versions of Perl are not guaranteed to have a good seed value. See the Math::TrulyRandom module for more possibilities. The current version of Perl uses the urandom device if it's available.

## Array functionsEdit

$LastElement = pop(@MyArray);  Take the last element from an array. ### pushEdit push(@MyArray, "Last element"); push(@MyArray, "several", "more", "elements");  Push a list of elements onto the end of an array. ### shiftEdit shift(@MyArray); # Delete the first element$FirstElement = shift(@MyArray); # Delete the first element, load it into $FirstElement instead  Take the first element out of an array. ### spliceEdit # Removes elements from an array, optionally replacing them with a new array splice(@Array); # Removes all elements from array splice(@Array, 10); # Removes from element 10 to the end of the array splice(@Array, -10); # Removes the last 10 elements of the array splice(@Array, 0, 10); # Removes the first 10 elements of the array @NewArray = splice(@Array, 0, 10); # Removes the first 10 elements of the array and returns those 10 items splice(@Array, 0, 10, @Array2); # Replaces the first 10 elements of the array with Array2  ### unshiftEdit unshift(@MyArray, "New element"); unshift(@MyArray, "several", "more", "elements");  Add a list of elements onto the beginning of an array. ## List functionsEdit ### grepEdit # Returns a list of elements for which an expression is true @TextFiles = grep(/\.txt$/, @AllFiles);
$NumberOfTextFiles = grep(/\.txt$/, @AllFiles);

# Can use a block of code instead of an expression


### reverseEdit

# Reverses the order of a list
@ReversedList = reverse(@List);
# In scalar context, concatenates the list and then reverses the string
$ReversedString = reverse('foo','bar','baz'); # gives 'zabraboof'  ### sortEdit # Sorts the elements in a list @AsciiSort = sort(@RandomList); @AsciiSort = sort @RandomList; foreach$Item (sort @RandomList)
{...}

# Can specify a function to decide the sort order
@CaseInsensitiveSort = sort {uc($a) cmp uc($b)} @RandomList;
@NumericSort = sort {$a <=>$b} @RandomList;
@CustomSort = sort custom_function_name @RandomList;


### unpackEdit

Unpacks a string into a list - see the templates available for the pack() function for details

## Associative array functionsEdit

### deleteEdit

# Remove an element from a hash
%h = ('a'=>1, 'cow'=>'moo', 'b'=>2);
}


### keysEdit

 # Returns a list of all keys from the hash, in same 'random' order as each
foreach $key (keys %hash) { print "$key => $hash{$key}\n";
}


### valuesEdit

 # Returns a list of all values from the hash, in same 'random' order as keys
foreach $value (values %hash) { print "\%hash contains a value '$value'\n";
}


## Input and output functionsEdit

### closeEdit

# closes a filehandle when it is no longer needed
close(STDERR); # hide debugging info from the user


### closedirEdit

# Close a directory open by opendir
closedir(DIRHANDLE);



### dieEdit

Exits the program, printing to "STDERR" the first parameter and the current file and line. Used to trap errors.

 die "Error: $!\n" unless chdir '/';  ### eofEdit eof FILEHANDLE eof() eof  This function returns true, if the next read on FILEHANDLE would return end-of-file, or if FILEHANDLE is not open. FILEHANDLE may be an expression whose value gives the real filehandle, or a reference to a filehandle object of some sort. An eof without an argument returns the end-of-file status for the last file read. An eof() with empty parentheses () tests the ARGV filehandle (most commonly seen as the null filehandle in <>). Therefore, inside a while (<>) loop, an eof() with parentheses will detect the end of only the last of a group of files. Use eof (without the parentheses) to test each file in a while (<>) loop. For example, the following code inserts dashes just before the last line of the last file: while (<>) { if (eof()) { print "-" x 30, "\n"; } print; }  On the other hand, this script resets line numbering on each input file: # reset line numbering on each input file while (<>) { next if /^\s*#/; # skip comments print "$.\t$_"; } continue { close ARGV if eof; # Not eof()! }  Like "$" in a sed program, eof tends to show up in line number ranges. Here's a script that prints lines from /pattern/ to end of each input file:

while (<>) {
print if /pattern/ .. eof;
}


Here, the flip-flop operator (..) evaluates the pattern match for each line. Until the pattern matches, the operator returns false. When it finally matches, the operator starts returning true, causing the lines to be printed. When the eof operator finally returns true (at the end of the file being examined), the flip-flop operator resets, and starts returning false again for the next file in @ARGV

### printEdit

Prints the parameters given.

Discussed in the following sections:

Digression on print in Strings section

## Functions for working with fixed length recordsEdit

### packEdit

See the entry for pack further up the page

# Reads data from a file-handle
read(FILEHANDLE, $StoreDataHere,$NumberBytes);

# Returns the number of bytes read
$NumberBytesRead = read(FILEHANDLE,$StoreDataHere, $NumberBytes);  # Optional offset is applied when the data is stored (not when reading) read(FILEHANDLE,$StoreDataHere, $NumberBytes, Offset);  ### syscallEdit # Runs a system command syscall($Command, $Argument1,$Argument2, $Argument3);  # (maximum 14 arguments)$ReturnValue = syscall($Command);  ### sysreadEdit ### syswriteEdit ### unpackEdit # See the pack function for details (unpack does the opposite!) unpack($Template, $BinaryData);  ### vecEdit ## Filesystem functionsEdit ### -XEdit if (-r$FullFilename) // File is readable by effective uid/gid.
if (-w  $FullFilename) // File is writable by effective uid/gid. if (-x$FullFilename) // File is executable by effective uid/gid.
if (-o  $FullFilename) // File is owned by effective uid.  if (-R$FullFilename) // File is readable by real uid/gid.
if (-W  $FullFilename) // File is writable by real uid/gid. if (-X$FullFilename) // File is executable by real uid/gid.
if (-O  $FullFilename) // File is owned by real uid.  if (-e$FullFilename) // File exists.
if (-z  $FullFilename) // File has zero size. if (-s$FullFilename) // File has nonzero size (returns size).

if (-f     $FullFilename) // File is a plain file. if (-d$FullFilename) // File is a directory.
if (-l  $FullFilename) // File is a symbolic link. if (-p$FullFilename) // File is a named pipe (FIFO), or Filehandle is a pipe.
if (-S  $FullFilename) // File is a socket. if (-b$FullFilename) // File is a block special file.
if (-c  $FullFilename) // File is a character special file. if (-t$FullFilename) // Filehandle is opened to a tty.

if (-u     $FullFilename) // File has setuid bit set. if (-g$FullFilename) // File has setgid bit set.
if (-k  $FullFilename) // File has sticky bit set.  if (-T$FullFilename) // File is an ASCII text file.
chown($NewUserID,$NewGroupID, $File1,$File2, $File3);  chown($NewUserID, -1, $Filename); # Leave group unchanged chown(-1,$NewGroupID, $Filename); # Leave user unchanged  ### chrootEdit chroot$NewRootDirectory;


Sets the root directory for the program, such that the "/" location refers to the specified directory.

Program must be running as root for this to succeed.

### globEdit

# Expands filenames, in a shell-like way
my @TextFiles = glob("*.txt");


### ioctlEdit

# Creates a link to a file
link($ExistingFile,$LinkLocation);
link($ExistingFile,$LinkLocation) || die("Couldn't create link");


### lstatEdit

Identical to stat(), except that if given file is symbolic link, stat link not the target.

### mkdirEdit

mkdir $Filename || die("Couldn't create directory"); mkdir$Filename, 0777; # Make directory with particular file-permissions


### openEdit

open(my $FileHandle,$Filename) || die("Couldn't open file");
open(my $fp, "<",$Filename);   # Read from file
open(my $fp, ">",$Filename);   # Write to file
open(my $fp, ">>",$Filename);  # Append to file

open(my $fp, "<$Filename");     # Read from file
open(my $fp, ">$Filename");     # Write to file
open(my $fp, ">>$Filename");    # Append to file

open(my $fp, "<", "./ filename with whitespace \0"); open(my$fp, "<", "./->filename with reserved characters\0");


open(my $fp, "$Program |");     # Read from the output of another program
open(my $fp, "|$Program");     # Write to the input of another program

open(my $fp, "<", "-"); # Read from standard input open(my$fp, ">", "-");         # Write to standard output


### opendirEdit

opendir(my $DirHandle,$Directory) || die("Couldn't open directory");

while (my $Filename = readdir$DirHandle) {
# Do something with $Filename in$Directory
}
closedir($DirHandle);  opendir(DIR,$Directory) || die("Couldn't open directory");

foreach(readdir(DIR)) {
# Do something with $_ in$Directory
}
closedir(DIR);


# Finds the value of a symbolic link
$LinkTarget = readlink($LinkPosition);


### renameEdit

rename $OldFile,$NewFile or die("Couldn't move file");


May work differently on non-*nix operating systems, and possibly not at all when moving between different filesystems. See [[File::Copy]] for more complicated file operations.

rmdir $Filename || die("Couldn't remove directory");  ### statEdit @FileStatistics = stat($Filename);

$DeviceNum =$FileStatistics[0]; # device number of filesystem
$Inode =$FileStatistics[1]; # inode number
$FileMode =$FileStatistics[2]; # (type and permissions)
$NumHardLinks =$FileStatistics[3]; # number of (hard) links to the file
$UserID =$FileStatistics[4]; # numeric user ID
$GroupID =$FileStatistics[5]; # numeric group ID
$DeviceIdent =$FileStatistics[6]; # Device identifier (special files only)
$SizeBytes =$FileStatistics[7];
$AccessTime =$FileStatistics[8]; # seconds since the epoch
$ModifyTime =$FileStatistics[9];
$ChangeTime =$FileStatistics[10];
$BlockSize =$FileStatistics[11];
$NumBlocks =$FileStatistics[12];


# Creates a new filename symbolically linked to the old filename
symlink($OldFilename,$NewFilename);
symlink($OldFilename,$NewFilename) || die("Couldn't create symlink");
eval(symlink($OldFilename,$NewFilename));


# Sets or returns the umask for the process.
my $UMask = umask(); umask(0000); # This process can create any type of files umask(0001); # This process can't create world-readable files umask(0444); # This process can't create executable files  ### unlinkEdit # Deletes a file unlink$Filename;
unlink $Filename || die("Couldn't delete file"); unlink$File1, $File2,$File3;
(unlink($File1,$File2, $File3) == 3) || die("Couldn't delete files");  ### utimeEdit # Updates the modification times of a list of files my$AccessTime = time();
my $ModificationTime = time();  utime($AccessTime, $ModificationTime,$Filename);
my $NumFilesChanged = utime($AccessTime, $ModificationTime,$File1, $File2,$File3);


## Program functionsEdit

### callerEdit

Returns information about the current function call stack. In scalar context, returns only the name of the package from where the current subroutine was called. In list context, returns the package, filename, and line number. In list context with a numeric argument passed, returns several pieces of information (see below). The argument represents how many levels in the call stack to go back.

# !/usr/bin/perl

foo();
sub foo {
$package = caller; # returns 'main' ($package, $filename,$line) = caller; # returns 'main', the file name, and 3
# Line below returns all 10 pieces of info. (Descriptions self-explanatory from variable names)
($package,$filename, $line,$subroutine, $hasargs,$wantarray, $evaltext,$is_require, $hints,$bitmask) =
caller(0);
}


### importEdit

There is no actual 'import' function. Rather, it is a convention when writing a module to create a subroutine named 'import' that populates the current namespace with that module's needed variables or methods.

The standard 'Exporter' module provides an import method, if your class has it as a base class.

### packageEdit

Declares all lines that follow (until EOF or the next package statement) to belong to the given package's namespace.

# !/usr/bin/perl

$x = 5; # sets$main::x

package Foo;
$x = 5; # sets$Foo::x
sub bar { # defines &Foo::bar
print "hello world";
}

package Temp;
$x = 5; # sets$Temp::x


### requireEdit

includes the specified module's code into the current program. The module can be specified either with an absolute or relative path, or with a bareword. If a bareword is given, a '.pm' extention is added, and :: is replaced with the current operating system's path seperator:

require Foo::Bar;
# identical to:
require 'Foo/Bar.pm';


### useEdit

Requires and imports the given module or pragma, at compile time. The line

use Foo qw/bar baz/;


is identical to

BEGIN {
require Foo;
import Foo qw/bar baz/;
}


## Misc functionsEdit

### definedEdit

# returns true, if argument is not undef
$x = 0; print "X defined\n" if defined$x; # prints
print "Y defined\n" if defined $y; # does not print  ### dumpEdit ### evalEdit eval('$a = 30; $b = 40;'); print$a, $b;  ### formlineEdit ### localEdit # assigns temporary value to global variable for duration of lexical scope$x = 5;
print "x = $x\n"; # 5 { local$x = 10;
print "x = $x\n"; # 10 } print "x =$x\n"; # 5


### myEdit

# creates new lexical (ie, not global) variable
$x = 5; # refers to$main::x
{
my $x = 10; print "x =$x\n"; # the lexical - 10
print "main's x = $main::x\n" # the global - 5 } print "x =$x\n";  # the global, because no lexical in scope - 5


### resetEdit

# resets hash's internal pointer, to affect lists returned by each
while ($k,$v = each %h) {
print "$k =$v\n";
undef $x; print "x =$x\n" if defined $x; # does not print  ### wantarrayEdit # returns 'true', 'false', or undef if function that called it was called in list, scalar, or void context, respectively. sub fctn { my @vals = (5..10); if (wantarray) { return @vals; } elsif (defined wantarray) { return$vals[0];
} else {
warn "Warning!  fctn() called in void context!\n";
}
}


## ProcessesEdit

### forkEdit

# clones the current process, returning 0 if clone, and the process id of the clone if the parent
my $pid = fork();  if ($pid == 0) {
print "I am a copy of the original\n";
} elsif ($pid == -1) { print "I can't create a clone for some reason!\n"; } else { print "I am the original, my clone has a process id of$pid\n";
}


## Time and dateEdit

### gmtimeEdit

Converts a timestamp to GMT.

@TimeParts = gmtime();
@TimeParts = gmtime($Time);  $Seconds    = $TimeParts[0]; # 0-59$Minutes    = $TimeParts[1]; # 0-59$Hours      = $TimeParts[2]; # 0-23$DayOfMonth = $TimeParts[3]; # 1-31$Month      = $TimeParts[4]; # 0-11$Year       = $TimeParts[5]; # Years since 1900$DayOfWeek  = $TimeParts[6]; # 0:Sun 1:Mon 2:Tue 3:Wed 4:Thu 5:Fri 6:Sat$DayOfYear  = $TimeParts[7]; # 1-366  ### localtimeEdit Converts a timestamp to local time. @TimeParts = localtime(); @TimeParts = localtime($Time);

$Seconds =$TimeParts[0]; # 0-59
$Minutes =$TimeParts[1]; # 0-59
$Hours =$TimeParts[2]; # 0-23
$DayOfMonth =$TimeParts[3]; # 1-31
$Month =$TimeParts[4]; # 0-11
$Year =$TimeParts[5]; # Years since 1900
$DayOfWeek =$TimeParts[6]; # 0:Sun 1:Mon 2:Tue 3:Wed 4:Thu 5:Fri 6:Sat
$DayOfYear =$TimeParts[7]; # 1-366




## Functions that reverse each otherEdit

Some functions in perl reverse or otherwise cancel the effect of each other, so running a string through both of them will produce the same output as the input, for example

print ord(chr(1));
`

will echo 1 to standard output,

ord() will convert a character to its number in the character set, while chr() will convert a number to its corresponding character, therefore

in the same way that ${\displaystyle {\sqrt {x^{2}}}=x}$ and ${\displaystyle {\sqrt {x}}^{2}=x}$ in Mathematics (assuming x is non-negative), ord(chr(1)) = 1 and chr(ord(1)) = 1 in Perl.

List of functions that reverse each other:

Also, try subscribing to the use.perl.org mailing list, which sends out daily summaries of new modules as they're added to CPAN.