Un Ejemplo: Validando numeros de nit, espero les sirva de práctica.#!/usr/bin/perluse 5.010;use strict;use warnings;print "Ingrese un numero de nit\n";my $nit = ;my $nuevoNit = "";my $suma = 0;my $residuo = 0;my $indexGuion = index($nit,"-");if($indexGuion != -1){ for(my $i = 0; $i < length($nit); $i++) { if($i != $indexGuion) { $nuevoNit = $nuevoNit.substr($nit,$i,1); } } chop($nuevoNit);}else{ chop($nit); $nuevoNit = $nit; }my $longitud = length($nuevoNit);for(my $i = 0; $i < length($nuevoNit) - 1; $i++){ $suma = $suma + (substr($nuevoNit,$i,1) * $longitud); $longitud--;}$residuo = $suma % 11;$residuo = 11 - $residuo;$residuo = $residuo % 11;if($residuo == 10){ if((substr($nuevoNit,length($nuevoNit)-1) eq "k") || (substr($nuevoNit,length($nuevoNit)-1) eq "K")) { print "El numero de nit es valido \n"; }}else{ if($residuo eq substr($nuevoNit,length($nuevoNit)-1)) { print "El numero de nit es valido \n"; }else { print "El numero de nit es invalido \n"; }}#Creado por Edwin Tumax
Este comentario ha sido eliminado por el autor.
YA PRACTICANDO ALGUNOS EJERCICIOS EN PERL-...
saludos de Xela ya fue enviada la tarea, tuve algunas dificultades sobre todo en los últimos 3 incisos debido a que no se especifica exactamente lo que se desea comparar, por lo demás excelente...
Tengo una pregunta ¿La longitud de la información escrita es para todos o como?
Hola Wilber es hasta el salario
Muchas gracias por la aclaración Dra. Ailyn!.
El ejercicio de hoy en clase sobre archivos:print " Ingrese ruta archivo:";chomp($filename= );open(SALIDA,">".$filename);@deportes=("Futbol","Basketball","PingPong","Damas");while (($index,$value) =each @deportes){ print "Deporte$index:$value Usa balon:?"; $usa= ; chop($usa); if ($usa eq "S") { print SALIDA $value."\n"; } }close( SALIDA);
Alguien me puede brindar el correo de la Dra. Ailyn por favor!..
el correo de la Dra Ailyn es afeblese@gmail.com
Buena noche dra. Ailyn me gustaría que me aclara la funcion de chomp y de chop. Muchas gracias de antemano
Un Ejemplo: Validando numeros de nit, espero les sirva de práctica.
ResponderEliminar#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
print "Ingrese un numero de nit\n";
my $nit = ;
my $nuevoNit = "";
my $suma = 0;
my $residuo = 0;
my $indexGuion = index($nit,"-");
if($indexGuion != -1)
{
for(my $i = 0; $i < length($nit); $i++)
{
if($i != $indexGuion)
{
$nuevoNit = $nuevoNit.substr($nit,$i,1);
}
}
chop($nuevoNit);
}else{
chop($nit);
$nuevoNit = $nit;
}
my $longitud = length($nuevoNit);
for(my $i = 0; $i < length($nuevoNit) - 1; $i++)
{
$suma = $suma + (substr($nuevoNit,$i,1) * $longitud);
$longitud--;
}
$residuo = $suma % 11;
$residuo = 11 - $residuo;
$residuo = $residuo % 11;
if($residuo == 10){
if((substr($nuevoNit,length($nuevoNit)-1) eq "k") || (substr($nuevoNit,length($nuevoNit)-1) eq "K"))
{
print "El numero de nit es valido \n";
}
}
else{
if($residuo eq substr($nuevoNit,length($nuevoNit)-1))
{
print "El numero de nit es valido \n";
}else
{
print "El numero de nit es invalido \n";
}
}
#Creado por Edwin Tumax
Este comentario ha sido eliminado por el autor.
EliminarYA PRACTICANDO ALGUNOS EJERCICIOS EN PERL-...
ResponderEliminarsaludos de Xela ya fue enviada la tarea, tuve algunas dificultades sobre todo en los últimos 3 incisos debido a que no se especifica exactamente lo que se desea comparar, por lo demás excelente...
ResponderEliminarTengo una pregunta ¿La longitud de la información escrita es para todos o como?
ResponderEliminarHola Wilber es hasta el salario
ResponderEliminarMuchas gracias por la aclaración Dra. Ailyn!.
ResponderEliminarEl ejercicio de hoy en clase sobre archivos:
ResponderEliminarprint " Ingrese ruta archivo:";
chomp($filename= );
open(SALIDA,">".$filename);
@deportes=("Futbol","Basketball","PingPong","Damas");
while (($index,$value) =each @deportes)
{
print "Deporte$index:$value Usa balon:?";
$usa= ;
chop($usa);
if ($usa eq "S")
{
print SALIDA $value."\n";
}
}
close( SALIDA);
Alguien me puede brindar el correo de la Dra. Ailyn por favor!..
ResponderEliminarel correo de la Dra Ailyn es afeblese@gmail.com
ResponderEliminarBuena noche dra. Ailyn me gustaría que me aclara la funcion de chomp y de chop. Muchas gracias de antemano
ResponderEliminar