bash的EOF有2个功能,一是标记一段文字,二是后续的输入和程序互动,实现自动化。perl吸收了EOF,主要用于标记一段内容。
#!/usr/bin/perl##use strict;my $sum;my $count;while(<STDIN>){$sum+=$_;$count++;if($count>5){last;}}print $sum;
相对单引号以及双引号,EOF 有着更大的优势,里面可以自由使用双引号,单引号,变量。
管道和EOF是bash里面的天才发明。