Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Tk killing binary?

by Cybercosis (Monk)
on Aug 04, 2001 at 09:52 UTC ( #102215=perlquestion: print w/replies, xml ) Need Help??

Cybercosis has asked for the wisdom of the Perl Monks concerning the following question:

I have a small app that requires me to get some data from a Tk Entry widget. I have no problem if the data is just text, but if it's binary, it somehow gets munged in transit. Is there any way to fix this?


nemo accipere quod non merere

Replies are listed 'Best First'.
Re: Tk killing binary?
by physi (Friar) on Aug 04, 2001 at 11:00 UTC
    some code would be helpful ...
    Maybe you could use pack ??
    ----------------------------------- --the good, the bad and the physi-- -----------------------------------
Re: Tk killing binary?
by kschwab (Vicar) on Aug 05, 2001 at 18:55 UTC
    I suspect that the X11 cut buffer is what's munging your data. You could test this by not using it...
    # create a string with binary data my $binary="string\000with\000nulls"; # empty out the entry widget $entrywidget->delete(0,"end"); # insert the data $entrywidget->insert(0,$binary); # pull back the data with get and compare to the # original data my $gotback=$entrywidget->get(); if ($binary ne $gotback) { print "hmm...buggy?\n"; # throw in some hexdumps here ? }
    If you can't solve the problem with binary data, perhaps you could have the user input the binary data with some sort of encoding (Base64, urlencoded,etc) ?

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://102215]
Approved by root
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2022-12-10 08:58 GMT
Find Nodes?
    Voting Booth?

    No recent polls found