apr::finfo.3

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

\&  use APR::Finfo;
\&  use APR::Const \-compile => qw(FILETYPE_DIR FILETYPE_REG FINFO_NORM);
\&  my $pool  = APR::Pool\->new();
\&  my $finfo = APR::Finfo::stat("/tmp", APR::Const::FINFO_NORM, $pool);
\&  my $finfo = $finfo\->filetype;
\&  if ($finfo == APR::Const::FILETYPE_REG) {
\&      print "regular file";
\&  }
\&  elsif ($finfo == APR::Const::FILETYPE_REG) {
\&      print "directory";
\&  }
\&  else {
\&      print "other file";
\&  }
.Ve
.PP
Since \fI/tmp\fR is a directory, this will print:
.PP
.Vb 1
\&  directory
.Ve
.ie n .Sh """fname"""
.el .Sh "\f(CWfname\fP"
.IX Subsection "fname"
Get the pathname of the file (possibly unrooted)
.PP
.Vb 1
\&  $fname = $finfo\->fname;
.Ve
.ie n .IP "obj: $finfo\fR ( \f(CW""APR::Finfo object"" )" 4
.el .IP "obj: \f(CW$finfo\fR ( \f(CWAPR::Finfo object\fR )" 4
.IX Item "obj: $finfo ( APR::Finfo object )"
.PD 0
.ie n .IP "return: $filetype ( string )" 4
.el .IP "return: \f(CW$filetype\fR ( string )" 4
.IX Item "return: $filetype ( string )"
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PD
.ie n .Sh """group"""
.el .Sh "\f(CWgroup\fP"
.IX Subsection "group"
Get the group id that owns the file:
.PP
.Vb 1
\&  $gid = $finfo\->group;
.Ve
.ie n .IP "obj: $finfo\fR ( \f(CW""APR::Finfo object"" )" 4
.el .IP "obj: \f(CW$finfo\fR ( \f(CWAPR::Finfo object\fR )" 4
.IX Item "obj: $finfo ( APR::Finfo object )"
.PD 0
.ie n .IP "return: $gid ( number )" 4
.el .IP "return: \f(CW$gid\fR ( number )" 4
.IX Item "return: $gid ( number )"
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PD
.PP
This method returns the same value as Perl's:
.PP
.Vb 1
\&  (stat $filename)[5]
.Ve
.PP
Note that this method may not be meaningful on all platforms, most
notably Win32.  Incorrect results have also been reported on some
versions of \s-1OSX\s0.
.ie n .Sh """inode"""
.el .Sh "\f(CWinode\fP"
.IX Subsection "inode"
Get the inode of the file.
.PP
.Vb 1
\&  $inode = $finfo\->inode;
.Ve
.ie n .IP "obj: $finfo\fR ( \f(CW""APR::Finfo object"" )" 4
.el .IP "obj: \f(CW$finfo\fR ( \f(CWAPR::Finfo object\fR )" 4
.IX Item "obj: $finfo ( APR::Finfo object )"
.PD 0
.ie n .IP "return: $inode ( integer )" 4
.el .IP "return: \f(CW$inode\fR ( integer )" 4
.IX Item "return: $inode ( integer )"
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PD
.PP
This method returns the same value as Perl's:
.PP
.Vb 1
\&  (stat $filename)[1]
.Ve
.PP
Note that this method may not be meaningful on all platforms, most
notably Win32.
.ie n .Sh """mtime"""
.el .Sh "\f(CWmtime\fP"
.IX Subsection "mtime"
The time the file was last modified
.PP
.Vb 1
\&  $mtime = $finfo\->mtime;
.Ve
.ie n .IP "obj: $finfo\fR ( \f(CW""APR::Finfo object"" )" 4
.el .IP "obj: \f(CW$finfo\fR ( \f(CWAPR::Finfo object\fR )" 4
.IX Item "obj: $finfo ( APR::Finfo object )"
.PD 0
.ie n .IP "return: $mtime ( integer )" 4
.el .IP "return: \f(CW$mtime\fR ( integer )" 4
.IX Item "return: $mtime ( integer )"
.PD
Last modify time in seconds since the epoch
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PP
This method returns the same value as Perl's:
.PP
.Vb 1
\&  (stat $filename)[9]
.Ve
.ie n .Sh """name"""
.el .Sh "\f(CWname\fP"
.IX Subsection "name"
Get the file's name (no path) in filesystem case:
.PP
.Vb 1
\&  $name = $finfo\->name;
.Ve
.ie n .IP "obj: $finfo\fR ( \f(CW""APR::Finfo object"" )" 4
.el .IP "obj: \f(CW$finfo\fR ( \f(CWAPR::Finfo object\fR )" 4
.IX Item "obj: $finfo ( APR::Finfo object )"
.PD 0
.ie n .IP "return: $device ( string )" 4
.el .IP "return: \f(CW$device\fR ( string )" 4
.IX Item "return: $device ( string )"
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PD
.ie n .Sh """nlink"""
.el .Sh "\f(CWnlink\fP"
.IX Subsection "nlink"
Get the number of hard links to the file.
.PP
.Vb 1
\&  $nlink = $finfo\->nlink;
.Ve
.ie n .IP "obj: $finfo\fR ( \f(CW""APR::Finfo object"" )" 4
.el .IP "obj: \f(CW$finfo\fR ( \f(CWAPR::Finfo object\fR )" 4
.IX Item "obj: $finfo ( APR::Finfo object )"
.PD 0
.ie n .IP "return: $nlink ( integer )" 4
.el .IP "return: \f(CW$nlink\fR ( integer )" 4
.IX Item "return: $nlink ( integer )"
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PD
.PP
This method returns the same value as Perl's:
.PP
.Vb 1
\&  (stat $filename)[3]
.Ve
.ie n .Sh """protection"""
.el .Sh "\f(CWprotection\fP"
.IX Subsection "protection"
Get the access permissions of the file.  Mimics Unix access rights.
.PP
.Vb 1
\&  $prot = $finfo\->protection;
.Ve
.ie n .IP "obj: $finfo\fR ( \f(CW""APR::Finfo object"" )" 4
.el .IP "obj: \f(CW$finfo\fR ( \f(CWAPR::Finfo object\fR )" 4
.IX Item "obj: $finfo ( APR::Finfo object )"
.PD 0
.ie n .IP "return: $prot\fR ( \f(CW"":fprot constant"" )" 4
.el .IP "return: \f(CW$prot\fR ( \f(CW:fprot constant\fR )" 4
.IX Item "return: $prot ( :fprot constant )"
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PD
.PP
This method returns the same value as Perl's:
.PP
.Vb 1
\&  (stat $filename)[2]
.Ve
.ie n .Sh """size"""
.el .Sh "\f(CWsize\fP"
.IX Subsection "size"
Get the size of the file
.PP
.Vb 1
\&  $size = $finfo\->size;
.Ve
.ie n .IP "obj: $finfo\fR ( \f(CW""APR::Finfo object"" )" 4
.el .IP "obj: \f(CW$finfo\fR ( \f(CWAPR::Finfo object\fR )" 4
.IX Item "obj: $finfo ( APR::Finfo object )"
.PD 0
.ie n .IP "return: $size ( integer )" 4
.el .IP "return: \f(CW$size\fR ( integer )" 4
.IX Item "return: $size ( integer )"
.PD
Total size of file, in bytes
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PP
This method returns the same value as Perl's:
.PP
.Vb 1
\&  (stat $filename)[7]
.Ve
.ie n .Sh """stat"""
.el .Sh "\f(CWstat\fP"
.IX Subsection "stat"
Get the specified file's stats.
.PP
.Vb 1
\&  $finfo = APR::Finfo::stat($fname, $wanted_fields, $p);
.Ve
.ie n .IP "arg1: $fname ( string )" 4
.el .IP "arg1: \f(CW$fname\fR ( string )" 4
.IX Item "arg1: $fname ( string )"
The path to the file to \f(CW\*(C`stat()\*(C'\fR.
.ie n .IP "arg2: $wanted_fields\fR ( \f(CW"":finfo constant"" )" 4
.el .IP "arg2: \f(CW$wanted_fields\fR ( \f(CW:finfo constant\fR )" 4
.IX Item "arg2: $wanted_fields ( :finfo constant )"
The desired fields, as a bitmask flag of
\&\f(CW\*(C`APR::FINFO_*\*(C'\fR constants.
.Sp
Notice that you can also use the constants that already combine
several elements in one. For example
\&\f(CW\*(C`APR::Const::FINFO_PROT\*(C'\fR
asks for all protection bits,
\&\f(CW\*(C`APR::Const::FINFO_MIN\*(C'\fR asks
for the following fields: type, mtime, ctime, atime, size and
\&\f(CW\*(C`APR::Const::FINFO_NORM\*(C'\fR
asks for all atomic unix \f(CW\*(C`apr_stat()\*(C'\fR fields (similar to perl's
\&\f(CW\*(C`stat()\*(C'\fR).
.ie n .IP "arg3: $p\fR ( \f(CW""APR::Pool object"" )" 4
.el .IP "arg3: \f(CW$p\fR ( \f(CWAPR::Pool object\fR )" 4
.IX Item "arg3: $p ( APR::Pool object )"
the pool to use to allocate the file stat structure.
.ie n .IP "ret: $finfo\fR ( \f(CW""APR::Finfo object"" )" 4
.el .IP "ret: \f(CW$finfo\fR ( \f(CWAPR::Finfo object\fR )" 4
.IX Item "ret: $finfo ( APR::Finfo object )"
.PD 0
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PD
.PP
For example, here is how to get most of the \f(CW\*(C`stat\*(C'\fR fields:
.PP
.Vb 5
\&  use APR::Pool ();
\&  use APR::Finfo ();
\&  use APR::Const \-compile => qw(FINFO_NORM);
\&  my $pool = APR::Pool\->new();
\&  my $finfo = APR::Finfo::stat("/tmp/test", APR::Const::FINFO_NORM, $pool);
.Ve
.ie n .Sh """user"""
.el .Sh "\f(CWuser\fP"
.IX Subsection "user"
Get the user id that owns the file:
.PP
.Vb 1
\&  $uid = $finfo\->user;
.Ve
.ie n .IP "obj: $finfo\fR ( \f(CW""APR::Finfo object"" )" 4
.el .IP "obj: \f(CW$finfo\fR ( \f(CWAPR::Finfo object\fR )" 4
.IX Item "obj: $finfo ( APR::Finfo object )"
.PD 0
.ie n .IP "return: $uid ( number )" 4
.el .IP "return: \f(CW$uid\fR ( number )" 4
.IX Item "return: $uid ( number )"
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PD
.PP
This method returns the same value as Perl's:
.PP
.Vb 1
\&  (stat $filename)[4]
.Ve
.PP
Note that this method may not be meaningful on all platforms,
most notably Win32.
.ie n .Sh """valid"""
.el .Sh "\f(CWvalid\fP"
.IX Subsection "valid"
The bitmask describing valid fields of this apr_finfo_t structure
including all available 'wanted' fields and potentially more
.PP
.Vb 1
\&  $valid = $finfo\->valid;
.Ve
.ie n .IP "obj: $finfo\fR ( \f(CW""APR::Finfo object"" )" 4
.el .IP "obj: \f(CW$finfo\fR ( \f(CWAPR::Finfo object\fR )" 4
.IX Item "obj: $finfo ( APR::Finfo object )"
.PD 0
.ie n .IP "arg1: $valid ( bitmask )" 4
.el .IP "arg1: \f(CW$valid\fR ( bitmask )" 4
.IX Item "arg1: $valid ( bitmask )"
.PD
This bitmask flag should be bit-OR'ed against \f(CW\*(C`:finfo
constant\*(C'\fR constants.
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.SH "See Also"
.IX Header "See Also"
mod_perl 2.0 documentation.
.SH "Copyright"
.IX Header "Copyright"
mod_perl 2.0 and its core modules are copyrighted under
The Apache Software License, Version 2.0.
.SH "Authors"
.IX Header "Authors"
The mod_perl development team and numerous
contributors.