Perl не-жадный матч

Question

Я хочу только первый рисунок до slash_flash захвачен.

Я попытался это:

$var1 = slash_flash*_target_bit[*]_slash_hit\n 

$var1 =~ s/^(.*)\*?(.*)$/$1/g if ($var1 =~ /\*/); 

Я получаю всю строку обратно:

> $var1 = slash_flash*_target_bit[*]_slash_hit 

Примечание: $ var1 может начать с чем-нибудь. Таким образом, вы не можете начать сопоставление шаблонов с определенным словом или рисунком. Вот почему я попробовал (. *)

Answer 1

Во-первых, напишите код, который вы на самом деле бежали. То, что вы сказали, неверно, потому что то, что вы отправили, даже не компилируется.

Переезд.

• \*? может соответствовать нулевым символам.
• .* может соответствовать нулевым символам.

Так как только первые .* матчи всю строку, \*? и .* счастливо совпадают нулевые символы.

Может быть, вы хотите

$var =~ s/^([^*]*)\*.*$/$1/g if ($var1 =~ /\*/); 

, который может быть сокращен до

$var =~ s/^([^*]*)\*.*$/$1/; 

Или даже

$var =~ s/^[^*]*\K\*.*$//;