(no subject)

[ocehb]

Есть ряд обозначений, например: DMC df3k Ffgx EZ14 jjk
Нужно из этих выбрать только те что содержат и буквы и цифры.
/[a-z0-9]+/i не подходит.


\b(\w*[a-z][0-9]\w*|\w*[0-9][a-z]\w*)\b
так как [a-z0-9] было писать лень, то ограничился паллиативом \w

# perl -le 'print $1 while ($ARGV[0] =~ m#\b(\w*[a-z][0-9]\w*|\w*[0-9][a-z]\w*)\b#ig);' "DMC df3k Ffgx EZ14 jjk"
df3k
EZ14
# 

Comments

[jerom.livejournal.com]

Не понял, зачем первый \w* почему не:
\b([a-z]+\d\w*|\d+[a-z]\w*)\b

или

[jerom.livejournal.com]

\b(\w*([a-z]\d|\d[a-z])\w*)\b

еще на байт короче

[jerom.livejournal.com]

\b(([a-z]+\d|\d+[a-z])\w*)\b

Re: еще на байт короче

[ocehb]

примерно одинаковая скорость, что странно (в последних двух собирает от двух скобок).

  DB<1> $a = "DMC df3k Ffgx EZ14 jjk"

  DB<2> @a = qw(\b(\w*[a-z][0-9]\w*|\w*[0-9][a-z]\w*)\b \b([a-z]+\d\w*|\d+[a-z]\w*)\b \b(\w*([a-z]\d|\d[a-z])\w*)\b \b(([a-z]+\d|\d+[a-z])\w*)\b)

  DB<3> sub R ($) { my $r = $_[0]; return sub { return $a =~ m#$a[$r]#ogi; } }

  DB<4> timethese (1_000_000,{ 'A' => R(0),'B' => R(1),'C' => R(2),'D' => R(3) })
Benchmark: timing 1000000 iterations of A, B, C, D...
         A: 20 wallclock secs ( 9.11 usr +  0.02 sys =  9.13 CPU) @ 109529.03/s (n=1000000)
         B: 19 wallclock secs ( 8.98 usr +  0.01 sys =  8.99 CPU) @ 111234.71/s (n=1000000)
         C: 18 wallclock secs ( 8.91 usr +  0.00 sys =  8.91 CPU) @ 112233.45/s (n=1000000)
         D: 20 wallclock secs ( 9.05 usr +  0.01 sys =  9.06 CPU) @ 110375.28/s (n=1000000)

Re: еще на байт короче

[jerom.livejournal.com]

ну от сбора можно избавиться поставив (?:...)

Но при чём тут скорость? :_)