Perlの正規表現マッチング、私はここに簡単な何かが欠けていると思う問題

Question

...これは出力になり

$key = "deco-1-LB-700F:MAR:40"; 
    if ($key =~ m/deco-(.*?)-(.*?)-(.*?):(.*?):(.*?)/) { 
     print "1=$1 2=$2 3=$3 4=$4 5=$5"; 
    } 

：1 = 1 2 = LB 3 = 700F 4 = 3月5日=

$ 5が値40を返さないのはなぜですか？

乾杯、ステュー

Answer 1

.*?は怠惰であり、それが可能であればゼロの文字と一致しますので。

$key =~ m/deco-(.*?)-(.*?)-(.*?):(.*?):(.*?)$/ 

しかし、それはキャッチオール .*と .*?より明示的なものを使用することはほぼ常に良いでしょう：文字列の末尾に正規表現をアンカー。正規表現エンジンに正確に一致させたいものを伝えます。区切り文字 -と :は、実際の試合で発生しないと仮定すると、私は

$key =~ m/deco-([^-]*)-([^-]*)-([^:]*):([^:]*):([^:]*)$/ 

• [^-]は「-以外の任意の文字に一致する」という意味を示しています。
• [^:]は、「:以外の文字に一致します」を意味します。

Answer 2

split qr/[:-]/, 'deco-1-LB-700F:MAR:40' 

あなたはtghe最後に戻っ

(
    'deco', 
    1, 
    'LB', 
    '700F', 
    'MAR', 
    40, 
)