このサイトはJavaScriptを使用しています
ホーム
エクスプローラー
lain.church
ヘルプ
登録
サインイン
gashapwn
/
lpst
ウォッチ
1
スター
0
フォーク
0
コード
課題
0
プルリクエスト
0
リリース
0
Wiki
アクティビティ
ソースを参照
created MNU.pm and drv.pl
master
gashapwn
3年前
親
6276952ec3
コミット
93a646a591
2個のファイルの変更
、
37行の追加
、
0行の削除
分割表示
差分オプション
統計情報を表示
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()){
}
書き込み
プレビュー
読み込み中…
キャンセル
保存