perl 常用命令

1.-d判断目录是否存在

(-d "EMV{MMS_HOME}/test") || die "ERROR! EMV{MMS_HOME}/test,$!\n";

2.进入目录

chdir "$ENV{MMS_HOME}";

3.目录不存在，创建

unless (-d "test")
{
  mkdir("test",0777) || die "Mkidr dircctory test failed.\n";
}

4.获取系统当前时间

my ($sec,$min,$hour,$day,$month,$year)= localtime(time());
$year+=1900;
$month=sprintf("%02d",$month+1);
$day=sprintf("%02d",$day);
$hour=sprintf("%02d",$hour);
$min=sprintf("%02d",$min);
$sec=sprintf("%02d",$sec);
my $daytime = "$year/$month/$day/$hour/$min/$sec";
print "本机当前时间是:$daytime\n";

5.文件句柄

open(SQLPLUS, "|sqlplus -S $USER/$USERPASS\@$SID >/dev/null") || die "Execute sqlplus error!\n";
  print SQLPLUS "set feedback off\nset sqlnumber off\n";
  print SQLPLUS "set colsep \"\;\"\n";
  print SQLPLUS "set pagesize 0\nset linesize 200\n";
  print SQLPLUS "set trimspool off\n";
  print SQLPLUS "set sqlblanklines off\n";
  print SQLPLUS "spool mm7vaspsuccmoat.txt\n";  #导出文件到mm7vaspsuccmoat.txt
  print SQLPLUS "select VASP,sum(CSTJCS) as CSTJCS,sum(CGTJCS) as CGTJCS,sum(CSTJLL) as CSTJLL,sum(CGTJLL) as CGTJLL,sum(CSXFFSBGCS) as CSXFFSBGCS,sum(CGFSFSBGCS) as CGFSFSBGCS,sum(CSSDYDBGCS) as CSSDYDBGCS,sum(CGSDYDBGCS) as CGSDYDBGCS,sum(CSXFCS) as CSXFCS,sum(CGXFCS) as CGXFCS,sum(CSXFLL) as CSXFLL,sum(CGXFLL) as CGXFLL from RPT_MM7_VASPSUCC where SFLAG=0 group by VASP order by  VASP;\n";
  print SQLPLUS "spool off\n";
  close(SQLPLUS) || die "Execute sql error!\n";