Chinaunix

标题: perl 脚本输出结果中过滤掉关键字orig [打印本页]

作者: riridulum 时间: 2011-08-01 11:49
标题: perl 脚本输出结果中过滤掉关键字orig
请教perl脚本内如何更改才能在输出结果中过滤掉orig的效果

#!/usr/bin/perl
# 监控FIS往IMP传生产状态数据是否正常运行
#
$ENV{XPG_UNIX98}="ON";

#require "zp8.pl";
#use strict;
use File::stat;

use Time::Local;

my(%fields);

my($sec, $min, $hour, $mday, $mon, $year) = (localtime(time))[0..5];

my(@listadelogs);

my(@conteudo);
$mon  = zeroFill($mon, 2);
$mon = $mon + 1;
$mon  = zeroFill($mon, 2);
$mday  = zeroFill($mday, 2);
$year = $year + 1900;
$hour = zeroFill($hour, 2);
$min  = zeroFill($min, 2);
$sec  = zeroFill($sec, 2);

my($DAY_FROM) = $mday;
my($MON_FROM) = $mon;
my($YEA_FROM) = $year;
my($HOR_FROM) = $hour;

my($DAY_TO) = $mday;
my($MON_TO) = $mon;
my($YEA_TO) = $year;
my($HOR_TO) = $hour;

$DATE1 ="$MON_TO/$DAY_TO/$YEA_TO  $hour

min

sec";

listalogs(\%fields,$diference);
displayPage();


exit(0);

sub listalogs {

my($hashref) = shift;
my($difref) = shift;

      $hostname = 'l79fis24';

      $hostname2 = 'l79fis81';

      $rows=$hashref->{'rows'};

      $str_search = $hashref->{'search'};

      $str_search =~  s!%20! !g;





   @listadelogs5 = `rsh l79fis81 -l ufhread ls -tl /ap/os/oscom06/exchange/imp*`;
   ##@listadelogs3 = `rsh l79fis81 -l ufhread ls -tl /ap/os/oscom06/exchange |grep -e "JIT_SAP_INTERFACE"`;

      }

sub displayPage {

#l79fis81---EXPSTT

if ( @listadelogs5 == 0 )
      {



$number = 1;





      }

   else
      {

$number = 1;



   foreach(@listadelogs5){



         $flag = $number % 2;
         $filname = substr($_,45,12);

#print "filename substr: $filname\n";

$time1 = $filname;
#print "time1 is $time1\n";

         $filepath = substr($_,58,57);

         ##$filepath = join("/","/ap/os/oscom06/exchange",$filepath);
         chomp($filepath);
   chomp($filname);

         $para = compTimes($time1);
   #print "para is : $para\n";

$substring = "orig";
     if (index($filepath, $substring)>0){
   print ("$number;$filepath;$filname;$para","\n"

;

}else{
print ("$number;$filepath;$filname;$para","\n"

;
}
$number++;


         }


}
}

sub zeroFill {

my($temp) = shift;

my($len)  = shift;

my($diff) = $len - length($temp);

return($temp) if $diff <= 0;

return(('0' x $diff) . $temp);

}

##====================================================================================
sub getMonths{
@months{qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)} = (0..11);
$mon_cp1 = exists($months{$strmon}) ? $months{$strmon} : die "Bad month";
return $mon_cp1;
}

sub compTimes{

$now = localtime();
#print "localtime: $now\n";
($sec, $min, $hour, $mday, $mon, $year) = (localtime(time))[0..5];
$ltime = timelocal($sec, $min, $hour, $mday, $mon, $year);
#print "timelocal ltime: $year, $mon, $mday, $hour, $min, $sec\n";
#print "timelocal ltime: $ltime\n";

@array1 = split(/ /,$time1);
$strmon = $array1[0];
#print "time1 strmon: $strmon\n";
$mon1 = getMonths($strmon);
#print "time1 mon1: $mon1\n";

$mday1 = $array1[1];
#print "time1 day1: $mday1\n";
$t1 = $array1[2];
#print "time1 t1: $t1\n";

$year1, $hour1, $min1;
@ifarray = split(/:/, $t1);
$length = @ifarray;
#print "length: $length\n";
if(($t1=~m/:/) == 0){
$year1 = $t1;
$hour1 = 0;
$min1 = 0;

#print "time1 year1: $year1\n";
$year1 = $year1 - 1900;
#print "time1 gm year1: $year1\n";
} else {
$year1 = $year;
$hour1 = $ifarray[0];
$min1 = $ifarray[1];

#print "time1 year1: $year1\n";
}

$cptime = timelocal(00, $min1, $hour1, $mday1, $mon1, $year1);
#print "cptime: $cptime\n";

$comp = $ltime - $cptime;

#print "comptimes is $comp\n";
if($comp/60 >= 480){
         return "light";
}elsif($comp/60 < 480){
         return "ok";
}
}

脚本输出的结果如下图

作者: riridulum 时间: 2011-08-01 11:50
图片为上面的脚本输出

脚本输出结果.jpg (128.92 KB, 下载次数: 28)

脚本输出

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)