regex - $sr_no =~ s/^(0*)(.*)/$2/ 、perl スクリプトでの意味は?

Question

以下の置換の意味は何ですか?

if($sr_no =~ m/^0/)
{
    $sr_no =~ s/^(0*)(.*)/$2/;
}

Answer 1

これは不器用な書き方です$sr_no =~ s/^0+//。つまり、先頭のゼロをすべて削除します。if置換はとにかく同じロジックを実行するため (つまり、一致がない場合は置換しない)、基本的には役に立ちません。

Answer 2

文字列から先頭のゼロを取り除きます。

私はそれを次のように書きますが

s/^0+//

つまり、1 つまたは複数の ( +) 先頭の ( ^) ゼロ ( 0) を何も置き換えません ( //)。

Answer 3

• スカラー変数の内容がsr_no正規表現と一致する場合^0
  • つまり、0
• 正規表現^(0*)(.*)に一致するテキストを 2 番目のグループに 置き換えます
  • つまり、先頭0の s を削除します。

以下も参照してください。

• Perl での正規表現に関する背景情報のPerl 正規表現
• m//and演算子の詳細については、引用符のような正規表現s///演算子を参照してください。

Answer 4

*すべての ( による) 先行する ( による^) ゼロを、それに続くすべてのゼロ ( による$2 = (.*))に置き換えます。