Действительно ли эта строка Perl делает что-нибудь?
$variable =~ s/^(\d+)\b/$1/sg;
Единственное, о чем я могу думать, это то, что $1
или $&
могут быть использованы повторно, но за ними сразу же следует.
$variable =~ s/\D//sg;
С этими двумя строками вместе, является ли первая строка бессмысленной и удаляемой? Кажется, что да, но я видел это несколько раз в этой старой программе и хотел убедиться.