Perl进阶知识点(2)
@(运维Devops知识库)[perl常用知识点]
总结我在的自动化项目当中用到的PERL知识点
项目地址: https://gitee.com/lookingdreamer/RexDeploy_v1
1.0 全局变量 和 私有变量
-
全局变量 our
-
私有变量 my
-
临时全局 local
our $global; my $test; $test = "ccccc"; sub test{ my $test = "aaaa"; $global = "bbbbb"; }
test; print $test ."\n\r".$global;
使用变量必须用关键词限定它 our: "把名字限于某个范围“，其实就是明确声明一个"全局变量"，虽然是在某个模块或者函数里面定义的，外面的也可以访问，如果已经声明过了，再次用"our",表示此处用的是全局的那个，不是同名的私有或者局部变量 my: "把名字和值都限于限于某个范围",简单说，就是只能本层模块或者函数可以看到这个变量，高一层的或者低一层的都看不到的 local: "把值局限于某个范围"，也有叫"动态词法范围",有点不好懂。我的理解，就是本层和本层下层的函数可以看到本层的变量，但是本层上一层的不可以。到底范围是多少，不仅取决于本层的函数，还要看下一层的程序长度和深度，所以叫"动态范围"
2.0 数组
2.1 数组长度
my $len=@ids;
2.2 判断数组是否存在元素
grep 判断数组中是否含有元素,存在就返回true 不存在返回false 格式: grep /^元素$/, @allow_env_array
1my @allow_env_array = split(",",$allow_env); 2if ( ! grep /^$env$/, @allow_env_array) { 3 $args{"code"} = 3; 4 $args{"msg"} = "env:$env must in ($allow_env)"; 5 return \%args; 6}
2.3 删除数组最后一个元素
pop @keysArray;
2.4 数组的增加/删除/修改/查询
-
增加: 从后面追加:
push @app_key_array,$app_key;
从前面追加:unshift @app_key_array,$app_key; -
删除: 删除索引为$deleteIndex的值:
splice(@shared, $deleteIndex, 1)删除最后一个元素:pop @app_key_array -
修改: 为数组赋值:
$app_key_array[0] = "test"; -
查询: 根据循环查询所有数据
for my $key (@list){ print $key; }
2.5 数组转hash
1my @keys = ('test','testa'); 2my %vars = map { $_ => 1 } @keys;
3.0 Hash
3.1 hash判断是否存在key
1my @keys = ('test','testa'); 2my %vars = map { $_ => 1 } @keys; 3...... 4if (exists($vars{$kv})){ 5 ...... 6}else{ 7 Rex::Logger::info("关键字($kv)不存在","error"); 8}
3.2 删除hash中的key
delete $hash_pids{$kid};
4.0 函数
4.1 返回值问题
当返回数组或者hash的时候,请加\
return \%config;
5.0 条件
5.1 数值和字符串判断
数值用 == ,字符串用 eq
1my ($env,$local_name) = @_; 2my %args; 3if ( "$env" eq "") { 4 $args{"code"} = 1; 5 $args{"msg"} = "env is must be not null"; 6 return \%args; 7}
6.0 循环
6.1 示例
select 等待,可以精确到毫秒;第4各参数可以是浮点数
1 for (my $var = 1; $var <= 10 ; $var++) { 2 select(undef, undef, undef, 1); 3 }
7.0 MYSQL
7.1 mysql使用案例
注意点: 我一般设置超时时间很长,然后就是使用原生语句查询的时候最好设置utf8的编码
1sub query { 2 my ($env,$sql) = @_; 3 if ( "$sql" eq "" ) { 4 Rex::Logger::info("SQL不能为空","error"); 5 return; 6 } 7 my $dbh = init($env); 8 $dbh->do('set SESSION wait_timeout=72000'); 9 $dbh->do('set SESSION interactive_timeout=72000'); 10 $dbh->do("SET NAMES utf8"); 11 my $sth = $dbh->prepare($sql); 12 $sth->execute() or die( $sth->errstr ); 13 my @return; 14 while ( my $row = $sth->fetchrow_hashref ) { 15 push @return, $row; 16 } 17 $sth->finish(); 18 $dbh->disconnect(); 19 return @return; 20};
7.2 几个重要的参数
mysql_auto_reconnect: 自动重连很重要
1$dbh->{RaiseError } = 1; 2$dbh->{AutoCommit } = 1; 3$dbh->{mysql_auto_reconnect} = 1;
8.0 文件和目录
8.1 遍历目录判断文件是否存在
1my @Array ; 2if (is_dir($randomDir)) { 3 opendir DIR, ${randomDir} or die "打开目录失败"; 4 my @filelist = readdir DIR; 5 foreach my $file (@filelist) { 6 if ( $file =~ m/.hash$/ ) { 7 my $hashFile = $randomDir."/".$file ; 8 Rex::Logger::info("read file: $hashFile"); 9 if ( is_file($hashFile) ) { 10 my $hash = retrieve($hashFile); 11 push @Array,$hash; 12 }else{ 13 Rex::Logger::info("read file : $hashFile is not exist","error"); 14 } 15 16 } 17 } 18}
8.2 文件和目录存在判断
e: 文件是否存在 f: 文件是普通文件 d: 文件是目录
8.3 文件操作
- 查询:
一行行处理
1#>> 追加写入 >重新写入 <只读方式打开 2open f,"<test.txt"; # 文件不存在创建 3print f "$var\n"; 4close f;
多行输出为一个数组
1open(DATA,"<import.txt") or die "无法打开数据"; 2@lines = <DATA>; 3print @lines; # 输出数组内容 4close(DATA);
-
写入:
#>> 追加写入 >重新写入 <只读方式打开 open f,">>test.txt"; # 文件不存在创建 print f "$var\n"; close f;
-
删除:
#>> 追加写入 >重新写入 <只读方式打开 open f,">test.txt"; # 文件不存在创建 print f "$var\n"; close f;
-
修改:
#>> 追加写入 >重新写入 <只读方式打开 open f,">test.txt"; # 文件不存在创建 print f "$var\n"; close f;
-
修改权限
chmod (mode , fileList) -
重命名 注：创建新文件，旧文件删除，如果已存在newFileName文件则覆盖 。成功返回1
rename (fileName, newFileName) -
删除文件
unlink(filelist) -
文件复制
use File::Copy ; use strict ; copy("1.txt","2.txt")||warn "could not copy files :$!" ;
-文件移动
1use File::Copy ; 2use strict ; 3move("1.txt","2.txt")||warn "could not move files :$!" ;
8.4 目录操作
-
创建目录
mkdir('d:\test',0755)||die "can't create directory: $!" ; -
删除目录
rmdir('d:\perl\wzj')||die "can't remove diretory: $!"; -
在某一目录内找指定文件
use strict ; use File::Find ; sub wanted{ if ($_ eq "311.txt"){ print $File::Find::name ; print "\n" ; } } find &wanted ,"d:/";
-
列出指定目录下所有的文件，包含子目录的内容
use strict ; use File::Find ; sub wanted{ if (-f $File::Find::name){ #判断传入的是文件而不是目录。 print "remove $File::Find::name "; print "\n"; # unlink $File::Find::name ; } } find &wanted,'E:\nero\Content' ;