从Mac OS上的Perl中获取用户输入文本时，限制字符的数量

Question

我有以下perl代码：

  my($result) = "";
  while($line = <STDIN>) {
    $result .= $line;
  }

我基本上要做的是读取用户输入并将其存储在变量(" $ result"(中。问题在于，当输入太长时，脚本就会卡住，您将不得不ctrl-c取消执行才能出门。听起来好像阅读数量有限。应该有一种更改这种限制的方法。

我拥有的perl版本是：v5.18.2Mac OS：Sierra 10.12.5

感谢您的帮助！

态

这是说明问题的完整代码：

#!/usr/bin/perl -w

print "Input your suggestion:n";
my(@lines) = <STDIN>;
print "Your suggestion is:n";
foreach $l (@lines) {
  print "$l";
}

---

启动脚本，请访问https://en.wikipedia.org/wiki/opioid_use_disorder#cause，然后从"大多数患有阿片类药物使用障碍的人"复制，以"在依赖和用药过度中扮演角色"(太多我无法在此处复制/粘贴的字符，并将内容粘贴到控制台作为输入，您会看到脚本停止在" seemingl代码"。

Answer 1

在perl中，标量变量用于表示信息块。标量可能是指整数，浮点，字符串，对象，二进制信息等。

这是一个通用的变量，没有长度限制。