http://qs321.pair.com?node_id=496572


in reply to Determining uniqueness in a string.

To speed things up, one easy step is to precompile the (static) pattern using the qr// operator, like qr/^\d{10}$/, or using the m//o flag, as in 
die unless /^\d{10}$/o;

[download]
Also, the print statement might prove too expensive; perhaps, syswrite() is a better choice -- if you must write to output.

Replies are listed 'Best First'.
Re^2: Determining uniqueness in a string.
by sauoq (Abbot) on Oct 01, 2005 at 02:03 UTC

    No, using /o here isn't buying anything. And using syswrite() instead of print under the pretense of improving performance is probably misguided.

    -sauoq
"My two cents aren't worth a dime.";
[reply]

In Section Seekers of Perl Wisdom