[ 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. |
[ Mladenko @ 11.10.2004. 16:01 ] @
[ 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.
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|