【发布时间】:2014-11-05 04:29:27
【问题描述】:
我正在使用 Netbeans IDE 7.4 在 Perl 中编写一个基本的搜索 DNA 序列脚本。该脚本的目的是要求用户键入一串 DNA 序列,然后,该脚本要求用户键入一串核苷酸。最后,脚本应该打印是否找到了键入的核苷酸字符串。 这是我的脚本的以下代码:
#!/usr/bin/perl
use warnings;
use strict;
sub main() {
print "Please, enter your desired DNA sequence: ";
my $dnaInput = <STDIN>;
chomp($dnaInput);
print $dnaInput;
}
main();
当我试图向用户询问其输入 DNA 时,问题就出现了。 Netbeans 根本不给我任何机会获取用户的输入值,即打印“请输入您想要的 DNA 序列”行,但是当我尝试输入 DNA 时,没有任何反应,只是没有响应。 我已经发现了一些类似的问题,例如:
- Find nucleotides in DNA sequence with perl
- How can I get user input without waiting for enter in Perl?
- How do I input an Enter using perl?
- how to get user input and use that value in the script for Perl
但是,他们似乎使用终端来获取用户的输入,我想让我的脚本与 netbeans 一起运行。 欢迎所有建议和答案:)
【问题讨论】: