Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;

...
name_x|score|date
name_z|score|date
name_z|score|date
  2. or download this
    $name{(split/\|/)[0]} += 1;