perl输入输出
#输入
# <> 等于 <STDIN>
# <>读取@ARGV中的参数
# -表示键盘输入
@ARGV =qw/a.txt b.txt -/;
while(<>){
chomp;
print("$_\n");
}
#输出
use 5.010;
#print
#say等于print + 换行
printf "%10d\n", 23 #带格式输出
perl输入输出
#输入
# <> 等于 <STDIN>
# <>读取@ARGV中的参数
# -表示键盘输入
@ARGV =qw/a.txt b.txt -/;
while(<>){
chomp;
print("$_\n");
}
#输出
use 5.010;
#print
#say等于print + 换行
printf "%10d\n", 23 #带格式输出