I usually add warnings and strict to help avoid errors. Adding those yields:
and
The line numbers reflect the addition of lines for use strict; and use warnings;
whats the purpose of the following script? who could run it? To what is the script refering that exceeds 75%? The mailbox?
What does sed 's/%//' do? (1 Reply)
Status quo is, within a web application, which is coded completely in php (not by me, I dont know php), I have to fill out several fields, and execute it manually by clicking the "go" button in my browser, several times a day.
Thats because:
The script itself pulls data (textfiles) from a... (3 Replies)
Hello everyone
I am new to this forum
I am working on a project and needed a test script to fill up a disk partition /tmp/data to see how the program fails.
The system I am working on is a redhat 5.3.
Is there anything out there?
Thanks. (10 Replies)
Hi,
I am new for unix and I am following ABS guide. What is the purpose of - (hypen ) in the below command and What it will do in this?. Can anyone explain it in detail. Rest of the things in the below command I understood somewhat.
(cd /source/directory && tar cf - . ) | (cd /dest/directory &&... (1 Reply)
I have file listed like below
-rw-r--r--+ 1 test test 17M Nov 26 14:43 test1.gz
-rw-r--r--+ 1 test test 0 Nov 26 14:44 test2.gz
-rw-r--r--+ 1 test test 0 Nov 27 10:41 test3.gz
-rw-r--r--+ 1 test test 244K Nov 27 10:41 test4.gz
-rw-r--r--+ 1 test test 17M Nov 27 10:41 test5.gz
I... (5 Replies)
I've been kicking this around for a while now, I might as well post it here.
v0.0.9, now properly supporting self-closing tags.
v0.0.8, an important quoting fix and a minor change which should handle special <? <!-- etc. tags without seizing up as often. Otherwise the code hasn't changed much.... (6 Replies)
Discussion started by: Corona688
6 Replies
LEARN ABOUT DEBIAN
io::async::protocol::stream
IO::Async::Protocol::Stream(3pm) User Contributed Perl Documentation IO::Async::Protocol::Stream(3pm)NAME
"IO::Async::Protocol::Stream" - base class for stream-based protocols
SYNOPSIS
Most likely this class will be subclassed to implement a particular network protocol.
package Net::Async::HelloWorld;
use strict;
use warnings;
use base qw( IO::Async::Protocol::Stream );
sub on_read
{
my $self = shift;
my ( $buffref, $eof ) = @_;
return 0 unless $$buffref =~ s/^(.*)
//;
my $line = $1;
if( $line =~ m/^HELLO (.*)/ ) {
my $name = $1;
$self->invoke_event( on_hello => $name );
}
return 1;
}
sub send_hello
{
my $self = shift;
my ( $name ) = @_;
$self->write( "HELLO $name
" );
}
This small example elides such details as error handling, which a real protocol implementation would be likely to contain.
DESCRIPTION
This subclass of IO::Async::Protocol is intended to stand as a base class for implementing stream-based protocols. It provides an interface
similar to IO::Async::Stream, primarily, a "write" method and an "on_read" event handler.
It contains an instance of an "IO::Async::Stream" object which it uses for actual communication, rather than being a subclass of it,
allowing a level of independence from the actual stream being used. For example, the stream may actually be an IO::Async::SSLStream to
allow the protocol to be used over SSL.
As with "IO::Async::Stream", it is required that by the time the protocol object is added to a Loop, that it either has an "on_read"
method, or has been configured with an "on_read" callback handler.
EVENTS
The following events are invoked, either using subclass methods or CODE references in parameters:
$ret = on_read $buffer, $eof
The "on_read" handler is invoked identically to "IO::Async::Stream".
on_closed
The "on_closed" handler is optional, but if provided, will be invoked after the stream is closed by either side (either because the
"close()" method has been invoked on it, or on an incoming EOF).
PARAMETERS
The following named parameters may be passed to "new" or "configure":
on_read => CODE
CODE reference for the "on_read" event.
handle => IO
A shortcut for the common case where the transport only needs to be a plain "IO::Async::Stream" object. If this argument is
provided without a "transport" object, a new "IO::Async::Stream" object will be built around the given IO handle, and used as the
transport.
METHODS
$protocol->write( $data )
Writes the given data by calling the "write" method on the contained transport stream.
$protocol->connect( %args )
Sets up a connection to a peer, and configures the underlying "transport" for the Protocol. Calls "IO::Async::Protocol" "connect" with
"socktype" set to "stream".
AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
perl v5.14.2 2012-10-24 IO::Async::Protocol::Stream(3pm)