输入提示符转换

kggg

1. >
   
2. A    B　C   D
   
3. >select A
   
4. A>
   
5. A>select B
   
6. B>

复制代码

在输入的时候， 行首都输出一个提示符， 默认是>, 如果使用select 选择输出A B C D后， 行首提示符变成选择的字符加>, 如上面的例子一样， 请教怎么该怎么写。

pitonas

{:2_172:}

1. my $prompt = '> ';
   
2. my $hello  = $prompt;
   
3. print $hello;
   
4. 
   
5. while (<>) {
   
6.     if (/select\s+(\S+)/) {
   
7.         $hello = $1 . $prompt;
   
8.     }
   
9.     print $hello;
   
10. }

复制代码

1. > w
   
2. >
   
3. > select 123
   
4. 123>
   
5. 123>
   
6. 123> select ==
   
7. ==>
   
8. ==>
   
9. ==> select ::
   
10. ::>
    
11. ::>
    
12. ::> select !
    
13. !>
    
14. !>
    
15. !>
    
16. !>
    

复制代码

回复 1# kggg


   

kggg

回复 2# pitonas



谢谢