This website works better with JavaScript.
Начало
Каталог
lain.church
Помощ
Регистрация
Вход
gashapwn
/
lpst
Наблюдаван
1
Харесван
0
Разклонения
0
Код
Задачи
0
Заявки за сливане
0
Версии
0
Уики
Activity
Преглед на файлове
created MNU.pm and drv.pl
master
gashapwn
преди 3 години
родител
6276952ec3
ревизия
93a646a591
променени са
2 файла
, в които са
добавени 37
реда и са
изтрити 0
реда
Разделен изглед
Diff Options
Show Stats
Download Patch File
Download Diff File
+25
-0
MNU.pm
+12
-0
drv.pl
+ 25
- 0
MNU.pm
Целия файл
@@ -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
Целия файл
@@ -0,0 +1,12 @@
#!/usr/bin/perl
use warnings;
use strict;
use lib "./";
use MNU;
while(MNU->loop()){
}
Write
Preview
Loading…
Отказ
Запис