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

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?

~Cybercosis

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?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://102215]
Approved by root
help
Chatterbox?
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
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?