Darxus

Perl sort by regex.

Perl sort by regex.

Previous Entry Add to Memories Share this! Next Entry
2009-09-29
my @sorted = sort { ($a =~ /(\d{12})/)[0] <=> ($b =~ /(\d{12})/)[0] } @lines;
Powered by LiveJournal.com