Help for this page

Select Code to Download


  1. or download this
    print 'From hash'."\n"; 
    for my $o (@order) { 
    ...
      print ' ID = '.$h->{ID}."\n"; 
      print '  CoID  = '.$h->{CoID}."\n"; 
      print '  State = '.$h->{State}."\n";
    
  2. or download this
    print "From hash\n"; 
    for my $o (@order) { 
    ...
      print "  ID    = $h->{ID}\n"; 
      print "  CoID  = $h->{CoID}\n"; 
      print "  State = $h->{State}\n";
    
  3. or download this
    print "From hash\n"; 
    for my $o (@order) { 
    ...
            "  ID    = $array->{$o}->{ID}\n" .
            "  CoID  = $array->{$o}{CoID}\n" .
            "  State = $array->{$o}->{State}\n";