使用 JavaScript能使本网站更好的工作。
首页
探索
lain.church
帮助
注册
登录
gashapwn
/
lpst
关注
1
点赞
0
派生
0
代码
工单
0
合并请求
0
版本发布
0
百科
动态
浏览代码
created MNU.pm and drv.pl
master
gashapwn
3 年前
父节点
6276952ec3
当前提交
93a646a591
共有
2 个文件被更改
,包括
37 次插入
和
0 次删除
分列视图
Diff 选项
显示统计
下载 Patch 文件
下载 Diff 文件
+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()){
}
撰写
预览
正在加载...
取消
保存