Help for this page

Select Code to Download


  1. or download this
    @array = (['CCI003', '1', 'M'], 
          ['CCI002', '1', 'N'],
          ['CCI001', '1', 'U'],
          ['CCI002', '2', 'N'])
  2. or download this
    (['CCI001', '1', 'U'], 
 ['CCI002', '1', 'N'], 
 ['CCI002', '2', 'N'], 
 ['CCI003', '1', 'M'])
  3. or download this
    #!/usr/perl5/bin 

...
foreach my $rec (@sorted) {
    print STDOUT "$rec->[0], $rec->[1], $rec->[2] \n";
}