Help for this page

Select Code to Download


  1. or download this
    my @data = qw( 000- 0101 011- 1-0- );
    
  2. or download this
    my @data = qw( 0 1   5   6 7   8 9 12 13 );
    
  3. or download this
    sub to_binary {
         my $str = shift;
    ...
         }
         return $value;
    }
    
  4. or download this
    for (my $ii=0; $ii<@data; $ii++) {
      if (@data[$ii] =~ /-/) {
    ...
        return $str;
      }
    }