Perl 标准输入输出

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

1. 标准输入输出

1. 标准输入

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

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

1.2 标准输出

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

1.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

1.2.2 printf

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

常用占位符:

#输出九九乘法表
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";

1.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

3. 颜色输出

• 在写linux脚本时, 我们可能会想让某些输出进行高亮显示, perl 是支持颜色输出的, 但是引入ANSIColor 模块儿
• 颜色输出可以用于print 和 printf 语句

3.1 perl 语言支持的颜色输出

#!/usr/bin/perl

use warnings;

#引入颜色模块儿
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;


printf "\n\n  perl 支持的颜色类型  \n\n";
printf BOLD  "BOLD\n";
printf CLEAR "CLEAR\n";
printf DARK "DARK\n";
printf UNDERLINE "UNDERLINE\n";
printf UNDERSCORE "UNDERSCOPRE\n";
printf BLINK "BLINK\n";
printf REVERSE "REVERSE\n";
printf CONCEALED "CONCELED\n";
printf BLACK "BLACK\n";
printf RED "RED\n";
printf GREEN "GREEN\n";
printf YELLOW "YELLOW\n";
printf BLUE "BLUE\n";
printf MAGENTA "MAGENTA\n";
printf CYAN "CYAN\n";
printf WHITE "WHITE\n";
printf ON_BLACK "ON_BLACK\n";
printf ON_RED "ON_RED\n";
printf ON_GREEN "ON_GREEN\n";
printf ON_YELLOW "ON_YELLOW\n";
printf ON_BLUE "ON_BLUE\n";
printf ON_MAGENTA "ON_MAGENTA\n";
printf ON_CYAN "ON_CYAN\n";
printf ON_WHITE "ON_WHITE\n";

3.2 最佳实践

• 通常会将一个字符串中的默写字符进行高亮显示, 而不会将整个字符串进行高亮显示, 所以封装一个颜色输出的方法.

#!/usr/bin/perl

#只能在linux 中运行
#打印颜色必须引入的模块和设置
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;

&print_color("hello,world,hello,java,hello,js\n","java","hell");


#desc    输出有颜色的字符串
#para1  接收至少两个参数以上，第一个参数为要格式化的字符串，之后的参数为要使用颜色的字符串
sub print_color(){
  die "print_color 方法需要至少两个参数" if @_ <2;
  #获取要格式化颜色的字符串
  my $line = shift @_;

  #获取要高亮的字符串数组
  @patterns = @_;

  #获取要高亮显示的字符串数组，拼接正则模式
  my $spectors = (shift @_) . '+';
  foreach(@_){
     $spectors .= "|$_+";
  }
  #按正则模式进行分组
  my @arrays = split(/($spectors)/, $line);

  #输出结果
  for my $item(@arrays){
      #直接使用@patterns 数组反向匹配，数组内插时，每个字符串直接会有空格
      if("@patterns" =~ $item){
        print BOLD RED $item;
      } else {
        print $item;
      }
  }
}

4. 输入输出重定向

• 输入输出重定向, 需要用到文件句柄等相关知识, 请先了解perl 文件读取, 文件输出, 文件句柄的知识

4.1 输出重定向

• perl 默认输出为终端显示器, 文件句柄为STDOUT, 因此只需要修改STDOUT 指向的文件即可重定向输出

重定向输出到具体文件:

#以追加地方式重新打开标准输出文件句柄, 使标准输出重定向到文件hello.txt 
open STDOUT, ">>", "hello.txt" or die "cannot opern hello.txt";
print "hello,world\n";

重定向输出为不输出:

#以追加地方式重新打开标准输出文件句柄, 使标准输出重定向到文件hello.txt 
open STDOUT, ">>", "/dev/null" or die "cannot redirect standard output";
print "hello,world\n";

4.2 输入重定向

• perl 标准输入为从键盘中读入, 文件句柄为STDIN, 因此只需要修改STDIN句柄指向的文件即可
• 这样使用STDIN时, 就不会再等待用户输入了, 而是直接从文件中读取一行
• 输入重定向一般都不常用

输入重定向脚本:

#!/usr/bin/perl
#重定向标准输入
open STDIN, "<", "io.pl" or die "can not open file: io.pl\n";

#重文件中读取一行
$line = <STDIN>;
printf "%2d %s", 1, $line;

#读取文件第二行
$line = <STDIN>;
printf "%2d %s", 2, $line;

#读取文件第三行
$line = <STDIN>;
printf "%2d %s", 3, $line;

@lines = <STDIN>;
for (0..$#lines){
   printf "%2d %s", $_+3, $lines[$_];

测试输出:

[admin@gds perl]$ ./io.pl 
 1 #!/usr/bin/perl
 2 #重定向标准输入
 3 open STDIN, "<", "io.pl" or die "can not open file: io.pl\n";
 3 
 4 #重文件中读取一行
 5 $line = <STDIN>;
 6 printf "%2d %s", 1, $line;
 7 
 8 #读取文件第二行
 9 $line = <STDIN>;
10 printf "%2d %s", 2, $line;
11 
12 #读取文件第三行
13 $line = <STDIN>;
14 printf "%2d %s", 3, $line;
15 
16 @lines = <STDIN>;
17 for (0..$#lines){
18    printf "%2d %s", $_+3, $lines[$_]; 
19 }