Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use DBI;
...
   push(@{$arry2}, join(",",$ref->{cus},$ref->{ta},$ref->{gd1},$ref->{
+gd2}))."\n";
  2. or download this
    set 1:            set 2:
Joe,A,85,90       Joe,A,80,85
...
Jon,B,82,92
Lou,A,0,0