Using perl Syntax Highlighting
- $contador=0;
- print "Introduce palabras y pulsa intro para el salto de línea, cuando quieras finalizar pulsa ctrl+d\n";
- @contenido=<STDIN>;
- foreach $valores (@contenido)
- {
- $contador++;
- print "$contador: $valores";
- }
- print "¿Desea continuar?si/no -";
- $respuesta=<STDIN>;
- if ($respuesta == "no")
- {
- print "FIN \n";
- break;
- }
- while ($respuesta=="si")
- {
- print "Continuamos\n";
- @contenido=<STDIN>;
- foreach $valores (@contenido)
- {
- $contador++;
- print "$contador: $valores";
- }
- print "¿Desea continuar?si/no -";
- $respuesta=<STDIN>;
- if ($respuesta == "no")
- {
- print "FIN \n";
- break;
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4