Necesito diseñar en Perl un compresor y un descompresor de archivo de texto
Ayudenmé, por favor.
open(alu , "alumnos.txt");
open(aux ,"+>auxiliar.txt");
while($linea= <alu>)
{
@reg=$linea ;
if($li=pop @reg )
{
@reg =~s/$li/0/g;
print $li;
print aux "@reg";
}
}
open(alu , "alumnos.txt");
open(aux ,"+>auxiliar.txt");
while($linea= <alu>)
{
%reg=$linea;
$linea =%reg;
if ($linea = ~/[A-Z]/)
{
$linea =~s/$linea/0/g;
print $linea;
print aux "$linea";
}
}
close(alu);
close(aux);
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 7 invitados