Help for this page

Select Code to Download


  1. or download this
    if(isalpha(*(s-1)) && strchr(chrsep, *s) && isalpha(*(s+1))) {
      if(space_words(s, *s)) {
    ...
        }
      }
    }
    
  2. or download this
    #!/usr/bin/perl
    
    ...
      }
      print Dumper(\%hash);
    }
    
  3. or download this
    $VAR1 = {
              'three' => 1,
    ...
    $VAR1 = {
              'x21' => 1
            };