是否可以通过扫描从控制台读取而不回显字符？

Question

这是一个示例函数:

    passwordEntry <- function() {
            cat("Enter your password: ")
            pwd <- scan(n=1, what=character(), quiet=TRUE)
            invisible(pwd)
    }

并测试功能:

    >   passwordEntry()
    Enter your password: 
    1: test
    > 

有没有办法压制用户输入的内容？或者换一些其他角色？我编写了一个tcl/tk函数来提示用户输入密码,但它在我们的Linux服务器上不起作用.

以下是Paul的链接示例.这在Linux或Windows上都不起作用(后者可能因为我没有合适的C编译器,所以会考虑到这一点).

getkey3.c

    #include <stdio.h>
    #include <termios.h>
    #include <unistd.h>
    void mygetch ( int *ch ) 
    {
            struct termios oldt, newt;
            tcgetattr ( STDIN_FILENO, &oldt );
            newt = oldt;
            newt.c_lflag &= ~( ICANON | ECHO );
            tcsetattr ( STDIN_FILENO, TCSANOW, &newt );
            *ch = getchar();
            tcsetattr ( STDIN_FILENO, TCSANOW, &oldt );
            return;
    }

我的test.r剧本:

    system('R CMD SHLIB getkey3.c')
    dyn.load("getkey3.so")
    .C("mygetch",as.integer(0))
    dyn.unload("getkey3.so")

我明白了:

    > .C("mygetch",as.integer(0))
    [[1]]
    [1] -1

Answer 1

这篇文章介绍了如何读取各个击键：

检测单个击键

接受的答案使用一小段返回各个击键的 C 代码。然后，您可以捕获密码的击键，并且不向用户回显任何内容，或者可能向用户回显*.