in reply to Saving Contents of Perl/Tk Display to a File

Hi, baklobsters, I tried running your code, (on Windows 2000) but it crashes with an Application Error, which isn't a good sign.

I tried adding the pragmas:

use strict; use warnings;
at the top of the second code snippet (as well as the necessary library use Tk); not surprisingly, it fails to run.

You may want to consider supplying a complete code example, which will help us separate the problem you're having from the other problems currently in the code, such as textvariable references which don't exist (eg. advisory and $JTA), and other data which hasn't been included.

So, if you can post a program which runs as is, I'll be happy to try to give you an answer to your question.


@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"