perl - Perl で、文字列の末尾の X 文字をマスク/カットしたい (X は文字列のセットの 1 つにすることができます)

Question

XXXXXXnumber と XXXXXXdate の 2 つの文字列があり、各文字列からすべての XXXXXX を削除したいと考えています。XXXXXX で表される実際の文字数は異なる場合があります。接尾辞 'number' と 'date' は定数です。XXXXXXnumber と XXXXXXXdate は XXXXXX になる必要があります。

Answer 1

正規表現を使用します:

($newvar = $oldvar) =~ s/^(.*)(number|date)$/$1/;

$oldvarの元の値 (Xes を含む) を使用する必要がない場合、これは次のように単純化されます。

$oldvar =~ s/^(.*)(number|date)$/$1/;

Answer 2

簡単な置換でそれが処理されます。

$str =~ s/(?:number|date)\z/;