Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

difference sockets in Tk and Tkx

by momo33 (Beadle)
on Mar 19, 2011 at 08:08 UTC ( #894122=perlquestion: print w/replies, xml ) Need Help??
momo33 has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks,

I try to get a Tkx application working with a socket. In Tk you can do this with

my $server = IO::Socket::INET->new( LocalPort => 7777, Type => SOCK_STREAM, Reuse => 1, Listen => 10 ); $mw->Tkx::fileevent($server, 'readable', sub { new_connection($server) + });
In Tkx fileevent would work like this
my $fh = Tkx::open("| @cmds <$null 2>\@1"); Tkx::fconfigure($fh, -blocking => 0); Tkx::fileevent($fh, readable => [\&readdata, $fh]);
A more complete application is being discussed in

does anyone know how to get a working socket system with Tkx?


Replies are listed 'Best First'.
Re: difference sockets in Tk and Tkx
by Corion (Pope) on Mar 19, 2011 at 08:14 UTC

    I don't know neither Tk nor Tkx, but as a socket is a filehandle, you might be able to just give your socket handle to fileevent() in Tkx as well. What happened when you tried that?

      can not find channel named "IO::Socket::INET=GLOB(0x9184ed0)" at ./sps line 28. line 28: Tkx::fileevent( $server, readable => [\&new_connection, \$ser +ver] );
      Yes, I made the fileevent line Tkx-style.
Re: difference sockets in Tk and Tkx
by Anonymous Monk on Mar 19, 2011 at 22:57 UTC
        This may contain all information but my Perl and Tcl knowledge is insufficient to turn the info into working code. Sorry

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://894122]
Approved by GrandFather
[Corion]: erix: I'm not sure if it really is MySQL - maybe MS SQL also has LIMIT 0
[erix]: it has TOP, IIRC
[Corion]: erix: Ah. I use where 1 = 0 for queries where I only am interested in the structure ;)
[erix]: 1=0 is as short as TOP :)
[erix]: "code of someone that died" -- kinda nice if your code stops working too
[erix]: hard to implement, hmm
[Corion]: erix: Well, they also seem to have changed the server, or some software, or whatever, and seem to be in the process of changing the DB schema from having the "username" as primary key to something else.

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (10)
As of 2017-01-23 09:32 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (192 votes). Check out past polls.