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
my @allow_env_array = split(",",$allow_env);
if ( ! grep /^$env$/, @allow_env_array) {
$args{"code"} = 3;
$args{"msg"} = "env:$env must in ($allow_env)";
return \%args;
}
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
my @keys = ('test','testa');
my %vars = map { $_ => 1 } @keys;
3.0 Hash
3.1 hash判断是否存在key
my @keys = ('test','testa');
my %vars = map { $_ => 1 } @keys;
......
if (exists($vars{$kv})){
......
}else{
Rex::Logger::info("关键字($kv)不存在","error");
}
3.2 删除hash中的key
delete $hash_pids{$kid};
4.0 函数
4.1 返回值问题
当返回数组或者hash的时候,请加\
return \%config;
5.0 条件
5.1 数值和字符串判断
数值用 == ,字符串用 eq
my ($env,$local_name) = @_;
my %args;
if ( "$env" eq "") {
$args{"code"} = 1;
$args{"msg"} = "env is must be not null";
return \%args;
}
6.0 循环
6.1 示例
select 等待,可以精确到毫秒;第4各参数可以是浮点数
for (my $var = 1; $var <= 10 ; $var++) {
select(undef, undef, undef, 1);
}
7.0 MYSQL
7.1 mysql使用案例
注意点: 我一般设置超时时间很长,然后就是使用原生语句查询的时候最好设置utf8的编码
sub query {
my ($env,$sql) = @_;
if ( "$sql" eq "" ) {
Rex::Logger::info("SQL不能为空","error");
return;
}
my $dbh = init($env);
$dbh->do('set SESSION wait_timeout=72000');
$dbh->do('set SESSION interactive_timeout=72000');
$dbh->do("SET NAMES utf8");
my $sth = $dbh->prepare($sql);
$sth->execute() or die( $sth->errstr );
my @return;
while ( my $row = $sth->fetchrow_hashref ) {
push @return, $row;
}
$sth->finish();
$dbh->disconnect();
return @return;
};
7.2 几个重要的参数
mysql_auto_reconnect: 自动重连很重要
$dbh->{RaiseError } = 1;
$dbh->{AutoCommit } = 1;
$dbh->{mysql_auto_reconnect} = 1;
8.0 文件和目录
8.1 遍历目录判断文件是否存在
my @Array ;
if (is_dir($randomDir)) {
opendir DIR, ${randomDir} or die "打开目录失败";
my @filelist = readdir DIR;
foreach my $file (@filelist) {
if ( $file =~ m/.hash$/ ) {
my $hashFile = $randomDir."/".$file ;
Rex::Logger::info("read file: $hashFile");
if ( is_file($hashFile) ) {
my $hash = retrieve($hashFile);
push @Array,$hash;
}else{
Rex::Logger::info("read file : $hashFile is not exist","error");
}
}
}
}
8.2 文件和目录存在判断
e: 文件是否存在 f: 文件是普通文件 d: 文件是目录
8.3 文件操作
- 查询:
一行行处理
#>> 追加写入 >重新写入 <只读方式打开
open f,"<test.txt"; # 文件不存在创建
print f "$var\n";
close f;
多行输出为一个数组
open(DATA,"<import.txt") or die "无法打开数据";
@lines = <DATA>;
print @lines; # 输出数组内容
close(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 :$!" ;
-文件移动
use File::Copy ;
use strict ;
move("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' ;
