Public.pm

最新推荐文章于 2024-09-14 14:58:05 发布
最新推荐文章于 2024-09-14 14:58:05 发布
阅读量483 收藏
点赞数
分类专栏： perl 文章标签： 作业 服务器 sql date server cmd
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/hhuxyb/article/details/5211955
版权

package Public;
our(@ISA,@EXPORT);
require Exporter;

@ISA=qw(Exporter);
@EXPORT = qw(&GetCurrentDateTime &GetUUID &DateCheck &GetParam &GetJobState &GetDBHandle
             &WriteDBLog &GetDBResult_Single &GetDBResult &GetJobParam &UpETL_Job &DateCalculate
             &GetProjectList &GetJobList &GetStageList &GetLinkList);

use warnings;
use strict;
use Time::Local;
use Data::UUID;
use DBI;
use DBD::Oracle;


use lib $ENV{"EDWETL_HOME"}."/Scrip/Public";

##--------------------------------------------------------
##--函数名称:GetCurrentDateTime
##--函数说明:得到本机当前的系统时间
##
##--输入参数：
##--        $type:获取类型 date(小写)
##--                       time(小写)
##--                       不传参数
##--返回参数说明：
##--        date(小写)：返回yyy-mm-dd格式的日期
##--        time(小写)：返回hh24:mm:dd格式的机器时间
##--        不传参/或者参数错误:返回默认格式yyyy-mm-dd hh24:mm:dd的时间
##--------------------------------------------------------
sub GetCurrentDateTime()
{
    my ($type) = @_;
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
    my $current = "";
   
    $year += 1900;
    $mon = sprintf("%02d", $mon + 1);
    $mday = sprintf("%02d", $mday);
    $hour = sprintf("%02d", $hour);
    $min  = sprintf("%02d", $min);
    $sec  = sprintf("%02d", $sec);
  
    if(not defined($type)){
        $current = "${year}-${mon}-${mday} ${hour}:${min}:${sec}";
        return $current;
    }elsif($type eq 'date'){
        $current = "${year}-${mon}-${mday}";
        return $current;
    }elsif($type eq 'time'){
        $current = "${hour}:${min}:${sec}";
        return $current;
    }
}

##--------------------------------------------------------
##--函数名称:GetUUID
##--函数说明:生成UUID
##
##--输入参数：
##--        无
##--返回参数说明：
##--        32位UUID
##--------------------------------------------------------
sub GetUUID(){
 my $ug  = new Data::UUID;
 my $str = $ug->create_str();
 $str =~ s/-//g;
 return($str);
}
##--------------------------------------------------------
##--函数名称:DateCheck
##--函数说明:日期合法性检查
##
##--输入参数：
##--        workdate:待检查日期
##--返回参数说明：
##--        $err_code:0为正常，非0异常
##--------------------------------------------------------
sub DateCheck(){
 my ($workdate) = @_;
 return(1) if(not defined($workdate));
 
 $workdate =~ s//..*//;
 $workdate =~ s/-//g;
 
 if(not $workdate =~ /^[0-9]{8}$/){
  return(1);
 }
 
 my $yy = substr($workdate,0,4);
 my $mm = substr($workdate,4,2);
 my $dd = substr($workdate,6,2);
 
 if($yy <1900 or $mm <1 or $mm >12){
  return(1);
 }
 
 if($dd<1 or $dd>31){
  return(1);
 }
 
 if($mm == 4 or $mm == 6 or $mm == 9 or $mm == 11){
   return(1) if($dd == 31);
 }elsif($mm == 2){
  if($yy % 4 == 0 and $yy % 100 != 0 or $yy % 400 == 0){
   return(1) if($dd > 29);
  }else{
   return(1) if($dd > 28);
  }
 }
 
 return(0);
}

##--------------------------------------------------------
##--函数名称:GetParam
##--函数说明:将PARA.cfg的参数信息存放到hash结构中
##--输入参数：
##--        无
##--返回参数说明：
##--        $err_code:错误代码
##--        $err_info:错误信息
##--        /@param:哈希数组的引用
##--                {'DBNAME' = PARA.DBNAME ;
##--                'DBUSR' = PARA.DBUSR ;
##--                'DBPWD' = PARA.DBUSR ;
##--                .
##--                .
##--                }
##--------------------------------------------------------
sub GetParam(){
  my (%param,$name,$value);
  open(PARA,$ENV{"EDWETL_HOME"}."/Script/CFG/PARA.cfg") or return(00000002,"打开参数文件".$ENV{"EDWETL_HOME"}."/Script/CFG/PARA.cfg失败");
  while(<PARA>){
    next if($_!~/=/);
   ($name,$value)=split(/=/,$_);
   $value=~s/ |/n|
//g;
   chomp($value);
   $param{$name} = $value;
  }
  close(PARA);

  return('00000000','成功获取参数信息',/%param);
}

##--------------------------------------------------------
##--函数名称:GetDBHandle
##--函数说明:返回数据库连接句柄
##--输入参数说明：
##--        $db:数据库名
##--        $usr:数据库连接用户，可选
##--        $pwd:数据库连接密码，可选
##--        $auto_commit:可选
##--返回参数说明：
##--        $err_code:错误码
##--        $err_info:错误信息
##--        $dbh:数据库连接句柄
##--------------------------------------------------------
sub GetDBHandle(){
 my ($db,$usr,$pwd,$auto_commit) = @_;
 my $dbh;
 return(30000001,"数据库名没有指定") if (not defined($db));
 $auto_commit = 1 if(not defined($auto_commit));
 return(30000001,"auto_commit参数错误") if ($auto_commit != 0 and $auto_commit != 1);
 
 $dbh = DBI->connect("DBI:Oracle:$db", $usr, $pwd, { AutoCommit => $auto_commit, PrintError => 1, RaiseError => 0 } ) or return(20000001,"不能连接数据库 : $DBI::errstr");
 
 return(00000000,"获取数据库 $db 连接句柄成功",$dbh);
}

##--------------------------------------------------------
##--函数名称:GetJobParam
##--函数说明    :根据作业名获取作业参数
##--输入参数：
##--        $job_name
##--返回参数说明：
##--        $err_code:错误代码
##--        $err_info:错误信息
##--        /%param:哈希数组的引用
##--                {'DBNAME' = PARA.DBNAME ;
##--                'DBUSR' = PARA.DBUSR ;
##--                'DBPWD' = PARA.DBUSR ;
##--                .
##--                .
##--                }
##--------------------------------------------------------
sub GetJobParam(){
  my ($job_nm) = @_;
  return(30000001,"作业名没有指定") if(not defined($job_nm));
 
  my ($sql_str,$err_code,$err_info,$dbh,$sth,$GParams,%param_key,%param_val);
 
 ($err_code,$err_info,$GParams)=&GetParam();
 return($err_code,$err_info) if ($err_code != 0);
  ($err_code,$err_info,$dbh) = &GetDBHandle($$GParams{"DBNAME"},$$GParams{"DBUSR"},$$GParams{"DBPWD"});
 return($err_code,$err_info) if ($err_code != 0);
 

 
 $sql_str = "select a.param_nm,a.param_val,b.torder"
            ." from  job_param a,job_rela_param b,etl_job c"
            ." where a.job_id=b.job_id and a.param_id=b.param_id  and b.job_id=c.job_id  and c.job_nm='$job_nm' and b.param_type='JOB'"
             ." union"
             ." select  a.param_nm,a.param_val,b.torder"
             ." from public_param a,job_rela_param b,etl_job c "
             ." where  a.param_id=b.param_id  and b.job_id=c.job_id  and c.job_nm='$job_nm'  and b.param_type='PUB' "
             ." order by torder asc";
 
 $sth = $dbh->prepare($sql_str) or $dbh->disconnect() and return(20000002,"无法准备SQL语句 $sql_str ".$dbh->errstr());
 $sth->execute() or $dbh->disconnect() and return(20000002,"无法执行SQL语句 ".$dbh->errstr());
 
 while(my @row = $sth->fetchrow_array()){
  $param_key{$row[2]} = $row[0];
  $param_val{$row[0]} = $row[1];
 }
 
 $sth->finish();
 
 $dbh->disconnect();
 
 return('00000000','成功获取作业自定义参数',/%param_key,/%param_val);
}

##--------------------------------------------------------
##--函数名称:GetJobState
##--函数说明:获取DS Job状态
##--输入参数：
##--        $proj_nm:项目名称
##--        $job_nm:Job名称
##--        $ds_svr:DS服务器IP
##--        $ds_usr:DS服务器用户
##--        $ds_pwd:DS服务器密码
##--返回参数：
##--        $status:0-OK
##--                1-RUNNING
##--                2-WARNINGS
##--                3-NOT RUNNING
##--                4-FAILED
##--                5-COMPILED
##--                6-RESET
##--                9-OTHER
##--------------------------------------------------------
sub GetJobState(){
 my ($proj_nm,$job_nm,$ds_svr,$ds_usr,$ds_pwd) = @_;
 return(30000001) if(not defined($proj_nm) or not defined($job_nm) or not defined($ds_svr) or not defined($ds_usr) or not defined($ds_pwd));
 
 my $status;
 
 my $jobinfo = "dsjob -server $ds_svr -user $ds_usr -password $ds_pwd"
              ." -jobinfo $proj_nm $job_nm"
              ;
 open(JOBINFO,$jobinfo.'| ');
 
 while(<JOBINFO>){
  chomp($_);
 
  my ($info_tp,$info) = split(/:/,);
 
  if($info_tp =~ /Job Status/){
   if($info =~ /RUNNING/){
    if($info =~ /NOT/){
     $status = 3;
    }else{
     $status = 1;
    }
   }
  
   $status = 0 if($info =~ /OK/);
   $status = 2 if($info =~ /WARNINGS/);
   $status = 4 if($info =~ /FAILED/);
   $status = 6 if($info =~ /RESET/);
  }else{
   $status = 5;
  }
 
  last if(defined($status));
 }
 
 $status = 9 if(not defined($status));
 close(JOBINFO);
 
 return($status);
}


##--------------------------------------------------------
##--函数名称:WriteDBLog
##--函数说明:写知识库日志
##--输入参数说明：
##--        $workdate:workdate
##--        $prog_tp:程序类型 0-DS Job 1-存储过程 2-Perl程序 3-可执行文件
##--        $prog_nm:程序名
##--        $info_tp:日志信息类型 I-正常 W-警告 E-错误
##--        $error_cd:错误码
##--        $info_context:日志信息内容
##--返回参数说明：
##--        $err_code:错误码
##--        $err_info:错误信息
##--------------------------------------------------------
sub WriteDBLog(){
    my ($workdate,$prog_tp,$prog_nm,$info_tp,$error_cd,$info_context) = @_;
    return(30000001,'workdate参数没有定义') if (not defined($workdate));
    return(30000001,'程序名称没有定义') if (not defined($prog_nm));
    return(30000001,"日期参数不合法：$workdate") if(&DateCheck($workdate) == 1 and defined($workdate));
   
    $workdate = substr($workdate,0,4).'-'.substr($workdate,4,2).'-'.substr($workdate,6,2) if (length($workdate) == 8);
   
    my ($err_code,$err_info,$GParams,$dbh,$machine_tm);
   
    ($err_code,$err_info,$GParams)=&GetParam();
    return($err_code,$err_info) if($err_code != 0);
    ($err_code,$err_info,$dbh) = &GetDBHandle($$GParams{"DBNAME"},$$GParams{"DBUSR"},$$GParams{"DBPWD"},0);
    return($err_code,$err_info) if($err_code != 0);
 
    $machine_tm = &GetCurrentDateTime();
   
    $info_context =~ s//'//g;
    my $sql_str = "INSERT INTO prog_log VALUES(to_date('$machine_tm','yyyy-mm-dd hh24:mi:ss'),to_date('$workdate','yyyy-mm-dd'),'$prog_tp','$prog_nm','$info_tp','$error_cd','$info_context')";
    $dbh->do($sql_str) or return(20000003,"日志写入失败".$DBI::errstr);
    $dbh->commit();
    $dbh->disconnect();
    return('00000000','写入日志成功');
}

##--------------------------------------------------------
##--函数名称:UpETL_Job
##--函数说明:更新作业状态
##--输入参数说明：
##--        $job_nm:job_nm
##--        $starttime:开始时间,传""为不修改
##--        $endtime:结束时间,传""为不修改
##--        $jobstate:作业状态,传""为不修改
##--        $txdate:数据日期,传""为不修改
##--        $sessionid:传标志,需要修改传Y,其他为不作修改
##--返回参数说明：
##--        $err_code:错误码
##--        $err_info:错误信息
##--------------------------------------------------------
sub UpETL_Job(){
    my ($job_nm,$starttime,$endtime,$jobstate,$txdate,$sessionid) = @_;
   
    my $nullflag="";
    if(! defined($starttime) || length($starttime)==0){
      $starttime="";
    }else{
      $starttime="starttime=to_date('".$starttime."','yyyy-mm-dd hh24:mi:ss')";
      $nullflag=",";
    }
   
    if(! defined($endtime) || length($endtime)==0){
      $endtime="";
    }else{
      $endtime=$nullflag."endtime=to_date('".$endtime."','yyyy-mm-dd hh24:mi:ss')";
      $nullflag=",";
    }
   
    if(! defined($jobstate) || length($jobstate)==0){
      $jobstate="";
    }else{
      $jobstate=$nullflag."jobstate='".$jobstate."'";
      $nullflag=",";
    }
   
    if(! defined($txdate) || length($txdate)==0){
      $txdate="";
    }else{
      $txdate=$nullflag."txdate='".$txdate."'";
      $nullflag=",";
    }
   
    my $flag;
    if(defined($sessionid) && $sessionid eq "Y"){
      $flag="Y";
      $sessionid=$nullflag."sessionid=sessionid+1";
    }else{
      $flag="N";
      $sessionid="";
    }
   
    my $sql_str="update etl_job set $starttime $endtime $jobstate $txdate $sessionid where job_nm='$job_nm'";
   
    my ($err_code,$err_info,$GParams)=&GetParam();
    return($err_code,$err_info) if($err_code != 0);
    my $dbh;
    ($err_code,$err_info,$dbh) = &GetDBHandle($$GParams{"DBNAME"},$$GParams{"DBUSR"},$$GParams{"DBPWD"},0);
    return($err_code,$err_info) if($err_code != 0);
   
    if($dbh->do($sql_str)){
      $dbh->commit();
    }else{
      return(20000004,"更新作业$job_nm的状态失败");
      $dbh->disconnect();
    }
    print "error/n";
    ##当为作业完成时需要同时将信息转移到etl_log中
    if($flag eq "Y"){
      $sql_str="insert into etl_log(job_id,starttime,endtime,txdate,jobstate,sessionid) select job_id,starttime,endtime,txdate,jobstate,sessionid from etl_job where job_nm='$job_nm'";
      $dbh->do($sql_str);
      $dbh->commit();
      $dbh->disconnect();
      return('00000000','更新成功');
    }else{
      $dbh->disconnect();
      return('00000000','更新成功');
    }
}
##--------------------------------------------------------
##--函数名称:GetDBResult_Single
##--函数说明:根据传入的查询语句返回一条记录
##--输入参数说明：
##--        $sql_str:查询语句
##--返回参数说明：
##--        $err_code:错误码
##--        $err_info:错误信息
##--        @result:结果集
##--------------------------------------------------------
sub GetDBResult_Single{
   my ($sql_str) = @_;
  
   return(30000001,"传入sql为空") if($sql_str eq "");

   my ($err_code,$err_info,$GParams)=&GetParam();
   my $dbh;
   ($err_code,$err_info,$dbh) = &GetDBHandle($$GParams{"DBNAME"},$$GParams{"DBUSR"},$$GParams{"DBPWD"});

   my $sth = $dbh->prepare($sql_str) or return(20000002,"执行sql错误");
   if(!($sth->execute())){
     $sth->finish();
     $dbh->disconnect;
     return(20000002,"执行sql错误");
   }
   my @result;
   if(!(@result= $sth->fetchrow_array())){
     $sth->finish();
     $dbh->disconnect;
     return(20000002,"查询无结果");
   }
  
   $sth->finish();
   $dbh->disconnect;
  
   return (00000000,"成功获取",@result);
}

##--------------------------------------------------------
##--函数名称:GetDBResult
##--函数说明:根据传入的查询语句返回多条记录的引用
##             通过引用构造多维数据组
##--输入参数说明：
##--        $sql_str:查询语句
##--返回参数说明：
##--        $err_code:错误码
##--        $err_info:错误信息
##--        /@result:结果集
##--使用例子
#my ($err_cod,$err_info,$res)=&GetDBResult($sql);
#for(my $i=0;$i<@$res;$i++){
#  for(my $j=0;$j<@{$$res[$i]};$j++){
# print ${$$res[$i]}[$j]."/n";
#  }  
#}
##--------------------------------------------------------
sub GetDBResult{
   my ($sql_str) = @_;
   return(30000001,"传入sql为空") if($sql_str eq "");
  
   my ($err_code,$err_info,$GParams)=&GetParam();
   return($err_code,$err_info) if($err_code != 0);
   my $dbh;
   ($err_code,$err_info,$dbh)= &GetDBHandle($$GParams{"DBNAME"},$$GParams{"DBUSR"},$$GParams{"DBPWD"});
   return($err_code,$err_info) if($err_code != 0); 
     
   my $sth = $dbh->prepare($sql_str);
   if(! ($sth->execute())){
     $sth->finish();
     $dbh->commit; 
     $dbh->disconnect;
     return(20000002,"执行sql错误");
   }
   my @resualt;
   my $i=0;
   while(my @Tresualt= $sth->fetchrow_array()){
     $resualt[$i]=/@Tresualt;
     $i++;
   }
  
   return (20000002,"查询无数据") if($i==0);
  
   $sth->finish();
   $dbh->disconnect;
   return (00000000,"成功获取",/@resualt);
}


##--------------------------------------------------------
#--函数名称: DateCalculate()
#--依赖模块: Time::Local
#--运行环境：不限
#--函数说明: 对日期时间进行加减操作
#--输入参数说明：
#--    $date: "yyyy-mm-dd hh24:mi:ss"格式的日期,例如"2009-09-09 12:21:23"
#--    $secs: 秒数(为负数时就进行日期减操作)
#--返回参数说明：
#--    $err_code: 错误码
#--    $err_info: 错误信息
#--    $date: 格式为"yyyy-mm-dd hh24:mi:ss"的返回日期
##--------------------------------------------------------
sub DateCalculate(){
  my ($date,$secs)=@_;
  return(30000001,"日期参数未定义") if(not defined($date));
  return(30000002,"日期格式错误,需传入格式为yyyy-mm-dd hh24:mi:ss") if($date!~/^[0-9]{4}/-[0-1][0-9]/-[0-3][0-9] [0-5][0-9]:[0-5][0-9]:[0-5][0-9]$/);
  return(30000001,"参数秒未定义") if(not defined($secs));
  return(30000002,"秒格式错误,需传入参数为整形数值(可以为负值)") if($secs!~/^/-?/d+$/);
 
  my $year=substr($date,0,4)-1900;
  my $month=substr($date,5,2)-1;
  my $day=substr($date,8,2);
  my $hour=substr($date,11,2);
  my $minute=substr($date,14,2);
  my $sec=substr($date,17,2);
 
  ##月份hash表
  my %months=('Jan'=>'01','Feb'=>'02','Mar'=>'03','Apr'=>'04','May'=>'05','Jun'=>'06','Jul'=>'07','Aug'=>'08','Sep'=>'09','Oct'=>'10','Nov'=>'11','Dec'=>'12');
 
  my ($week,$Tmonth,$time,$rdate);
  $time = timelocal($sec,$minute,$hour,$day,$month,$year);
  $rdate=scalar localtime($time+$secs);
  ($week,$Tmonth,$day,$time,$year)=split(/ +/,$rdate);
  $month=$months{$Tmonth};
 
  my $returnDate=sprintf("%04d-%02d-%02d %s",$year,$month,$day,$time);
  return(00000000,"日期操作成功",$returnDate)
}

##--------------------------------------------------------
#--函数名称: GetProjectList()
#--依赖模块: 无
#--运行环境：DS命令环境下
#--函数说明: 获取某个服务器下的所有工程清单
#--输入参数说明：
#--    $Server:服务器
#--    $USER:服务器
#--    $PWD:服务器
#--返回参数说明：
#--    $err_code: 错误码
#--    $err_info: 错误信息
#--    /@JobList: 作业清单

##--------------------------------------------------------
sub GetProjectList(){
  my ($Server,$USER,$PWD,$Project)= @_;
  return (30000002,"DS服务器参数不能为空") if(not defined($Server));
  return (30000002,"用户名参数不能为空") if(not defined($USER));
  return (30000002,"口令参数不能为空") if(not defined($PWD));
 
  my ($err_code,$err_info,$cmd_str,@ProjectList);
  $cmd_str="dsjob -server $Server -user $USER -password $PWD -lprojects";
  open(DS,$cmd_str.'| ') or return (40000001,"执行命令$cmd_str失败");
  while(<DS>){
    chomp($_);
    push(@ProjectList,$_);
  } 
  close(DS); 
  return (00000000,"成功获取工程$Project的作业清单",/@ProjectList);
}

##--------------------------------------------------------
#--函数名称: GetJobList()
#--依赖模块: 无
#--运行环境：DS命令环境下
#--函数说明: 获取某个工程下的作业清单
#--输入参数说明：
#--    $Server:服务器
#--    $USER:服务器
#--    $PWD:服务器
#--    $Project_NM:工程名称
#--返回参数说明：
#--    $err_code: 错误码
#--    $err_info: 错误信息
#--    /@JobList: 作业清单

##--------------------------------------------------------
sub GetJobList(){
  my ($Server,$USER,$PWD,$Project_NM)= @_;
  return (30000002,"DS服务器参数不能为空") if(not defined($Server));
  return (30000002,"用户名参数不能为空") if(not defined($USER));
  return (30000002,"口令参数不能为空") if(not defined($PWD));
  return (30000002,"DS 工程参数不能为空") if(not defined($Project_NM));
 
  my ($err_code,$err_info,$cmd_str,@JobList);
  $cmd_str="dsjob -server $Server -user $USER -password $PWD -ljobs $Project_NM";
  open(DS,$cmd_str.'| ') or return (40000001,"执行命令$cmd_str失败");
  while(<DS>){
    chomp($_);
    push(@JobList,$_);
  } 
  close(DS); 
  return (00000000,"成功获取工程$Project_NM的作业清单",/@JobList);
}


##--------------------------------------------------------
#--函数名称: GetStageList()
#--依赖模块: 无
#--运行环境：DS命令环境下
#--函数说明: 获取某个DS作业的Stage清单
#--输入参数说明：
#--    $Server:服务器
#--    $USER:服务器
#--    $PWD:服务器
#--    $Project_NM:工程名称
#--    $Job_NM:作业名
#--返回参数说明：
#--    $err_code: 错误码
#--    $err_info: 错误信息
#--    /@StageList: 作业清单

##--------------------------------------------------------
sub GetStageList(){
  my ($Server,$USER,$PWD,$Project_NM,$Job_NM)= @_;
  return (30000002,"DS服务器参数不能为空") if(not defined($Server));
  return (30000002,"用户名参数不能为空") if(not defined($USER));
  return (30000002,"口令参数不能为空") if(not defined($PWD));
  return (30000002,"DS 工程参数不能为空") if(not defined($Project_NM));
  return (30000002,"DS 作业名参数不能为空") if(not defined($Job_NM));
 
  my ($err_code,$err_info,$cmd_str,@StageList);
  $cmd_str="dsjob -server $Server -user $USER -password $PWD -lstages $Project_NM $Job_NM";
  open(DS,$cmd_str.'| ') or return (40000001,"执行命令$cmd_str失败");
  while(<DS>){
    chomp($_);
    push(@StageList,$_);
  } 
  close(DS); 
  return (00000000,"成功获取作业$Job_NM的Stage清单",/@StageList);
}

##--------------------------------------------------------
#--函数名称: GetLinkList()
#--依赖模块: 无
#--运行环境：DS命令环境下
#--函数说明: 获取某个Stage的link清单
#--输入参数说明：
#--    $Server:服务器
#--    $USER:服务器
#--    $PWD:服务器
#--    $Project_NM:工程名称
#--    $Job_NM:作业名
#--    $Stage_NM:Stage名
#--返回参数说明：
#--    $err_code: 错误码
#--    $err_info: 错误信息
#--    /@StageList: 作业清单

##--------------------------------------------------------
sub GetLinkList(){
  my ($Server,$USER,$PWD,$Project_NM,$Job_NM,$Stage_NM)= @_;
  return (30000002,"DS服务器参数不能为空") if(not defined($Server));
  return (30000002,"用户名参数不能为空") if(not defined($USER));
  return (30000002,"口令参数不能为空") if(not defined($PWD));
  return (30000002,"DS 工程参数不能为空") if(not defined($Project_NM));
  return (30000002,"DS 作业名参数不能为空") if(not defined($Job_NM));
  return (30000002,"DS Stage名参数不能为空") if(not defined($Stage_NM));
 
  my ($err_code,$err_info,$cmd_str,@LinkList);
  $cmd_str="dsjob -server $Server -user $USER -password $PWD -llinks $Project_NM $Job_NM $Stage_NM";
  open(DS,$cmd_str.'| ') or return (40000001,"执行命令$cmd_str失败");
  while(<DS>){
    chomp($_);
    push(@LinkList,$_);
  } 
  close(DS); 
  return (00000000,"成功获取作业$Stage_NM的Link清单",/@LinkList);
}

1;
__END__

hhuxyb
关注
专栏目录
本地yum源无法使用 ，rpm --import public.gpg.key
weixin_30662011的博客
05-17 2859
一次重装CentOS7系统后，挂载光驱并制作成本地yum源却无法使用yum进行安装，这TM着实有点闹心。o(>﹏<)o 案发现场： [root@crntos7-server ~]# yum -y install /mnt/Packages/vsftpd-3.0.2-22.el7.x86_64.rpm You have enabled checking of packag...
android 命令pm 全称 packagemanager,Android.content.pm.PackageManager--（转载）
weixin_35529833的博客
05-31 1311
http://blog.csdn.net/timchen6824/article/details/6415231Android.content.pm.PackageManager用于检索安装到设备上的应用程序的各种信息。可以通过getPackageManager()获得实例Public abstract List queryIntentActivities(Intent intent,int fl...
解决 Can‘t locate CGI.pm in @INC (you may need to install the CGI module)
weixin_45808445的博客
05-22 3251
运行 sudo apt install libcgi-ajax-perl sudo apt install libcgi-application-perl 即可。
public.PanelError: 面板运行时发生错误: ModuleNotFoundError(“No module named
qq_36957701的博客
01-10 2150
登录ssh 执行:btpip install paramiko -I
android.content.pm.ApplicationInfo
lifeqiuzhi521的博客
06-30 2575
// // Source code recreated from a .class file by IntelliJ IDEA // (powered by Fernflower decompiler) // package android.content.pm; import android.content.Context; import android.os.Parcel; import ...
java.lang.IllegalArgumentException: android.content.pm.PackageManager$NameNotFoundException
Chents
03-29 2187
原因： 当插件化hook跳转Activity成功，还需要去检查activity信息是否存在。如果不处理就会报错。 10-25 19:32:30.867 8754 8754 E AndroidRuntime: Caused by: java.lang.IllegalArgumentException: android.content.pm.PackageManager$NameNotFoundE...
Android FileProvider配置报错android.content.pm.ProviderInfo.loadXmlMetaData问题
冷冷清清里风风火火是我
05-09 3012
项目中配置FileProvider，运行报错android.content.res.XmlResourceParser错误。强制更新，下载了最新的包之后打开报错： java.lang.NullPointerException:Attempt to invoke virtual method 'android.content.res.XmlResourceParser android.content.pm.ProviderInfo.loadXmlMetaData(android.content.pm.Pa.
[error][/usr/share/perl5/vendor_perl/MHA/SSHCheck.pm, ln63] Permission denied (publickey,gssapi-ke
gsforget321的博客
09-26 4108
mysql mha
android 7.0 手机android.content.res.XmlResourceParser android.content.pm.ProviderInfo.loadXmlMetaData
qq_34911476的博客
06-03 4144
1. 报错 Attempt to invoke virtual method 'android.content.res.XmlResourceParser android.content.pm.ProviderInfo.loadXmlMetaData(android.content.pm.PackageManager, java.lang.String)' on a null object re...
在grid安装过程执行root.sh报错crsconfig_lib.pm line 9379
Kay的博客
05-14 3118
环境CentOS 7.5 Oracle 11.2.0.4 RAC 故障： 在grid安装过程执行root.sh脚本时报错 firstnode configuration failed at /u01/app/11.2.0/grid/crs/install/crsconfig_lib.pm line 9379 firstnode configuration failed at /u01/app/11...
Nager.PublicSuffix：.NET publicsuffix域解析器
02-04
Nager.PublicSuffix TLD激增使得难以检查域名是否有效。 该项目使用publicsuffix.org（一个已知的公共域后缀（TLD）的列表）规则来...PM> install-package Nager.PublicSuffix 在线测试工具 您可以在此处尝试使用逻辑
java am pm_【am.pm正确时间书写格式】作文写作问答 - 归教作文网
weixin_28723171的博客
02-16 9358
am,pm的正确写法am，pm的正确写法为以下几种1、a.m.，p.m.2、A.M.，P.M.3、am，pm4、AM，PM在问题中的写法只有9.30a.m. 和9.30AM是正确的。时间不能是冒号双点， am pm 保持全大写或者全小写，全打点或者全不打点。大小写一起和一个单点都是错误的。扩展资料：AM(ante meridiem的缩写)通常出现在12小时制式时间中，指一天中的午前(12点之前，即...
java 有pm2,pm2 实践指南
weixin_29341747的博客
03-13 841
前言pm2 是 node 进程管理工具，可以利用它来简化很多 node 应用管理的繁琐任务，如性能监控、自动重启、负载均衡等，因为在工作中遇到服务器重启后，需要一个个去重新启动每个服务，这样不仅繁琐、效率低，而且容易遗忘开启一些服务，所以特地对 pm2 进行一次比较全面的学习+实践，在解决工作问题的同时，进行一次较完整的学习实践总结，现分享给大家。博客 github地址为：github.com/f...
git@github.com:Permission denied(publickey).fatal: Could not read form remote repository错误
学习是一种信仰的博客
02-12 1657
文章目录前言问题分析配置客户端配置服务端验证 前言 在使用goland从github下载依赖时(git clone github.com/gin-gonic/gin)出现git@github.com:Permission denied(publickey).fatal: Could not read form remote repository错误。 问题分析 Permission denied(publickey)：没有权限 说明github和本地git没有生成ssh key或者ssh key不匹配 配置
基于高通主板的ARM架构服务器
D404234的博客
09-11 1401
但高通在服务器市场面临激烈竞争，联发科在手机芯片市场挑战高通，苹果加快自研芯片使用步伐给高通压力，服务器市场英特尔占主导，高通要成功需克服诸多困难。高通在服务器芯片领域面临挑战，有收购与专利问题，博通收购后高通削减“非核心业务”支出，Intel 市占率高且 Arm 生态和软件不完善，高通在 Arm 服务器芯片市场进展不大，2018 年高通服务器芯片部门裁员约 280 名，占部门总人数一半左右，业务前景充满不确定性。易获取部署，众多供应商，90%主流软件适配，兼容性强，常见系统和程序可顺畅运行。
Windows电脑A远程连接电脑B
weixin_44750594的博客
09-11 258
3. 打开电脑A，如果默认没有搜索图标出来，可以利用Windows+X调用出搜索命令，之后输入“远程桌面连接”，打开远程桌面把B电脑的IP输入。ip看以无线局域网适配器 WLAN里面的本地链接IPV6地址：X.X.X.X（这是那个地址的格式就是，例如为10.222.1.2）4. 如果电脑B有密码和名字，把电脑的名字和电脑密码输入给A，这样就可以连接。
怎么选择适合的服务器
最新发布
2403_86998484的博客
09-14 456
大家都知道，不管是公司还是个人，在数字化浪潮已经席卷全球的环境下，大家对服务器的需求是日渐增长的。很多人在买服务器的时候，多少都有点选择困难，今天我们就来对比下物理服务器和弹性云服务器，看看选哪个更省心。业务规模：如果你的业务还在起步阶段，或者只是想自己倒腾点东西，比如建steam游戏的服务器、建个人博客、论坛等，那么云服务器应该更适合你。想象一下，物理服务器就像你家的老式冰箱，虽然样子有点过时，但性能稳定，用起来心里踏实。而弹性云服务器，就像是你的智能手机，随时随地，想怎么用就怎么用。
828华为云征文 | 华为云X实例服务器上部署知识图谱项目的详细指南
cooldream2009的博客
09-11 1444
知识图谱作为数据整合、语义分析和人工智能的重要基础，逐渐被广泛应用于各类领域。其通过结构化数据和关系映射，帮助用户更好地理解数据背后的意义。本文将详细介绍如何在华为云X实例服务器上部署一个完整的知识图谱项目，涵盖开发环境JDK、Tomcat应用服务器、Virtuoso图数据库以及MySQL关系型数据库的安装与配置。结合实例的硬件配置，我们将讨论其性能表现，帮助读者理解如何高效利用云服务器资源。
【银河麒麟高级服务器操作系统】虚拟机服务器执行systemctl提示timeout——分析全过程及处理建议
银河麒麟操作系统的博客
09-10 1302
了解全新产品，请点击访问产品信息产品名称银河麒麟高级服务器操作系统（海光版）V10ISO环境信息主机型号虚拟机systemd崩溃，后续systemd连接异常，systemctl失败。需要查明systemd崩溃原因根据sosreport中的messages信息，systemd发生了coredump，收到了信号SIGQUIT。见图2.1.1图2.1.1使用gdb分析systemd的coredump文件，显示systemd是收到了SIGQUIT后发生的coredump。并未调用错误处理函数。
Mon Jul 24 10:24:49 2023 - [info] Reading application default configuration from /etc/mha/mha.cnf.. Parameter name Slave01 -s Slave02 --user is invalid! at /usr/local/share/perl5/MHA/SSHCheck.pm line 148.
07-25
根据引用\[1\]和引用\[2\]的内容，你的配置文件中的参数名"Slave01 -s Slave02 --user"是无效的。这可能是由于你在配置文件中输入了错误的参数。你需要修改配置文件，将参数名更正为有效的参数。然后保存并退出配置文件。之后，你可以再次运行验证命令"masterha_check_ssh -conf=/etc/masterha/app1.cnf"来检查是否修复了错误。 #### 引用[.reference_title] - *1* [[error][/usr/share/perl5/vendor_perl/MHA/SSHCheck.pm, ln63] Permission denied (publickey,gssapi-ke](https://blog.csdn.net/gsforget321/article/details/120488723)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control_2,239^v3^insert_chatgpt"}} ] [.reference_item] - *2* *3* [错误集：MHA高可用集群部署及故障切换[error][/usr/local/share/perl5/MHA/MasterMonitor.pm, ln427]](https://blog.csdn.net/qq_35456705/article/details/114309872)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control_2,239^v3^insert_chatgpt"}} ] [.reference_item] [ .reference_list ]
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值