Help for this page

Select Code to Download


  1. or download this
    use strict ;
    use warnings ;
    ...
    } 
    print "\n" ;
    __DATA__
    
  2. or download this
    #ID's
    File    ID
    ...
    28    0    0    0    1    0    0    0    1    1    0    0    0    1   
    + 1    1    1                
    29    0    0    0    0    0    0    0    1    1    0    0    0    0   
    + 1    1    0                
    30    0    0    0    1    0    0    0    1    1    0    0    0    1   
    + 1    1    1
    
  3. or download this
    my @data = qw(Square Triangle Circle Square Triangle Circle Circle Rec
    +tangle Rectangle Circle Triangle Triangle Square Rectangle Rectangle 
    +Square) ;
    $data = \@data ;
    ...
        push @result, \%subres ;
    }
    print Dumper(\@result) ;
    
  4. or download this
    $VAR1 = [
              {
    ...
                'Square' => 4
              }
            ];