时间和字符串

• 获取系统时间，按格式化字符串输出

  use Time::Local;
  my $timestamp=time;
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($timestamp);
  my $y = $year + 1900;
  my $m = $mon + 1;
  #输出
  print sprintf("%04d%02d%02d%02d",$y,$m,$mday,$hour);
  

文件和目录操作

• 获取本程序的文件名、路径和后缀名

  use File::Basename; 
  my ($myFile,$myPath,$mySuffix) = fileparse($0,qr{.pl});
  

• 复制文件

  use File::Copy ;
  if( -e $fpath) {
     # 复制文件
     copy($fpath,$rootDir."/data") or warn "Could not copy files\n";
  }else {
     die "$fpath not found! $!\n";
  }
  

函数

• 实现动态函数名

  my %h_sub;
  $h_sub{MSCHO} = \&mscho;
  $h_sub{MAPHO} = \&mapho;
  #调用
  do $h_sub{$tidx}->($para);
  

文件读写

• 一次性读取文本文件所有内容

  my @alarm_tmp = <IH0>;
  $alarm_text{$tidx} = \@alarm_tmp;
  

创建于：2014.06.27 最后更新：2014.06.28