Es decir, si tengo una clase cuyo constructor es tal que así:
Using perl Syntax Highlighting
sub new {
my $clase = shift;
my $self ={};
my $fh = FileHandle->new();
# Abrimos el fichero
if (!($fh->open("+>./datos/datos_1234.dat"))){
print("Fallo al crear el fichero de contactos\n");
$fh=undef;
}else{
print "DEBUG: fichero abierto con éxito\n";
$fh->autoflush(1);
}
# Creamos la estructura del objeto
$self->{manipulador}=$fh;
bless($self, $clase);
return $self;
}
my $clase = shift;
my $self ={};
my $fh = FileHandle->new();
# Abrimos el fichero
if (!($fh->open("+>./datos/datos_1234.dat"))){
print("Fallo al crear el fichero de contactos\n");
$fh=undef;
}else{
print "DEBUG: fichero abierto con éxito\n";
$fh->autoflush(1);
}
# Creamos la estructura del objeto
$self->{manipulador}=$fh;
bless($self, $clase);
return $self;
}
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4
¿Cómo puede otro método de la clase obtener el nombre del fichero 'datos_1234.dat'?
