Este sitio web funciona mejor con JavaScript.
Inicio
Explorar
lain.church
Ayuda
Registro
Iniciar sesión
gashapwn
/
lpst
Seguir
1
Destacar
0
Fork
0
Código
Incidencias
0
Pull Requests
0
Lanzamientos
0
Wiki
Actividad
Explorar el Código
created MNU.pm and drv.pl
master
gashapwn
hace 3 años
padre
6276952ec3
commit
93a646a591
Se han
modificado 2 ficheros
con
37 adiciones
y
0 borrados
Dividir vista
Opciones de diferencias
Mostrar estadísticas
Descargar archivo de parche
Descargar archivo de diferencias
+25
-0
MNU.pm
+12
-0
drv.pl
+ 25
- 0
MNU.pm
Ver fichero
@@ -0,0 +1,25 @@
#!/usr/bin/perl
use warnings;
use strict;
package MNU;
sub prompt(){
printf("> ");
my $in;
$in = <STDIN>;
chomp $in;
return $in;
}
sub loop(){
my $in = prompt();
return 0 unless $in;
return 0 if $in eq "quit";
return 1;
}
return 1;
+ 12
- 0
drv.pl
Ver fichero
@@ -0,0 +1,12 @@
#!/usr/bin/perl
use warnings;
use strict;
use lib "./";
use MNU;
while(MNU->loop()){
}
Escribir
Vista previa
Cargando…
Cancelar
Guardar