Help for this page

Select Code to Download


  1. or download this
        next if( $options{"unoccupied"} eq "0" && 
             $_[6] eq "unoccupied\n" );
  2. or download this
    my $dispmode = $options{display} * 2;
$dispmode |= $options{coordinate};   # bitwise OR
...

print "</table>" if($dispmode & 2);
  3. or download this
        @data = grep /\S/, <DAT>;  # skip blank lines
    chomp @data;             # remove newline chars