home | O'Reilly's CD bookshelfs | FreeBSD | Linux | Cisco | Cisco Exam  

Book HomeJava and XSLTSearch this book

3.2. Command-Line Options

Perl expects any command-line options, also known as switches or flags, to come first on the command line. The next item is usually the name of the script, followed by any additional arguments (often filenames) to be passed into the script. Some of these additional arguments may be switches, but if so, they must be processed by the script, since Perl gives up parsing switches as soon as it sees either a non-switch item or the special -- switch that terminates switch processing.

A single-character switch with no argument may be combined (bundled) with the switch that follows it, if any. For example:

#!/usr/bin/perl -spi.bak

is the same as:

#!/usr/bin/perl -s -p -i.bak

Perl recognizes the switches listed in Table 3-1.

Table 3-1. Perl switches




Terminates switch processing, even if the next argument starts with a minus. It has no other effect.


Specifies the record separator ($/) as an octal number. If octnum is not present, the null character is the separator. Other switches may precede or follow the octal number.


Turns on autosplit mode when used with -n or -p. An implicit split of the @F array is inserted as the first command inside the implicit while loop produced by -n or -p. The default field delimiter is whitespace; a different field delimiter may be specified using -F.


Causes Perl to check the syntax of the script and exit without executing it. More or less equivalent to having exit(0) as the first statement in your program.


Runs the script under the Perl debugger. See Chapter 6, "Debugging".


Runs the script under the control of a debugging or tracing module installed in the Perl library as Devel::foo. For example, -d:DProf executes the script using the Devel::DProf profiler. See also the section on DProf in Chapter 6, "Debugging".




Sets debugging flags. (This works only if debugging was compiled into the version of Perl you are running.) You may specify either a number that is the sum of the bits you want, or a list of letters. To watch how Perl executes your script, for instance, use -D14 or -Dslt. Another useful value is -D1024 (-Dx), which lists your compiled syntax tree. And -D512 (-Dr) displays compiled regular expressions. The numeric value of the flags is available internally as the special variable $^D. Here are the assigned bit values:








Tokenizing and parsing




Stack snapshots




Label stack processing




Trace execution




Object method lookup




String/numeric conversions




Print preprocessor command for -P




Memory allocation




Format processing




Regular expression processing




Syntax tree dump




Tainting checks




Memory leaks (not supported anymore)




Hash dump; usurps values




Scratchpad allocation




Cleaning up

-e commandline

May be used to enter one or more lines of script. If -e is used, Perl does not look for the name of a script in the argument list. Multiple -e commands may be given to build up a multiline script. (Make sure to use semicolons where you would in a normal program.)


Specifies the pattern to split on if -a is also in effect. The pattern may be surrounded by //, '', or ""; otherwise it is put in single quotes. As of Perl 5.8, the -F option is recognized on the #! line.


Prints a summary of Perl's command-line options.


Specifies that files processed by the <> construct are to be edited in-place. Perl does this by renaming the input file, opening the output file by the original name, and selecting that output file as the default for print statements. The extension, if supplied, is added to the name of the old file to make a backup copy. If no extension is supplied, no backup is made.


Directories specified by -I are prepended to @INC, which holds the search path for modules. If -P is also specified, to invoke the C preprocessor, -I tells the preprocessor where to search for include files. By default, it searches /usr/include and /usr/lib/perl.


Enables automatic line-end processing. This switch has two effects. First, when it's used with -n or -p, it causes the line terminator to be automatically chomp ed. Second, it sets $\ to the value of octnum so any print statements will have a line terminator of ASCII value octnum added back on. If octnum is omitted, $\ is set to the current value of $/, which is typically a newline. So, to trim lines to 80 columns, say this:

perl -lpe 'substr($_, 80) = ""'





-M[-]'module ...'





Executes use module before executing your script.


Executes use module before executing your script. The command is formed by interpolation, so you can use quotes to add extra code after the module name—for example, -M'module qw(foo bar)'. If the first character after the -M or -m is a minus (-), then the use is replaced with no.


You can also say -m module=foo,bar or -Mmodule= foo,bar as a shortcut for -M'module qw(foo bar)'. This avoids the need to use quotes when importing symbols. The actual code generated by -Mmodule=foo,bar is:

use module split(/,/, q{foo,bar})

The = form removes the distinction between -m and -M.


Causes Perl to assume the following loop around your script, which makes it iterate over filename arguments:

while (<>) {
   ...      # Your script goes here

By default, the lines are not printed. (See -p to have lines printed.) BEGIN and END blocks may be used to capture control before or after the implicit loop.


Causes Perl to assume the following loop around your script, which makes it iterate over filename arguments:

while (<>) {
    ...     # Your script goes here
} continue {

The lines are printed automatically. To suppress printing, use the -n switch. If both are specified, the -p switch overrides -n. BEGIN and END blocks may be used to capture control before or after the implicit loop.


Causes your script to run through the C preprocessor before compilation by Perl. (Since both comments and cpp directives begin with the # character, you should avoid starting comments with any words recognized by the C preprocessor, such as if, else, or define.)


Enables some rudimentary parsing of switches on the command line after the script name but before any filename arguments or the -- switch terminator. Any switch found there is removed from @ARGV, and a variable of the same name as the switch is set in the Perl script. No switch bundling is allowed, since multicharacter switches are allowed. As of Perl 5.8, -s is recognized on the #! line.


Makes Perl use the PATH environment variable to search for the script (unless the name of the script starts with a slash). Typically, this is used to emulate #! startup on machines that don't support #!.


Forces "taint" checks to be turned on, but warning will be issued instead of fatal errors. Warnings can be controlled with no warnings qw (taint). Designed for use in development only; -T is preferred for production code. New in 5.8.


Forces "taint" checks to be turned on. Ordinarily, these checks are done only when running setuid or setgid. It's a good idea to turn them on explicitly for programs run on another user's behalf, such as CGI programs.


Causes Perl to dump core after compiling your script. You can take this core dump and turn it into an executable file by using the undump program (not supplied). This speeds startup at the expense of some disk space (which you can minimize by stripping the executable). If you want to execute a portion of your script before dumping, use Perl's dump operator instead. Note: availability of undump is platform-specific; it may not be available for a specific port of Perl.


Allows Perl to do unsafe operations. Currently, the only "unsafe"operations are the unlinking of directories while running as superuser and running setuid programs with fatal taint checks turned into warnings.


Prints the version and patch level of your Perl executable.


Prints a summary of the major Perl configuration values and the current value of @INC.


Prints the value of the named configuration variable to STDOUT.


Prints warnings about identifiers that are mentioned only once and scalar variables that are used before being set. Also warns about redefined subroutines and references to undefined filehandles or to filehandles opened as read-only that you are attempting to write on. Warns you if you use a non-number as though it was a number, if you use an array as though it was a scalar, if your subroutines recurse more than 100 levels deep, etc.


Tells Perl to extract a script that is embedded in a message by looking for the first line that starts with #! and contains the string "perl". Any meaningful switches on that line after the word "perl" are applied. If a directory name is specified, Perl switches to that directory before running the script. The script must be terminated with _ _END_ _ or _ _DATA_ _ if there is trailing text to be ignored. (The script can process any or all of the trailing text via the DATA filehandle if desired.)

Library Navigation Links

Copyright © 2002 O'Reilly & Associates. All rights reserved.