Perl进阶知识点(2)

原创
2018/08/09 16:55
阅读数 387

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' ;
展开阅读全文
加载中
点击引领话题📣 发布并加入讨论🔥
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部