如何從Perl中的較大字符串中獲取字符串

Question

我有幾個條件存儲在變量$ conditions下的字符串中。該字符串會是這個樣子

"s(job_name1) or s(job_name2) or s(job_name3) and s(job_name4)" 

我想什麼做的只是讓每個作業名稱，不可把它在一個臨時變量。現在我有以下幾點，但是我的直覺告訴我說那不行。

@temp = split(/(s()\ orand)/, $conditions) 

有關如何做到這一點的任何想法？

Answer 1

這是微不足道的：

my @names = $conditions =~ /s\(([^)]*)\)/g; 

這種簡單的解決方案假設括號內的文字不能包含一個括號，像逃避，沒有什麼是可能的。

編輯：指包括相同的正則表達式的這一擴展版本，這可能會使事情更清楚一點：

my @names = $conditions =~ m{ 
    s \(   # match a literal s and opening parenthesis 
     (   # then capture in a group 
      [^)]* # a sequence a zero or more 
        # non-right-parenthesis characters 
     ) 
    \)    # followed by a literal closing parenthesis 
}gx;    # and return all of the groups that matched 

Answer 2

my @jobnames; 
while($conditions =~ m/s\(([^)]*)\)/g) { 
    push @jobnames, $1; 
} 

Answer 3

你可能需要做兩件事情：

• 斯普利特在任and或or
• 輸入取出s()位

下面是使用split做到這一點的一種方式然後map：

@temp = map({/s\(([^)]+)\)/} split(/\s+(?:and|or)\s+/, $conditions)); 

或稍多清楚：

# Break apart on "and" or "or" 
@parts = split(/\s+(?:and|or)\s+/, $conditions); 
# Remove the s() bit 
@temp = map({/s\(([^)]+)\)/} @parts); 

Answer 4

假設沒有嵌套的括號。

$_ = 's(job_name1) or s(job_name2) or s(job_name3) and s(job_name4)'; 

my @jobs = /\((.+?)\)/g; 

print "@jobs\n";