Ce site fonctionne mieux avec JavaScript.
Accueil
Explorateur
lain.church
Aide
S'inscrire
Connexion
gashapwn
/
lpst
Suivre
1
Ajouter aux favoris
0
Bifurcation
0
Code
Tickets
0
Demandes d'ajout
0
Versions
0
Wiki
Activité
Parcourir la source
created MNU.pm and drv.pl
master
gashapwn
il y a 3 ans
Parent
6276952ec3
révision
93a646a591
2 fichiers modifiés
avec
37 ajouts
et
0 suppressions
Vue séparée
Option de Diff
Voir les Statistiques
Télécharger le Fichier Patch
Télécharger le Fichier des Différences
+25
-0
MNU.pm
+12
-0
drv.pl
+ 25
- 0
MNU.pm
Voir le fichier
@@ -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
Voir le fichier
@@ -0,0 +1,12 @@
#!/usr/bin/perl
use warnings;
use strict;
use lib "./";
use MNU;
while(MNU->loop()){
}
Écrire
Aperçu
Chargement…
Annuler
Enregistrer