Implementation of Lucifers Pastime
Nelze vybrat více než 25 témat
Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
|
- #!/usr/bin/perl
-
- use warnings;
- use strict;
-
- use lib "./";
- use NTVL;
- use LPST;
-
- 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;
|