Base de datos TXT en Perl (2)

sub select_by_number {

my ($i,@registros,$registro,@recordset,%return_recordset,$registro_cero,@nombres,
$cant_reg,$cant_reg_cero);

open (DATABASE, "<$_[0]") || &error('abrir','archivo');
flock (DATABASE,1)||&error('lock','file');
@registros = <DATABASE>;
close (DATABASE) || &error('cerrar','archivo');

$registro_cero = shift (@registros);
$registro_cero =~ s/n//g;

@nombres = split (/||/, $registro_cero);

$cant_reg_cero = @nombres;

foreach $registro (@registros){
$registro =~ s/n//g;
@recordset = split (/||/, $registro);

if ($recordset[$_[1]] == $_[2]){
$cant_reg = @recordset;
if ($cant_reg != $cant_reg_cero){&error('procces','database- no coinsiden las cantidades de registros')}

while ($i < $cant_reg){
$return_recordset{$nombres[$i]} = $recordset[$i];
$i++;
}
last;
}
}

return (%return_recordset);

}

sub insert {

my ($urldb,@data,@registros,$ultimo_registro,$id,@basura,$new_registro);
($urldb,@data) = @_;

open (DATABASE, "<$urldb") || &error('abrir','archivo');
flock (DATABASE,1)||&error('lock','file');
@registros = <DATABASE>;
close (DATABASE) || &error('cerrar','archivo');

$ultimo_registro = @registros;
$ultimo_registro = $ultimo_registro - 1;

($id,@basura) = split(/||/, $registros[$ultimo_registro]);
$id++;
$new_registro = $id;

foreach $data (@data){
$data =~ s/n//g;
$new_registro .= "||$data";
}

open (DATABASE, ">>$_[0]") || &error('abrir','archivo');
flock (DATABASE,2)||&error('lock','file');
print DATABASE "$new_registron";
close (DATABASE) || &error('cerrar','archivo');

}

Usuarios que han visto este tema también han visto...

- ¿Cómo enviar emails usando Perl y Sendmail?
- Uso del Strict en Perl
- Variables y estructura de los datos en Perl
- Base de datos TXT en Perl
- Generar código HTML

- Versión imprimible de este documento
- Enviar por e-mail este documento