www.pudn.com > filecollector.rar > iarstat_parser_num.p

#!/usr/local/perl5/bin/perl

use strict;
use FileHandle;

my ($report_file,$line,$rfd,$date,$num,$current_hour,$last_hour);

my $Usage = "\n\tUsage: $0 report_file_name \n\n";

$report_file = $ARGV[0];

if(!( $report_file )){
        die "$Usage";
}

if(!(-f $report_file)){
        print "$report_file is not exist\n";
        die "$Usage";
}

$rfd = new FileHandle("$report_file");
$num='';
while ($line=<$rfd>){

if ($line =~ /^\s*\IARSTAT\w*\s+(\d+)\s*-\s*(\d+)\s*-\s*(\d+)\s*-\s*(\d+)\s+\d+\s*-\s*\d+\s*-\s*\d+\s*-\s*\d+\s+\d+\s+STARTED\s+IR.A3(\d{2})(\d{2})(\d{2})/){
	$date="$1-$2-$3-$4";
	$num=$7;
}
}


if($num eq ''){
	$num = "ErrFileName";
}

close($rfd);

$rfd = new FileHandle(">$report_file");
print $rfd "$date-$num\n";
close($rfd);

exit(0);