Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
my $name ='';
$str = join "\n\n", map {  sprintf "%-8s %s", ($_->[0] ne $name ? $nam
+e = $_->[0] : ''), $_->[1]} map { [split " ", $_, 2] } split /\n+/, $
+str;
print $str;
  2. or download this
    GEORGE   21

...
         87

CHRIS    33