펄 내가이 라인이 정규식

Question

와 3에 선]을 분할 :
[Fri Oct 5 09:11 2012] 0.005 [ext2/1/rel 322 (0,50)] [abc] I'm Sure [he/she] is leading CORN @types (countyfair)

을 어떻게 3]에서 분할하고이 개 부분이 수행

[Fri Oct 5 09:11 2012] 0.005 [ext2/1/rel 322 (0,50)] [abc]  

및

을

I'm Sure [he/she] is leading CORN @types (countyfair) 

Answer 1

이 하나는 세 개를 건너 뜁니다. :

,

use strict; 
use warnings; 

while (<>) { 
    if (my ($p1, $p2) = (/([^]]+][^]]+][^]]+])\s*(.*)/)) { 
    print "$p1 : $p2\n"; 
    } 
} 

배열 사용 :

my @a; 
while (<>) { 
    if (@a = (/([^]]+][^]]+][^]]+])\s*(.*)/)) { 
    print join(",", @a), "\n"; 
    } 
} 

Answer 2

나는 일반적인 기능에 관심이있어 그렇게 여기있다 :

이

#!/usr/bin/env perl 

use strict; 
use warnings; 

my $str = q{[Fri Oct 5 09:11 2012] 0.005 [ext2/1/rel 322 (0,50)] [abc] I'm Sure [he/she] is leading CORN @types (countyfair)}; #'# fix highlight 

my ($first, $second) = split_after_nth(qr/]/, $str, 3); 
$second =~ s/^\s*//; #/# fix highlight 
print "$first\n$second\n"; 

sub split_after_nth { 
    my ($qr, $str, $num) = @_; 
    my @parts = split /($qr)/, $str, ++$num; 
    my $second = pop @parts; 
    my $first = join '', @parts; 
    return ($first, $second); 
} 

Answer 3

각각 ]에 의해 종료 세 개의 문자열 A-뒤에 모습 할 것 속임수. 세 번째 ] 이후 공백으로 무엇을하고 싶었는지 언급하지 않았으므로 거기에 놓았습니다.

use strict; 
use warnings; 

my $s = q{[Fri Oct 5 09:11 2012] 0.005 [ext2/1/rel 322 (0,50)] [abc] I'm Sure [he/she] is leading CORN @types (countyfair)}; 
my @pair = split /(?:[^]]*\]){3}\K/, $s; 

print "$_\n" for @pair; 

출력

[Fri Oct 5 09:11 2012] 0.005 [ext2/1/rel 322 (0,50)] [abc] 
I'm Sure [he/she] is leading CORN @types (countyfair)