@ARGV = qw # larry moe curly #; #强制让钻石操作符只读取这三个文件
print <>; #cat
print sort <>;#sort
printf 格式化输出
printf " %s; in %d days\n", $user,$days_to_go;
@ARGV = qw # larry moe curly #; #强制让钻石操作符只读取这三个文件
print <>; #cat
print sort <>;#sort
printf 格式化输出
printf " %s; in %d days\n", $user,$days_to_go;