ファイルから行を読み込み、perlで行を分割する

Question

テキストファイルから特定の行（行にはis successfully created.が含まれています）を読み込み、その行を分割して特定の値を変数に格納する必要があります。

フルラインは、私は別の変数に一つの変数とPAY001.TXTに文字列値/home/user/dev/MODULE447/input/all/20161111/を取得する必要があります

LOG----Payrun.c:0263:28/11/16 07:45:04 > Pay file /home/user/dev/MODULE447/input/all/20161111/PAY001.TXT is successfully created. 

です。

ファイルから読み込み、必要な値を変数に取り入れることができますか？

Answer 1

私はあなたのためにこれを始めています。この後

use strict; 
use warnings; 

my $inputfile = $ARGV[0]; 
my $matchedline = ""; 

#open file 
open(INPUT, $inputfile) || die "Can't reason $!\n"; 
while(<INPUT>) #Each line looping 
{ $matchedline .= $_ if($_=~m/is successfully created/g); } #Check matched line 

print $matchedline; #Confirm the matched line. 

を新しいファイルに保存しようとすると、これはあなたの割り当て

Answer 2

のためにこのような何かでありますそれを行います。

#!/usr/bin/env perl 
use strict; 
use warnings; 

#iterate stdin or files specified on command line. 
while (<>) { 
    #regex match, capturing part of the match. 
    #note - non whitespace matching, so will break if you've whitespace chars in your filenames 
    #or paths. 
    if (my ($path, $file) = m,\s(\S+/)(\S+) is successfully created,) { 
     print "Path = $path, file = $file","\n"; 
    } 
}