A regular expression that groks UUIDs

m/^[[:xdigit:]]{8}-(?:[[:xdigit:]]{4}-){3}[[:xdigit:]]{12}$/
[download]

Humbly submitted.

Fun activity: add groupings to parse bits (words) of it out if you're so inclined. (See RFC 4122 for the bits' meanings. Also likely better done through unpack, but I warned you this was a fun activity.)

($time_low) = $uuid =~ m/^([[:xdigit:]]{8})-(?:[[:xdigit:]]{4}-){3}[[:
+xdigit:]]{12}$/
[download]

Comment on A regular expression that groks UUIDs Select or Download Code

Back to Cool Uses for Perl