18. Perl 标准输入输出

我会带着你远行 2022-01-27 21:02 350阅读 0赞

默认情况下, Perl 程序标准输入为键盘输入, 标准输出为终端显示器.

## 1. 标准输入 ##

*  使用 可以获取用户从键盘输入的一行信息, Enter 键结束输入, 输入结果包含换行符
 *  通常会使用chomp函数去掉行尾的换行符, 使用标量接收键盘输入, 然后再做后续处理

#常见用法
    print "please input :";
    chomp($line=<STDIN>);
    print "your input is : $line\n";

## 2. 标准输出 ##

*  perl 程序的标准输出为用户终端显示器,可以使用print, printf, say来输出

### 2.1 print ###

*  print 输出一行字符串, 末尾不添加换行符, 如果需要换行末尾需要添加\\n
 *  print 后跟双引号, 可以实现变量内插, 转义字符, 跟单引号则不会进行转换

print "hello\nworld\n";#输出两行,一行hello, 一行world
    print 'hello\nworld\n';#输出一行: hello\nworld\n
    
    #常见用法
    $name="zong";
    @books=("java", "mysql");
    print "name:$name, books:@books\n"; #输出:name:zong, books:java mysql

### 2.2 printf ###

*  printf 是格式化输出字符串,类似于shell 脚本, c语言的printf, 只不过perl语言支持变量内插, 所以printf 就显得没有那么重要了
 *  printf 通常用于格式化串宽度, 对齐方式, 浮点型数字四舍五入等
 *  如果输出%号, 需要使用%%
 *  语法: printf “包含占位符的字符串表达式”, 占位符参数…;

常用占位符:

<table> 
 <thead> 
  <tr> 
   <th align="left">占位符</th> 
   <th align="left">含义</th> 
  </tr> 
 </thead> 
 <tbody> 
  <tr> 
   <td align="left">%ns / %-ns</td> 
   <td align="left">字符串占位符, 宽度最少为n位, 对齐方式: 默认向右, 负号向左</td> 
  </tr> 
  <tr> 
   <td align="left">%nd / %-nd</td> 
   <td align="left">整数占位符, 宽度最少为n位, 对齐方式: 默认向右, 负号向左</td> 
  </tr> 
  <tr> 
   <td align="left">%n.mf / %-m.nf</td> 
   <td align="left">浮点型占位符, 整数宽度最少n位, 小数部分最多m位, 进行四舍五入, 对齐方式: 默认向右, 负号向左</td> 
  </tr> 
 </tbody> 
</table>

#输出九九乘法表
    for($i=1; $i<10; $i++){ 
      for($j=1; $j<$i; $j++){ 
         printf "%-4s%-2d ", "$j*$i=", $i*$j;
      }
      print "\n";
    }
    
    printf "%4s, %2s, %20s\n", "姓名", "年龄", "成绩";
    printf "%4s, %2d, %4.1f\n", "张小三", "20", "540.25";
    printf "%4s, %2d, %4.1f\n", "李四", "18", "606.55";

### 2.3 say ###

*  say 和print 比较类似, 也是输出一行字符串, 不同的是末尾会自动添加换行符, 无须手动添加\\n
 *  双引号内科进行变量内插和转义字符转换, 单引号内不支持, 输出的是原字符串
 *  say 语句不是自带的, 需要引入模块: use feature qw(say);

#!/usr/bin/perl
    #
    use feature qw(say);
    $name="zong";
    @books=("java", "mysql");
    say"name:$name, books:@books"; #输出:name:zong, books:java mysql