perlからgrepへの正規表現を、異なるエンディングの文字列に作用させます。

Question

'EUR_AF'の値を抽出したいこのコードは、ここでは'0.39'です。 場合によっては'EUR_AF'で終わり、​​3210で終わる場合もあります。 'EUR_AF'は、'=0.39;'または'=0.39'の代わりに'=0'で終わることがあります。

コードをどのように処理するのですか？それをオンラインで見つけることはできないようです...私はもちろん、ほとんど無限のif-elsif-elseステートメントですべてをラップすることができますが、それは過度のようです。

例のテキスト：

AVGPOST=0.9092;AN=2184;RSQ=0.5988;ERATE=0.0081;AC=144;VT=SNP;THETA=0.0045;AA=A;SNPSOURCE=LOWCOV;LDAF=0.0959;AF=0.07;ASN_AF=0.05;AMR_AF=0.10;AFR_AF=0.11;EUR_AF=0.039

コード：$INFO =~ m/\;EUR\_AF\=(.*?0)/はEUR_AF=0の例を扱いますが、効率的に代替シナリオを処理する方法：$INFO =~ m/\;EUR\_AF\=(.*?)(;)/

私がいることを見つけましたか？

Answer 1

抽出するために、一つの値が正しいキャプチャグループの編集をしたい場合は

my %rec = split(/[=;]/, $s); 
my $eur_af = $rec{EUR_AF}; 

Answer 2

私は答えを見つけました。コード：

$INFO =~ m/(?:^|;)EUR_AF=([^;]*)/

はEUR_AF=0とEUR_AF=0.39は、;なしかとを終了する場合を扱うようです。結果として得られる$INFOは0または0.39になります。

Answer 3

この正規表現は、あなたのために働く必要があります。(?<=EUR_AF=)\d+(\.\d+)? それは

(?<=EUR_AF=)を意味 - EUR_AF=

\d+(\.\d+)?が付け加えた文字列を探して - 小数点以下の桁

EDIT、必要に応じて、数字で構成されています。Iもともとキャプチャグループだけでなく、正規表現全体が正しい結果を返すことを望んでいました。

my ($eur_af) = $s =~ /(?:^|;)EUR_AF=([^;]*)/; 

my ($eur_af) = ";$s" =~ /;EUR_AF=([^;]*)/; 

エキスすべての値：あなたは(?<=EUR_AF=)(\d+(?:\.\d+)?)