archive::zip::memberread.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 "Archive::Zip::MemberRead 3"
.TH Archive::Zip::MemberRead 3 "2007-11-07" "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"
Archive::Zip::MemberRead \- A wrapper that lets you read Zip archive members as if they were files.
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 8
\&  use Archive::Zip;
\&  use Archive::Zip::MemberRead;
\&  $zip = new Archive::Zip("file.zip");
\&  $fh  = new Archive::Zip::MemberRead($zip, "subdir/abc.txt");
\&  while (defined($line = $fh\->getline()))
\&  {
\&      print $fh\->input_line_number . "#: $line\en";
\&  }
\&
\&  $read = $fh\->read($buffer, 32*1024);
\&  print "Read $read bytes as :$buffer:\en";
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
The Archive::Zip::MemberRead module lets you read Zip archive member data
just like you read data from files.
.SH "METHODS"
.IX Header "METHODS"
.IP "\fIArchive::Zip::Member::readFileHandle()\fR" 4
.IX Item "Archive::Zip::Member::readFileHandle()"
You can get a \f(CW\*(C`Archive::Zip::MemberRead\*(C'\fR from an archive member by
calling \f(CW\*(C`readFileHandle()\*(C'\fR:
.Sp
.Vb 7
\&  my $member = $zip\->memberNamed(\*(Aqabc/def.c\*(Aq);
\&  my $fh = $member\->readFileHandle();
\&  while (defined($line = $fh\->getline()))
\&  {
\&      # ...
\&  }
\&  $fh\->close();
.Ve
.ie n .IP "Archive::Zip::MemberRead\->new($zip, $fileName)" 4
.el .IP "Archive::Zip::MemberRead\->new($zip, \f(CW$fileName\fR)" 4
.IX Item "Archive::Zip::MemberRead->new($zip, $fileName)"
.PD 0
.ie n .IP "Archive::Zip::MemberRead\->new($zip, $member)" 4
.el .IP "Archive::Zip::MemberRead\->new($zip, \f(CW$member\fR)" 4
.IX Item "Archive::Zip::MemberRead->new($zip, $member)"
.IP "Archive::Zip::MemberRead\->new($member)" 4
.IX Item "Archive::Zip::MemberRead->new($member)"
.PD
Construct a new Archive::Zip::MemberRead on the specified member.
.Sp
.Vb 1
\&  my $fh = Archive::Zip::MemberRead\->new($zip, \*(Aqfred.c\*(Aq)
.Ve
.IP "setLineEnd(expr)" 4
.IX Item "setLineEnd(expr)"
Set the line end character to use. This is set to \en by default
except on Windows systems where it is set to \er\en. You will
only need to set this on systems which are not Windows or Unix
based and require a line end diffrent from \en.
This is a class method so call as \f(CW\*(C`Archive::Zip::MemberRead\*(C'\fR\->\f(CW\*(C`setLineEnd($nl)\*(C'\fR
.IP "\fIrewind()\fR" 4
.IX Item "rewind()"
Rewinds an \f(CW\*(C`Archive::Zip::MemberRead\*(C'\fR so that you can read from it again
starting at the beginning.
.IP "input_record_separator(expr)" 4
.IX Item "input_record_separator(expr)"
If the argumnet is given, input_record_separator for this
instance is set to it. The current setting (which may be
the global $/) is always returned.
.IP "\fIinput_line_number()\fR" 4
.IX Item "input_line_number()"
Returns the current line number, but only if you're using \f(CW\*(C`getline()\*(C'\fR.
Using \f(CW\*(C`read()\*(C'\fR will not update the line number.
.IP "\fIclose()\fR" 4
.IX Item "close()"
Closes the given file handle.
.ie n .IP "buffer_size([ $size ])" 4
.el .IP "buffer_size([ \f(CW$size\fR ])" 4
.IX Item "buffer_size([ $size ])"
Gets or sets the buffer size used for reads.
Default is the chunk size used by Archive::Zip.
.IP "\fIgetline()\fR" 4
.IX Item "getline()"
Returns the next line from the currently open member.
Makes sense only for text files.
A read error is considered fatal enough to die.
Returns undef on eof. All subsequent calls would return undef,
unless a \fIrewind()\fR is called.
Note: The line returned has the input_record_separator (default: newline) removed.
.ie n .IP "read($buffer, $num_bytes_to_read)" 4
.el .IP "read($buffer, \f(CW$num_bytes_to_read\fR)" 4
.IX Item "read($buffer, $num_bytes_to_read)"
Simulates a normal \f(CW\*(C`read()\*(C'\fR system call.
Returns the no. of bytes read. \f(CW\*(C`undef\*(C'\fR on error, 0 on eof, \fIe.g.\fR:
.Sp
.Vb 9
\&  $fh = new Archive::Zip::MemberRead($zip, "sreeji/secrets.bin");
\&  while (1)
\&  {
\&    $read = $fh\->read($buffer, 1024);
\&    die "FATAL ERROR reading my secrets !\en" if (!defined($read));
\&    last if (!$read);
\&    # Do processing.
\&    ....
\&   }
.Ve
.SH "AUTHOR"
.IX Header "AUTHOR"
Sreeji K. Das, <[e-mail]>
See Archive::Zip by Ned Konz without which this module does not make
any sense!
.PP
Minor mods by Ned Konz.
.SH "COPYRIGHT"
.IX Header "COPYRIGHT"
Copyright 2002 Sreeji K. Das.
.PP
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.