perl语言入门总结-第5章-输入输出

读取标准输入

chomp($line = <STDIN>); #去掉后面的换行

while (defined($line = <STDIN>)) {
    print "I saw $line";
}

#上面代码简写
while (<STDIN>) {
    print "I saw $_";
}

来自钻石操作符<>

while (defined($line = <> )){
    chomp($line);
    print "It was $line that I saw!\n";
}

#上面可简写如下
while (<>){
    chomp($_);
    print "It was $_ that I saw!\n";
}

在D盘创建个文件bbb.txt , 运行如下

调用参数

标准输出， 默认是先输出到缓冲区， 然后再写入到磁盘中。

@array = qw(a b c);
print @array;  #输入abc
print "@array\n";#输出 a b c中间会有空格

print操作符，一般可以省略去()的

print (+) #结果为5

$res = print (+)*; #输入为5
print $res; #结果为4

用printf格式化输出

$user ='xiaoxiao';
$date = '2017';
printf "Hello, %s, year is %d",$user,$date;

%g -- 自动选择浮点数据，整数甚至是指数形式
%d -- 代表十进制整数，它会舍去小数之后的数字
%6d -- 指定宽度，输出结果像----42(--符号代表空格)
%s -- 代表字符串， 10%s看起来像 -----wilma
%-10s --如果宽度字段是负数，则会身左对齐, -10%s看起来像 wilma-----
%f -- 会按需要四舍五入，甚至可以指定小数点输出的位数

printf "%12f\n", 6*7 + 2/3; #看起来像 ---42.666667
printf "%12.3f\n", 6*7 + 2/3; #看起来像 ------42.667
printf "%12.0f\n", 6*7 + 2/3; #看起来像 ----------43
printf "%.2f\n", 6*7 + 2/3; #看起来像 0.67