SWAT /

Perl Key-Value Sorting

Reading

Outdoors

Games

Hobbies

LEGO

Food

Code

Events

Nook

sidebar

Perl Key-Value Sorting

A quick script to sort key value pairs:

#!/usr/bin/perl

my %terms;

while (<>) {
  my @x = split(':');
  $x[1] =~ s/^[\s]+//;
  $x[1] =~ s/[\s]+$//;
  $terms{$x[0]} = $x[1];
}

foreach $k (sort keys %terms) {
  print "$k: $terms{$k}\n";
}
Recent Changes (All) | Edit SideBar Page last modified on June 22, 2007, at 12:06 PM Edit Page | Page History