Re: Associating filehandles with Perl::Tk widgets?

You can access the formatting routines without using a filehandle. See the section "Accessing Formatting Internals" in perldoc perlform.

Another option is to use a file handle that is tied to a scalar variable, format the text using that file handle and retrieve the formatted output via the scalar:

my $buf;
open(my $fh, ">", \$buf);
...
write $fh ...;
...
close($fh);
# now use $buf:
$widget->configure(-text => $buf);
[download]

Comment on Re: Associating filehandles with Perl::Tk widgets? Select or Download Code

Replies are listed 'Best First'.
Re^2: Associating filehandles with Perl::Tk widgets? by YYCseismic (Beadle) on Jul 16, 2008 at 19:27 UTC
Okay, that's awesome! I used the first option, and that takes care of a couple of my problems! It's really nice, because I don't have to worry about newlines, either. The only thing is I get the following warning: `Use of uninitialized value in formline at ./sl-brad.pl line 375.` Here's my code: `sub swrite { croak "Usage: swrite PICTURE ARGS" unless @_; my $format = shift; $^A = ""; formline( $format, @_ ); return $^A; } #end sub swrite()` [download] I know it's just a warning, but I'm looking for clean code. I assume it's not liking the `@_` in the `formline` statement. Perhaps I should just assign it to another variable?	[reply] [d/l] [select]
Re^3: Associating filehandles with Perl::Tk widgets? by YYCseismic (Beadle) on Jul 16, 2008 at 21:01 UTC
Problem solved. Turned out the data I was sending to `swrite` was not quite right. Now it is and all is beautiful :) Thanks for your help!	[reply] [d/l]