Mladenko Marko Mladenovic Industria designs Kočevje, Slovenija
Član broj: 36491 Poruke: 64 *.ppp-bg.sezampro.yu.
|
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
Član broj: 9198 Poruke: 45 *.globalnet.hr.
|
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 Marko Mladenovic Industria designs Kočevje, Slovenija
Član broj: 36491 Poruke: 64 *.yu Via: [es] mailing liste
|
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
Član broj: 9198 Poruke: 45 *.globalnet.hr.
|
Ajde napisi sto ti tocno perl javlja i postaj obje datoteke koje koristis.
|
|
| |
|