[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] Localization Issue?



This question is for those who have perhaps delved deep into the MacPerl
viscera, that I believe has to do with the localizations of certain special
variables, namely $& and $':

  while ( $formInfo =~
m~(<(input|select|option|(/select)|textarea|(/textarea)).*?>)~igo ) {
    $formTag = $&;  # get match value
    $rest = $';  # get rest text
    print $formTag, $&;
    if ( $formTag =~ /^<option/io ) {  # Select Option tag
      $formTag .= ( $rest =~ m{(.*?)\n|<}io )[0]; # Add to EOL or next
    }
    elsif ( $formTag =~ /^<textarea/io ) {
      $formTag .= ( $rest =~ m{(.*?)</textarea>}sio )[0]; # Add to </TEXTAREA>
    }
    push @tags, $formTag;
  }

In MacPerl, this code will extract all form tags from $fromInfo into @tags.  In
any other ( as far as I can tell, DOS/UNIX) $& and $' are empty.  Does anyone
know why?

Alex

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch