Eventloop(3) User Contributed Perl Documentation Eventloop(3)NAME
Tk::Event - ToolKit for Events
SYNOPSIS
use Tk::Event;
Tk::Event->fileevent(*FH, 'readable' => callback);
Tk::Event->lineavail(*FH, callback);
use Tk::Event::Signal qw(INT);
$SIG{'INT'} = callback;
use Tk::Event::process;
Tk::Event->proc($pid, callback);
QueueEvent(callback [, position])
DESCRIPTION
That is better than nothing but still hard to use. Most scripts want higher level result (a line, a "block" of data etc.)
So it has occured to me that we could use new-ish TIEHANDLE thus:
my $obj = tie SOMEHANDLE,Tk::Event::IO;
while (<SOMEHANDLE>)
{
}
Then the READLINE routine registers a callback and looks something like:
sub READLINE
{
my $obj = shift;
Event->io(*$obj,'readable',sub { sysread(*$obj,${*$obj},1,length(${*$obj}) });
my $pos;
while (($pos = index(${*$obj},$/) < 0)
{
DoOneEvent();
}
Event->io(*$obj,'readable',''); # unregister
$pos += length($/);
my $result = substr(${*$obj},0,$pos);
substr(${*$obj},0,$pos) = '';
return $result;
}
This is using the scalar part of the glob representing the _inner_ IO as a buffer in which to accumulate chars.
perl v5.16.3 2014-06-10 Eventloop(3)
Check Out this Related Man Page
Object::Deadly::_unsafe(3) User Contributed Perl Documentation Object::Deadly::_unsafe(3)NAME
Object::Deadly::_unsafe - Implementation for the deadly object
METHODS
"$obj->DESTROY"
The DESTROY method doesn't die. This is defined so it won't be AUTOLOADed or fetched from UNIVERSAL.
"$obj->isa"
"$obj->can"
"$obj->version"
"$obj->DOES"
"$obj->import"
"$obj->require"
"$obj->use"
"$obj->blessed"
"$obj->dump"
"$obj->peek"
"$obj->refaddr"
"$obj->exports"
"$obj->moniker"
"$obj->plural_moniker"
"$obj->which"
"$obj->AUTOLOAD"
Each of AUTOLOAD, a named list of known UNIVERSAL functions and then a query for everything currently known are all implemented with
"Object::Deadly->get_death" to prevent anything from sneaking through to a successful call against something in UNIVERSAL.
That list of functions are what core perl uses plus a bunch from CPAN modules including UNIVERSAL, UNIVERSAL::require, UNIVERSAL::dump,
UNIVERSAL::exports, UNIVERSAL::moniker, UNIVERSAL::which. That's just the list as it exists today. If someone else creates a new one
and you load it, be sure to do it *prior* to loading this module so I can have at least a chance at noticing anything it's loaded.
SEE ALSO
Object::Deadly, Object::Deadly::_safe
perl v5.16.3 2006-09-25 Object::Deadly::_unsafe(3)
Hi everyone,
I know the following questions are noobish questions but I am asking them because I am confused about the basics of history behind UNIX and LINUX.
Ok onto business, my questions are-:
Was/Is UNIX ever an open source operating system ?
If UNIX was... (21 Replies)
Hello and thanks in advance for any help anyone can offer me
I'm trying to learn the find command and thought I was understanding it... Apparently I was wrong. I was doing compound searches and I started getting weird results with the -size test. I was trying to do a search on a 1G file owned by... (14 Replies)
hi all,
i have installed quota on my centos 7 machine and its what im after (setting size limit on users, so they cant fill the hard drive)
i want to now make this part of my create user script for my sftp server so i want to do a echo and a read command so i capture the limit they enter... (0 Replies)
Hi everybody,
Which Unix base OS have best performance for HOST virtualization?
I tested SmartOS but it needs another OS to connect remotely!
Thanks in advance. (11 Replies)
Hi All,
I need to write a shell script which opens a file and increments the version(text) within the file every time the script runs. For example:
$ cat docker_file.yml
version: '3.1'
services:
ui:
image: repo-srv.dev.io:5000/facebook/ui:0.0.2-QA1
$
So, I would like... (6 Replies)
Dear Team
We use DB2 v10.5 and using DBArtisan tool
Can someone please guide how to convert digits to binary numbers using db2 feature.
Ex> for number 9 , binary should be 1001 ( 8+1)
Any help appreciated. Thanks (2 Replies)
hi folks,
how to using tar with exclude directory and compress it using tar.Z
i only know how to exclude dir only with this command below:
tar -cvf /varios/restore/test.tar -X excludefile.txt /jfma/test1/
how to compress it using 1 command?
Thanx
Please use CODE tags as... (6 Replies)
Quite an obscure question I think.
We have a rebuild process for remote sites that allows us to PXE rebuild a till (actually a PC with a touch screen and various fancy bits) running CentOS. The current CentOS5 tills work just fine with a tar image restore and some personalisation. Sadly,... (4 Replies)
Hello All,
I had recently learnt a bit of Docker(which provides containerization process).
Here are some of my learning points from it.
Let us start first with very basic question:
What is Docker:
Docker is a platform for sysadmins and developers to DEPLOY, DEVELOP and RUN applications ... (7 Replies)
What is the point of this? Whenever I close my shell it appends to the history file without adding this. I have never seen it overwrite my history file.
# When the shell exits, append to the history file instead of overwriting it
shopt -s histappend (3 Replies)
Hello... And thanks in advance for any help anyone can offer me
I was trying to work out the differences between displaying modify, access, and change times with the 'ls' command. Everything seems in order when I look at files, but the access time on a directory doesn't seem to change when I... (4 Replies)
Hello everyone,
I am having an issue here with CentOS release 6.6 (Final) that shows all of the space used up, but I can't tell where the space went.
Seemingly I am using up 100%, according to
df -h
Filesystem Size Used Avail Use% Mounted on... (27 Replies)
I'm trying to use a bash script for a psych experiment that involves listening to sound files and responding. If I have something like the code below, how can I make sure that a key press is assigned to RESPONSE only after the second echo statement?
for i in 1 2 3; do
echo "Ready?"
sleep 2
... (10 Replies)
After the success of the jq - tool for parsing and manipulating JSON-Data someone wrote a tool called yq, which aims to be the same for YAML, what jq is for JSON. Seems to work fine. I'll definitely give it a chance in future.
Example YAML-File:
--- !ruby/object:Puppet::Node::Facts
... (1 Reply)
Dear All,
I am very pleased to announce that Dave Munro (gull04) is joining the Moderation Team, after being a very valuable member of UNIX.com for 15+ years.
Dave is an IT Consultant with 30 years of experience this year, has worked in many of the industry vertical market segments and has... (6 Replies)