【perl】专题

1、判断文件是否存在

if(!(-e file_name)) { #普通文件，如果是文件夹，使用-d替换
   exe_body
}

2、脚本传参方式：https://zhuanlan.zhihu.com/p/621583494

3、彩色打印

#！/usr/bin/perl
use Term::ANSIColor
print color "blue";
print "===========";

4、test的参数传递方式

5、文件内容按行读取

open<TC,"<$tc_f"> or die "$tc_f cannot be opened"
while(<TC>){
	$line = $_; # $_ 表示当前循环行的值
}

6、去除行末尾的换行符

chmop($line);

7、 split 用于分割字符串

my @fields = split /separator/, $string;

perl split使用详解

8、next语句，循环体

Perl next 语句用于停止执行从next语句的下一语句开始到循环体结束标识符之间的语句，转去执行continue语句块，然后再返回到循环体的起始处开始执行下一次循环。
next语句详解

9、字符的链接

使用.