[ Perl 6 ] 被取代的钻石操作符（<>）

[ Perl 6 ] 被取代的钻石操作符（<>）

There is more than one way to do it.

• Perl 5中，如果要逐行读取一个文件的内容，你可能会写出下面的代码

while (<>) {
  chomp;
  print "It was $_ that I saw.\n";
}

$ perl myscript.pl in

• 但是在Perl 6中，钻石操作符<>已经不再被支持，现在可以用下面的代码来完成上面的功能

for lines() {
  .chomp;
  say "It was $_ that I saw.";
}

$ perl6 myscript.pl6 in

• 这里涉及到一个问题，那就是Perl 6的for循环是惰性的，也就是说当逐行读取一个文件时，它不会先一次性把整个文件读进缓存，这在Perl 5中是一个常见的问题，如果在Perl 5中使用for读取一个文件，通常会因为Memory Out而崩溃
• 对Perl 6程序的解释：
  • lines函数的默认参数是$*ARGFILES，也就是命令行文件参数
  • .chomp;等同于$_.chomp;，在Perl 6中，chomp;被认为是以空参数调用chomp方法