Perl sort by regex.

Oct. 7th, 2009 04:28 pm
darxus: (Default)
my @sorted = sort { ($a =~ /(\d{12})/)[0] <=> ($b =~ /(\d{12})/)[0] } @lines;
Tags:
  • Add Memory
  • Share This Entry

Profile

darxus: (Default)
darxus
My Website

January 2019

S M T W T F S
  12345
6789101112
13141516 171819
20212223242526
2728293031  

Syndicate

RSS Atom

Most Popular Tags

Page Summary

Style Credit

Expand Cut Tags

No cut tags
Page generated Aug. 26th, 2025 12:44 am
Powered by Dreamwidth Studios