perlrun.1

视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.

.IX Xref "-I @INC"
.IX Item "-Idirectory"
Directories specified by \fB\-I\fR are prepended to the search path for
modules (\f(CW@INC\fR), and also tells the C preprocessor where to search for
include files.  The C preprocessor is invoked with \fB\-P\fR; by default it
searches /usr/include and /usr/lib/perl.
.IP "\fB\-l\fR[\fIoctnum\fR]" 5
.IX Xref "-l $ $\e"
.IX Item "-l[octnum]"
enables automatic line-ending processing.  It has two separate
effects.  First, it automatically chomps \f(CW$/\fR (the input record
separator) when used with \fB\-n\fR or \fB\-p\fR.  Second, it assigns \f(CW\*(C`$\e\*(C'\fR
(the output record separator) to have the value of \fIoctnum\fR so
that any print statements will have that separator added back on.
If \fIoctnum\fR is omitted, sets \f(CW\*(C`$\e\*(C'\fR to the current value of
\&\f(CW$/\fR.  For instance, to trim lines to 80 columns:
.Sp
.Vb 1
\&    perl \-lpe \*(Aqsubstr($_, 80) = ""\*(Aq
.Ve
.Sp
Note that the assignment \f(CW\*(C`$\e = $/\*(C'\fR is done when the switch is processed,
so the input record separator can be different than the output record
separator if the \fB\-l\fR switch is followed by a \fB\-0\fR switch:
.Sp
.Vb 1
\&    gnufind / \-print0 | perl \-ln0e \*(Aqprint "found $_" if \-p\*(Aq
.Ve
.Sp
This sets \f(CW\*(C`$\e\*(C'\fR to newline and then sets \f(CW$/\fR to the null character.
.IP "\fB\-m\fR[\fB\-\fR]\fImodule\fR" 5
.IX Xref "-m -M"
.IX Item "-m[-]module"
.PD 0
.IP "\fB\-M\fR[\fB\-\fR]\fImodule\fR" 5
.IX Item "-M[-]module"
.IP "\fB\-M\fR[\fB\-\fR]\fI'module ...'\fR" 5
.IX Item "-M[-]'module ...'"
.IP "\fB\-[mM]\fR[\fB\-\fR]\fImodule=arg[,arg]...\fR" 5
.IX Item "-[mM][-]module=arg[,arg]..."
.PD
\&\fB\-m\fR\fImodule\fR executes \f(CW\*(C`use\*(C'\fR \fImodule\fR \f(CW\*(C`();\*(C'\fR before executing your
program.
.Sp
\&\fB\-M\fR\fImodule\fR executes \f(CW\*(C`use\*(C'\fR \fImodule\fR \f(CW\*(C`;\*(C'\fR before executing your
program.  You can use quotes to add extra code after the module name,
e.g., \f(CW\*(Aq\-Mmodule qw(foo bar)\*(Aq\fR.
.Sp
If the first character after the \fB\-M\fR or \fB\-m\fR is a dash (\f(CW\*(C`\-\*(C'\fR)
then the 'use' is replaced with 'no'.
.Sp
A little builtin syntactic sugar means you can also say
\&\fB\-mmodule=foo,bar\fR or \fB\-Mmodule=foo,bar\fR as a shortcut for
\&\f(CW\*(Aq\-Mmodule qw(foo bar)\*(Aq\fR.  This avoids the need to use quotes when
importing symbols.  The actual code generated by \fB\-Mmodule=foo,bar\fR is
\&\f(CW\*(C`use module split(/,/,q{foo,bar})\*(C'\fR.  Note that the \f(CW\*(C`=\*(C'\fR form
removes the distinction between \fB\-m\fR and \fB\-M\fR.
.Sp
A consequence of this is that \fB\-MFoo=number\fR never does a version check
(unless \f(CW\*(C`Foo::import()\*(C'\fR itself is set up to do a version check, which
could happen for example if Foo inherits from Exporter.)
.IP "\fB\-n\fR" 5
.IX Xref "-n"
.IX Item "-n"
causes Perl to assume the following loop around your program, which
makes it iterate over filename arguments somewhat like \fBsed \-n\fR or
\&\fBawk\fR:
.Sp
.Vb 4
\&  LINE:
\&    while (<>) {
\&        ...             # your program goes here
\&    }
.Ve
.Sp
Note that the lines are not printed by default.  See \fB\-p\fR to have
lines printed.  If a file named by an argument cannot be opened for
some reason, Perl warns you about it and moves on to the next file.
.Sp
Here is an efficient way to delete all files that haven't been modified for
at least a week:
.Sp
.Vb 1
\&    find . \-mtime +7 \-print | perl \-nle unlink
.Ve
.Sp
This is faster than using the \fB\-exec\fR switch of \fBfind\fR because you don't
have to start a process on every filename found.  It does suffer from
the bug of mishandling newlines in pathnames, which you can fix if
you follow the example under \fB\-0\fR.
.Sp
\&\f(CW\*(C`BEGIN\*(C'\fR and \f(CW\*(C`END\*(C'\fR blocks may be used to capture control before or after
the implicit program loop, just as in \fBawk\fR.
.IP "\fB\-p\fR" 5
.IX Xref "-p"
.IX Item "-p"
causes Perl to assume the following loop around your program, which
makes it iterate over filename arguments somewhat like \fBsed\fR:
.Sp
.Vb 6
\&  LINE:
\&    while (<>) {
\&        ...             # your program goes here
\&    } continue {
\&        print or die "\-p destination: $!\en";
\&    }
.Ve
.Sp
If a file named by an argument cannot be opened for some reason, Perl
warns you about it, and moves on to the next file.  Note that the
lines are printed automatically.  An error occurring during printing is
treated as fatal.  To suppress printing use the \fB\-n\fR switch.  A \fB\-p\fR
overrides a \fB\-n\fR switch.
.Sp
\&\f(CW\*(C`BEGIN\*(C'\fR and \f(CW\*(C`END\*(C'\fR blocks may be used to capture control before or after
the implicit loop, just as in \fBawk\fR.
.IP "\fB\-P\fR" 5
.IX Xref "-P"
.IX Item "-P"
\&\fB\s-1NOTE:\s0 Use of \-P is strongly discouraged because of its inherent
problems, including poor portability. It is deprecated and will be
removed in a future version of Perl.\fR
.Sp
This option causes your program to be run through the C preprocessor before
compilation by Perl.  Because both comments and \fBcpp\fR directives begin
with the # character, you should avoid starting comments with any words
recognized by the C preprocessor such as \f(CW"if"\fR, \f(CW"else"\fR, or \f(CW"define"\fR.
.Sp
If you're considering using \f(CW\*(C`\-P\*(C'\fR, you might also want to look at the
Filter::cpp module from \s-1CPAN\s0.
.Sp
The problems of \-P include, but are not limited to:
.RS 5
.IP "\(bu" 10
The \f(CW\*(C`#!\*(C'\fR line is stripped, so any switches there don't apply.
.IP "\(bu" 10
A \f(CW\*(C`\-P\*(C'\fR on a \f(CW\*(C`#!\*(C'\fR line doesn't work.
.IP "\(bu" 10
\&\fBAll\fR lines that begin with (whitespace and) a \f(CW\*(C`#\*(C'\fR but
do not look like cpp commands, are stripped, including anything
inside Perl strings, regular expressions, and here-docs .
.IP "\(bu" 10
In some platforms the C preprocessor knows too much: it knows about
the \*(C+ \-style until-end-of-line comments starting with \f(CW"//"\fR.
This will cause problems with common Perl constructs like
.Sp
.Vb 1
\&    s/foo//;
.Ve
.Sp
because after \-P this will became illegal code
.Sp
.Vb 1
\&    s/foo
.Ve
.Sp
The workaround is to use some other quoting separator than \f(CW"/"\fR,
like for example \f(CW"!"\fR:
.Sp
.Vb 1
\&    s!foo!!;
.Ve
.IP "\(bu" 10
It requires not only a working C preprocessor but also a working
\&\fIsed\fR.  If not on \s-1UNIX\s0, you are probably out of luck on this.
.IP "\(bu" 10
Script line numbers are not preserved.
.IP "\(bu" 10
The \f(CW\*(C`\-x\*(C'\fR does not work with \f(CW\*(C`\-P\*(C'\fR.
.RE
.RS 5
.RE
.IP "\fB\-s\fR" 5
.IX Xref "-s"
.IX Item "-s"
enables rudimentary switch parsing for switches on the command
line after the program name but before any filename arguments (or before
an argument of \fB\-\-\fR).  Any switch found there is removed from \f(CW@ARGV\fR and sets the
corresponding variable in the Perl program.  The following program
prints \*(L"1\*(R" if the program is invoked with a \fB\-xyz\fR switch, and \*(L"abc\*(R"
if it is invoked with \fB\-xyz=abc\fR.
.Sp
.Vb 2
\&    #!/usr/bin/perl \-s
\&    if ($xyz) { print "$xyz\en" }
.Ve
.Sp
Do note that a switch like \fB\-\-help\fR creates the variable ${\-help}, which is not compliant
with \f(CW\*(C`strict refs\*(C'\fR.  Also, when using this option on a script with
warnings enabled you may get a lot of spurious \*(L"used only once\*(R" warnings.
.IP "\fB\-S\fR" 5
.IX Xref "-S"
.IX Item "-S"
makes Perl use the \s-1PATH\s0 environment variable to search for the
program (unless the name of the program contains directory separators).
.Sp
On some platforms, this also makes Perl append suffixes to the
filename while searching for it.  For example, on Win32 platforms,
the \*(L".bat\*(R" and \*(L".cmd\*(R" suffixes are appended if a lookup for the
original name fails, and if the name does not already end in one
of those suffixes.  If your Perl was compiled with \s-1DEBUGGING\s0 turned
on, using the \-Dp switch to Perl shows how the search progresses.
.Sp
Typically this is used to emulate #! startup on platforms that don't
support #!.  Its also convenient when debugging a script that uses #!,
and is thus normally found by the shell's \f(CW$PATH\fR search mechanism.
.Sp
This example works on many platforms that have a shell compatible with
Bourne shell:
.Sp
.Vb 3
\&    #!/usr/bin/perl
\&    eval \*(Aqexec /usr/bin/perl \-wS $0 ${1+"$@"}\*(Aq
\&            if $running_under_some_shell;
.Ve
.Sp
The system ignores the first line and feeds the program to \fI/bin/sh\fR,
which proceeds to try to execute the Perl program as a shell script.
The shell executes the second line as a normal shell command, and thus
starts up the Perl interpreter.  On some systems \f(CW$0\fR doesn't always
contain the full pathname, so the \fB\-S\fR tells Perl to search for the
program if necessary.  After Perl locates the program, it parses the
lines and ignores them because the variable \f(CW$running_under_some_shell\fR
is never true.  If the program will be interpreted by csh, you will need
to replace \f(CW\*(C`${1+"$@"}\*(C'\fR with \f(CW$*\fR, even though that doesn't understand
embedded spaces (and such) in the argument list.  To start up sh rather
than csh, some systems may have to replace the #! line with a line
containing just a colon, which will be politely ignored by Perl.  Other
systems can't control that, and need a totally devious construct that
will work under any of \fBcsh\fR, \fBsh\fR, or Perl, such as the following:
.Sp
.Vb 3
\&        eval \*(Aq(exit $?0)\*(Aq && eval \*(Aqexec perl \-wS $0 ${1+"$@"}\*(Aq
\&        & eval \*(Aqexec /usr/bin/perl \-wS $0 $argv:q\*(Aq
\&                if $running_under_some_shell;
.Ve
.Sp
If the filename supplied contains directory separators (i.e., is an
absolute or relative pathname), and if that file is not found,
platforms that append file extensions will do so and try to look
for the file with those extensions added, one by one.
.Sp
On DOS-like platforms, if the program does not contain directory
separators, it will first be searched for in the current directory
before being searched for on the \s-1PATH\s0.  On Unix platforms, the
program will be searched for strictly on the \s-1PATH\s0.
.IP "\fB\-t\fR" 5
.IX Xref "-t"
.IX Item "-t"
Like \fB\-T\fR, but taint checks will issue warnings rather than fatal
errors.  These warnings can be controlled normally with \f(CW\*(C`no warnings
qw(taint)\*(C'\fR.
.Sp
\&\fB\s-1NOTE:\s0 this is not a substitute for \-T.\fR This is meant only to be
used as a temporary development aid while securing legacy code:
for real production code and for new secure code written from scratch
always use the real \fB\-T\fR.
.IP "\fB\-T\fR" 5
.IX Xref "-T"
.IX Item "-T"
forces \*(L"taint\*(R" checks to be turned on so you can test them.  Ordinarily
these checks are done only when running setuid or setgid.  It's a
good idea to turn them on explicitly for programs that run on behalf
of someone else whom you might not necessarily trust, such as \s-1CGI\s0
programs or any internet servers you might write in Perl.  See
perlsec for details.  For security reasons, this option must be
seen by Perl quite early; usually this means it must appear early
on the command line or in the #! line for systems which support
that construct.
.IP "\fB\-u\fR" 5
.IX Xref "-u"
.IX Item "-u"
This obsolete switch causes Perl to dump core after compiling your
program.  You can then in theory take this core dump and turn it
into an executable file by using the \fBundump\fR program (not supplied).
This speeds startup at the expense of some disk space (which you
can minimize by stripping the executable).  (Still, a \*(L"hello world\*(R"
executable comes out to about 200K on my machine.)  If you want to
execute a portion of your program before dumping, use the \fIdump()\fR
operator instead.  Note: availability of \fBundump\fR is platform
specific and may not be available for a specific port of Perl.
.IP "\fB\-U\fR" 5
.IX Xref "-U"
.IX Item "-U"
allows Perl to do unsafe operations.  Currently the only \*(L"unsafe\*(R"
operations are attempting to unlink directories while running as 
superuser, and running setuid programs with fatal taint checks turned
into warnings.  Note that the \fB\-w\fR switch (or the \f(CW$^W\fR variable) 
must be used along with this option to actually \fIgenerate\fR the
taint-check warnings.
.IP "\fB\-v\fR" 5
.IX Xref "-v"
.IX Item "-v"
prints the version and patchlevel of your perl executable.
.IP "\fB\-V\fR" 5
.IX Xref "-V"
.IX Item "-V"
prints summary of the major perl configuration values and the current
values of \f(CW@INC\fR.
.IP "\fB\-V:\fR\fIconfigvar\fR" 5
.IX Item "-V:configvar"
Prints to \s-1STDOUT\s0 the value of the named configuration variable(s),
with multiples when your configvar argument looks like a regex (has
non-letters).  For example:
.Sp
.Vb 12
\&    $ perl \-V:libc
\&        libc=\*(Aq/lib/libc\-2.2.4.so\*(Aq;
\&    $ perl \-V:lib.
\&        libs=\*(Aq\-lnsl \-lgdbm \-ldb \-ldl \-lm \-lcrypt \-lutil \-lc\*(Aq;
\&        libc=\*(Aq/lib/libc\-2.2.4.so\*(Aq;
\&    $ perl \-V:lib.*
\&        libpth=\*(Aq/usr/local/lib /lib /usr/lib\*(Aq;
\&        libs=\*(Aq\-lnsl \-lgdbm \-ldb \-ldl \-lm \-lcrypt \-lutil \-lc\*(Aq;
\&        lib_ext=\*(Aq.a\*(Aq;
\&        libc=\*(Aq/lib/libc\-2.2.4.so\*(Aq;
\&        libperl=\*(Aqlibperl.a\*(Aq;
\&        ....
.Ve
.Sp
Additionally, extra colons can be used to control formatting.  A
trailing colon suppresses the linefeed and terminator ';', allowing
you to embed queries into shell commands.  (mnemonic: \s-1PATH\s0 separator
\&':'.)
.Sp
.Vb 2
\&    $ echo "compression\-vars: " \`perl \-V:z.*: \` " are here !"
\&    compression\-vars:  zcat=\*(Aq\*(Aq zip=\*(Aqzip\*(Aq  are here !
.Ve
.Sp
A leading colon removes the 'name=' part of the response, this allows
you to map to the name you need.  (mnemonic: empty label)
.Sp
.Vb 2
\&    $ echo "goodvfork="\`./perl \-Ilib \-V::usevfork\`
\&    goodvfork=false;
.Ve
.Sp
Leading and trailing colons can be used together if you need
positional parameter values without the names.  Note that in the case
below, the \s-1PERL_API\s0 params are returned in alphabetical order.
.Sp
.Vb 2
\&    $ echo building_on \`perl \-V::osname: \-V::PERL_API_.*:\` now
\&    building_on \*(Aqlinux\*(Aq \*(Aq5\*(Aq \*(Aq1\*(Aq \*(Aq9\*(Aq now
.Ve
.IP "\fB\-w\fR" 5
.IX Xref "-w"
.IX Item "-w"
prints warnings about dubious constructs, such as variable names
that are mentioned only once and scalar variables that are used
before being set, redefined subroutines, references to undefined
filehandles or filehandles opened read-only that you are attempting
to write on, values used as a number that don't look like numbers,
using an array as though it were a scalar, if your subroutines
recurse more than 100 deep, and innumerable other things.
.Sp
This switch really just enables the internal \f(CW$^W\fR variable.  You
can disable or promote into fatal errors specific warnings using
\&\f(CW\*(C`_\|_WARN_\|_\*(C'\fR hooks, as described in perlvar and \*(L"warn\*(R" in perlfunc.
See also perldiag and perltrap.  A new, fine-grained warning
facility is also available if you want to manipulate entire classes
of warnings; see warnings or perllexwarn.
.IP "\fB\-W\fR" 5
.IX Xref "-W"
.IX Item "-W"