file::homedir.3

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

.\" Automatically generated by Pod::Man 2.16 (Pod::Simple 3.05)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.ie \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.el \{\
.    de IX
..
.\}
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "File::HomeDir 3"
.TH File::HomeDir 3 "2007-12-06" "perl v5.10.0" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
File::HomeDir \- Find your home and other directories, on any platform
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\&  use File::HomeDir;
\&  
\&  # Modern Interface (Current User)
\&  $home    = File::HomeDir\->my_home;
\&  $desktop = File::HomeDir\->my_desktop;
\&  $docs    = File::HomeDir\->my_documents;
\&  $music   = File::HomeDir\->my_music;
\&  $pics    = File::HomeDir\->my_pictures;
\&  $videos  = File::HomeDir\->my_videos;
\&  $data    = File::HomeDir\->my_data;
\&  
\&  # Modern Interface (Other Users)
\&  $home    = File::HomeDir\->users_home(\*(Aqfoo\*(Aq);
\&  $desktop = File::HomeDir\->users_desktop(\*(Aqfoo\*(Aq);
\&  $docs    = File::HomeDir\->users_documents(\*(Aqfoo\*(Aq);
\&  $music   = File::HomeDir\->users_music(\*(Aqfoo\*(Aq);
\&  $pics    = File::HomeDir\->users_pictures(\*(Aqfoo\*(Aq);
\&  $video   = File::HomeDir\->users_videos(\*(Aqfoo\*(Aq);
\&  $data    = File::HomeDir\->users_data(\*(Aqfoo\*(Aq);
\&  
\&  # Legacy Interfaces
\&  print "My dir is ", home(), " and root\*(Aqs is ", home(\*(Aqroot\*(Aq), "\en";
\&  print "My dir is $~{\*(Aq\*(Aq} and root\*(Aqs is $~{root}\en";
\&  # These both print the same thing, something like:
\&  #  "My dir is /home/user/mojo and root\*(Aqs is /"
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
\&\fBFile::HomeDir\fR is a module for dealing with issues relating to the
location of directories that are \*(L"owned\*(R" by a user, primarily your user,
and to solve these issues consistently across a wide variety of
platforms.
.PP
Thus, a single \s-1API\s0 is presented that can find your resources on any
platform.
.PP
This module provides two main interfaces.
.PP
The first is a modern File::Spec\-style interface with a consistent
\&\s-1OO\s0 \s-1API\s0 and different implementation modules to support various
platforms. You are \fBstrongly\fR recommended to use this interface.
.PP
The second interface is for legacy support of the original 0.07 interface
that exported a \f(CW\*(C`home()\*(C'\fR function by default and tied the \f(CW\*(C`%~\*(C'\fR variable.
.PP
It is generally not recommended that you use this interface, but due to
back-compatibility reasons they will remain supported until at least 2010.
.PP
After this date, the \fIhome()\fR function will remain, but we will consider
deprecating the (namespace-polluting) \f(CW\*(C`%~\*(C'\fR tied hash, to be removed by
2015 (maintaining the general Perl convention of a 10 year support period
for legacy APIs potentially or actually in common use).
.Sh "Platform Neutrality"
.IX Subsection "Platform Neutrality"
In the Unix world, many different types of data can be mixed together
in your home directory (although on some Unix platforms this is no longer
the case, particularly for \*(L"desktop\*(R"\-oriented platforms).
.PP
On some non-Unix platforms, seperate directories are allocated for
different types of data and have been for a long time.
.PP
When writing applications on top of \fBFile::HomeDir\fR, you should thus
always try to use the most specific method you can. User documents should
be saved in \f(CW\*(C`my_documents\*(C'\fR, data that supports an application but isn't
normally editing by the user directory should go into \f(CW\*(C`my_data\*(C'\fR.
.PP
On platforms that do not make any distinction, all these different
methods will harmlessly degrade to the main home directory, but on
platforms that care \fBFile::HomeDir\fR will always try to Do The Right
Thing(tm).
.SH "METHODS"
.IX Header "METHODS"
Two types of methods are provided. The \f(CW\*(C`my_method\*(C'\fR series of methods for
finding resources for the current user, and the \f(CW\*(C`users_method\*(C'\fR (read as
\&\*(L"user's method\*(R") series for finding resources for arbitrary users.
.PP
This split is necesary, as on most platforms it is \fBmuch\fR easier to find
information about the current user compared to other users, and indeed
on a number you cannot find out information such as \f(CW\*(C`users_desktop\*(C'\fR at
all, due to security restrictions.
.PP
All methods will double check (using a \f(CW\*(C`\-d\*(C'\fR test) that a directory
actually exists before returning it, so you may trust in the values
that are returned (subject to the usual caveats of race conditions of
directories being deleted at the moment between a directory being returned
and you using it).
.PP
However, because in some cases platforms may not support the concept of home
directories at all, any method may return \f(CW\*(C`undef\*(C'\fR (both in scalar and list
context) to indicate that there is no matching directory on the system.
.PP
For example, most untrusted 'nobody'\-type users do not have a home
directory. So any modules that are used in a \s-1CGI\s0 application that
at some level of recursion use your code, will result in calls to
File::HomeDir returning undef, even for a basic \fIhome()\fR call.
.Sh "my_home"
.IX Subsection "my_home"
The \f(CW\*(C`my_home\*(C'\fR method takes no arguments and returns the main home/profile
directory for the current user.
.PP