一个命令行交互脚本

最新推荐文章于 2022-11-07 14:44:08 发布

weixin_34219944

最新推荐文章于 2022-11-07 14:44:08 发布

阅读量117

点赞数

按q键退出，否则显示用户输入。

#! /usr/local/bin/perl5

use strict;
use warnings;

sub test {
    while (1) {
        # display the prompt
        print "sditest> ";

        # Get input form STDIN, this is short for my $get = <STDIN>
        chomp (my $get = <>);

        # Quit when user pressed 'q', otherwise print what ever input
        if ($get eq 'q') { # How to determine user pressed Esc here?
            exit;
        }
        else {
            print $get, "\n";
        }
    }
}

test();