30 lines
314 B
Perl
30 lines
314 B
Perl
#!/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;
|