Look-Around Assertions в операторе s///

[ocehb]

До сих пор не задумывался на эту тему, но работает. Пример:
Задание: Удалить все знаки «+», за которыми следует цифра.

# perl -le '$ARGV[0] =~ s#\+(?=\d)##g && print $ARGV[0]' "+test + +12 +13 ++"
+test + 12 13 ++
#

Comments

[avysk]

sed -e 's/\+\([0-9]\)/\1/g'

[ocehb]

s#\+(\d)#$1#g, только первый вариант в ~2 раза быстрее:

# perl -MBenchmark=cmpthese -e \
  '$aa = shift; cmpthese($ARGV[0],
     { ''A'' => sub { my $bb = $aa; $bb =~ s#\+(?=\d)##g },
       ''B'' => sub { my $bb = $aa; $bb =~ s#\+(\d)#$1#g } } )' "+test + +12 +13 +14 +100 ++" 1024000
      Rate    B    A
B 195420/s   -- -50%
A 393846/s 102%   --
#