Da li je File Handle moze da se lokalizuje na odredjeni paket(objekat)?
npr.
#!/usr/bin/perl -w
use strict;
package files;
sub new {
my $object={@_};
return bless $object;
}
sub otvori{
my $self=shift;
open(FILE,$self->{'file'}) or die 'Nemogu da otvorim fajl $self->{'self'}';
}
sub upisi{
my ($self,$upisi)=@_;
print FILE $upisi;
}
sub zatvori{
my $self=shift;
close FILE;
}
package main;
my $prvifajl=new files;
my $drugifajl=new files;
$prvifajl->otvori('./bezveze.pas');
$drugifajl->otvori('./glupo.c');
$prvifajl->upisi('Neki text');
$drugifajl->upisi('Neki drugi text');
$prvifajl->zatvori;
$drugifajl->zatvori;
Pretpostavljam(nisam sada u mogucnosti da isprobam) da ce 'Neki text' i 'Neki drugi text' biti upisani u
./glupo.c umesto da samo 'Neki drugi text' bude upisano u glupo.c a 'Neki text' u ./bezveze.pas.
Nadam se da shvatate sta hocu da kazem.
Znaci zelim da pristupam nekom File Handlu na primer $self->FILE.Mozda treba nekako da file handle bude u $object hashu?Kako to da uradim?