Help for this page

Select Code to Download


  1. or download this
    ## When we are looking on REGEXP for something that is after other,
    ## genreally "\n", we forget about the beggin of the string,
    ...
    
      ## remove comments:
      $str =~ s/(?:^|\n)[ \t]*#//gs
    
  2. or download this
      $str =~ s/^[ \t]*#.*\n//gm;