whileループが途中で正規表現で終了する

Question

私はActivePerlで次のPerlスクリプトを実行して、テキストから時刻とID数値を抽出しています。 何らかの理由により、テキストの最初の行がチェックされた後にwhileループが終了します。

#!/usr/bin/perl -w 
$inputfile = "nr_raw.txt"; 
$outputfile = "results.txt"; #create this output file (it will be created automatically in the current folder) 
open (OUTPUTFILEHANDLE, "> $outputfile") || die "I can't find or open $file: error $!\n"; 
open (INPUTFILEHANDLE, $inputfile) || die "I can't find or open $file!\n"; 
$_=<INPUTFILEHANDLE>; 
while (/{.*?"timestamp":(\d+).*?"accountId":(\d+).*?}\n/sg) 
{ 
$info="timestamp: $1 accountID: $2"; 
print "$info \n"; 
print OUTPUTFILEHANDLE $info ; 
} 
close OUTPUTFILEHANDLE; 

nr_raw.txt：ここ

は、私が使用するPerlのコードではありません（3行目の何accountIdエントリー）

{"eventType":"alarm","timestamp":1508845227478,...,"accountId":1275676,"Version":"1.3",....} 
{"eventType":"alarm","timestamp":1508845166740,...,"accountId":1274721,"Version":"1.1",....} 
{"eventType":"alarm","timestamp":1508845187479,....,..................,"Version":"1.1",....} 
{"eventType":"alarm","timestamp":1508845166980,...,"accountId":1347376,"Version":"1.2",....} 

results.txt：（何もない）

timestamp 1508845227478 account ID1275676 

Answer 1

ます1つの行だけを読んでください！

#!/usr/bin/perl 

use strict; 
use warnings; 
use Cpanel::JSON::XS qw(); 

my $parser = Cpanel::JSON::XS->new(); 

while (<>) { 
    my $rec = $parser->decode($_); 
    print("timestamp: $rec->{timestamp} accountID: $rec->{accountId}\n") 
     if $rec->{accountId}; 
} 

使用法：

script nr_raw.txt >results.txt 

Answer 2

if文で正規表現を入れて、whileループを作るすべての行を読んでください。

#!/usr/bin/env perl 
    use strict; 
    use warnings; 
    use autodie; # See http://perldoc.perl.org/autodie.html 

    my $inputfile = "nr_raw.txt"; 
    my $outputfile = "results.txt"; #create this output file (it will be created automatically in the current folder) 

    # autodie handles errors automatically. 
    open my $out_fh, '>', $outputfile; 
    open my $in_fh, '<', $inputfile; 

    while(my $line = <$in_fh>){ 
     if($line =~ /{.*?"timestamp":(\d+).*?"accountId":(\d+).*?}\n/sg){ 
      my $info = "timestamp: $1 accountID: $2"; 

      print "$info \n"; 
      print $out_fh $info ; 
     } 
    } 

# autodie handles errors automatically. 
close $out_fh; 
close $in_fh;