Skip to Main Content

Entry tags:

perl

Perl sort by regex.

my @sorted = sort { ($a =~ /(\d{12})/)[0] <=> ($b =~ /(\d{12})/)[0] } @lines;

Post a comment in response:

From:

Anonymous This account has disabled anonymous posting.

OpenID

Dreamwidth account

If you don't have an account you can create one now.

Subject

HTML doesn't work in the subject.

Formatting type

Message