Perl извлечения данных из файла на основе состояния

Question

У меня есть файл журнала, который выглядит, как показано ниже:

874899 root@commands to execute some files 
    Exit Status : 0 
    Exit time : Sun May 5 18:19:39 2013 
874923 root@commands to execute some files 
    Exit Status : 2 
    Exit time : Sun May 5 18:19:42 2013 

У меня есть скрипт, который смотрит на шаблон и возвращает строку ниже этого подходящего шаблона. Сценарий выглядит следующим образом:

open(FH,'log.txt'); 
while ($line = <FH>) { 
    if ($line =~ /Exit Status/) { 
     print "$line"; 
     print scalar <FH>; 
    } 
} 

мне нужен ввод о том, как я должен делать это так, что он соответствует Exit status (как 2 в данном случае) и сохранить 874923 линию вместе с командами (В этом случае) и Exit Time как две отдельные переменные.

Пожалуйста, исправьте меня, поскольку я новичок в Perl.

Answer 1

С помощью хэш, это то, что я использовал:

use Data::Dumper; 
open(FH,'inlog.txt'); 

my %stat; 

my ($exitstatus, $exitstatusval, $exittime, $exittimeval, $exitcommands); 
while ($line = <FH>) { 
    if ($line =~ m/^(\d+)\s+.*@(.*)/) { 
     $exitcommands = $2; 
     $qbsid= $1; 
    } 
    if ($line =~ /Exit Status/) { 
     ($exitstatus, $exitstatusval) = split(':',$line); 
     next; 
    } 
    if ($line =~ /Exit time/ and $exitstatusval == 2) { 
     ($exittime, $exittimeval) = split(': ',$line); 
     $stat{$qbsid} = { 
      commands => $exitcommands, 
      time  => $exittimeval 
      }; 
    } 

}

print(Dumper(\%stat)); 

Answer 2

Это, как я бы это сделать ...

use Data::Dumper; 

open(FH,'<','log.txt'); 
my $current_log; 
my @logs; 
while (my $line = <FH>) { 
    if($line =~ /^\s*(\d+)\sroot\@(.*)/) { 
    if($current_log) { 
     push @logs,$current_log; 
    } 
    $current_log = {}; 
    $current_log->{pid} = $1; 
    $current_log->{command} = $2; 
    } 
    if ($line =~ /Exit Status\s*:\s*(\d+)/) { 
    $current_log->{exit_status} = $1; 
    } 
    if($line =~ /Exit time\s*:\s*(.+)$/) { 
    $current_log->{exit_time} = $1; 
    } 
} 
if($current_log) { 
    push @logs,$current_log; 
} 

print Dumper \@logs; 

Это должно напечатать следующее:

$VAR1 = [ 
     { 
     'exit_time' => 'Sun May 5 18:19:39 2013', 
     'pid' => '874899', 
     'exit_status' => '0', 
     'command' => 'commands to execute some files' 
     }, 
     { 
     'exit_time' => 'Sun May 5 18:19:42 2013', 
     'pid' => '874923', 
     'exit_status' => '2', 
     'command' => 'commands to execute some files' 
     } 
    ]; 

Answer 3

Ваш код может выглядеть так:

use Data::Dumper; 
open(FH,'inlog.txt'); 

my @stat; 

my ($exitstatus, $exitstatusval, $exittime, $exittimeval, $exitcommands); 
while ($line = <FH>) { 
     if ($line =~ m/\d+\s+.*@.*/) { 
      $exitcommands = $line; 
     } 
     if ($line =~ /Exit Status/) { 
      ($exitstatus, $exitstatusval) = split(':',$line); 
      next; 
     } 
     if ($line =~ /Exit time/ and $exitstatusval == 2) { 
      ($exittime, $exittimeval) = split(': ',$line); 
      push (@stat, { 
       commands => $exitcommands, 
       time => $exittimeval 
       }); 
     } 
} 

print(Dumper(\@stat)); 

Выход : Итак, это напечатает 'arrayref of hashrefs' для записей, имеющих статус выхода 2

$VAR1 = [ 
      { 
      'time' => 'Sun May 5 18:19:42 2013 ', 
      'commands' => '874923 root@commands to execute some files ' 
      }, 
      { 
      'time' => 'Sun May 4 18:19:42 2013', 
      'commands' => '874613 root@commands to execute some files ' 
      } 
     ];