[ Mladenko @ 11.10.2004. 16:01 ] @
Zasto ovo radi:

open (OPEN,"<$open");
@lines = <OPEN>;
tie *STDOUT, Tk::Text, $text;
print "@lines";
close OPEN;

A ovo nece:

print "nesto";
tie *STDOUT, Tk::ROText,$edit;

Ne izbacuje nikakav error samo nece.
[ mpapec @ 14.10.2004. 17:02 ] @

Ako nisi promasio neki parametar onda ti ova druga klasa nema definirano ponasanje za "zavezivanje" filehandleova, znaci ne moze se STDOUT vezati na bilo koju klasu.

perldoc perltie
> Tying FileHandles
> This is partially implemented now.
>
> A class implementing a tied filehandle should define the following
> methods: TIEHANDLE, at least one of PRINT, PRINTF, WRITE, READLINE,
> GETC, READ, and possibly CLOSE, UNTIE and DESTROY. The class can also
> provide: BINMODE, OPEN, EOF, FILENO, SEEK, TELL - if the corresponding
> perl operators are used on the handle.
[ Mladenko @ 15.10.2004. 14:51 ] @
Moze, u tome I jeste problem. Poenta I jeste u tome da ga vezem za
Tk::ROText widget, I da kroz print komandu ispisujem sta hocu, nego
stvar je u $edit promenljivoj jer perl javlja da ne moze da uradi
TIEHANDLE na ne postojecu promenljivu. Kako da importujem promenljive iz
druge skripte ako sam je pre toda pozvao sa use?
[ mpapec @ 16.10.2004. 22:30 ] @
Ajde napisi sto ti tocno perl javlja i postaj obje datoteke koje koristis.