이 웹사이트는 자바스크립트 활성화가 필요합니다.
홈
탐색
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 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()){
}
쓰기
미리보기
불러오는 중...
취소
저장