Using perl Syntax Highlighting
sub new {
my $clase = shift;
my $id = shift;
my $self ={};
$self->{id}=$id;
my $fh = IO::File->new();
my $nombreFich = "datos_$id.dat";
$self->{nombreFich}=$nombreFich;
# Abrimos el fichero
if (!($fh->open("+>./datos/$nombreFich"))){
print("Fallo al crear el fichero de datos\n");
$fh=undef;
}else{
print "Fichero abierto con éxito\n";
$fh->autoflush(1);
}
$self->{manipulador}=$fh;
bless($self, $clase);
return $self;
}
my $clase = shift;
my $id = shift;
my $self ={};
$self->{id}=$id;
my $fh = IO::File->new();
my $nombreFich = "datos_$id.dat";
$self->{nombreFich}=$nombreFich;
# Abrimos el fichero
if (!($fh->open("+>./datos/$nombreFich"))){
print("Fallo al crear el fichero de datos\n");
$fh=undef;
}else{
print "Fichero abierto con éxito\n";
$fh->autoflush(1);
}
$self->{manipulador}=$fh;
bless($self, $clase);
return $self;
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
En el transcurso posterior de la aplicación se guardarán datos de configuración útiles mientras esté abierta la misma. Se pretende que posteriores sesiones de la aplicación puedan recuperar esos datos y no partan de cero. Para ello, al cerrar la aplicación (o al destruir el objeto) se guarda el fichero datos_id.dat renombrado como datos_id.old .
Debo hacer unas modificaciones para que, al crear el objeto:
1) En primer lugar se debe comprobar si existe un fichero datos_id.old .
2.1) SI NO EXISTE, se creará un nuevo fichero datos_id.dat tal como está arriba.
2.2) SI EXISTE, ése es el fichero que hay que tomar: se debe hacer una copia llamada datos_id.dat y abrirla.
¿Alguien puede ayudarme un poco?
Gracias.
